锁定鼠标.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "锁定"
      Height          =   330
      Left            =   1575
      TabIndex        =   0
      Top             =   1440
      Width           =   1140
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Dim Deng As RECT
Dim SS As Boolean

Private Sub Command1_Click()
    If SS Then
        Deng.Left = 0: Deng.Top = 0
        Deng.Right = 0: Deng.Bottom = 0
        ClipCursor Deng
        SS = False
    Else
        ClipCursor ByVal 0&
        SS = True
    End If
End Sub

Private Sub Form_Load()
    SS = True
    Command1.ToolTipText = "单击将锁定鼠标，锁定后按回车将释放锁定"
End Sub