Clipping and Unclipping the Cursor : Windows Resources « Windows API « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Windows API » Windows Resources 
Clipping and Unclipping the Cursor
 
    Type RECT
       Left As Long
       Top As Long
       Right As Long
       Bottom As Long
    End Type
    
    Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
    
    Sub cmdClip()
        Dim rectClipArea As RECT
        Dim lngRetVal As Long
     
        With rectClipArea
           .Top = 200
           .Left = 100
           .Bottom = 420
           .Right = 280
        End With
     
        lngRetVal = ClipCursor(rectClipArea)
     
     End Sub
     
     Private Sub cmdUnclip()
        Dim lngRetVal As Long
        lngRetVal = ClipCursor(ByVal 0&)
     End Sub

 
Related examples in the same category
1.The FindWindow() function finds the first top-level window in the window list that satisfies the specified arguments.
2.Check Whether an Excel File Is Open on a Network
3.Custom About Dialog
4.Disable the X for Closing a Userform
5.Check mouse button
6.Returns the Windows directory
7.Get execuatable file name from a given file name
8.Get screen width and height
9.Get window's rectangle
10.Find window by class name
11.Show Excel Window Size
12.Get color depth
13.Get DC and release it
14.Get user name
15.Get the computer name
16.Freeze a window
17.Change the Excel icon
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.