home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
various
/
mkeepr
/
demo.frm
next >
Wrap
Text File
|
1994-05-31
|
17KB
|
491 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "MouseKeeper Demo"
ClientHeight = 2685
ClientLeft = 2625
ClientTop = 1980
ClientWidth = 7935
Height = 3090
HelpContextID = 400
Left = 2565
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2685
ScaleWidth = 7935
Tag = "This is a Form"
Top = 1635
Width = 8055
Begin ComboBox Combo1
Height = 300
HelpContextID = 200
Left = 5940
Style = 2 'Dropdown List
TabIndex = 26
Tag = "This is a Dropdown List"
Top = 240
Width = 1695
End
Begin CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Capture System-Wide Mouse Events"
Height = 240
HelpContextID = 300
Left = 180
TabIndex = 0
Tag = "This is a Check Box"
Top = 255
Width = 3540
End
Begin MouseKeeper MouseKeeper1
Height = 420
Left = 3780
ReturnProperty = 2 'Name
Top = 120
Width = 420
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Mouse Events && Parameters"
Height = 1785
HelpContextID = 100
Index = 0
Left = 150
TabIndex = 4
Tag = "This is a Frame"
Top = 690
Width = 7695
Begin Label Label6
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 5415
TabIndex = 23
Top = 690
Width = 2220
End
Begin Label Label6
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 5415
TabIndex = 25
Top = 1050
Width = 2220
End
Begin Label Label6
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 5415
TabIndex = 24
Top = 1410
Width = 2220
End
Begin Label Label6
BackStyle = 0 'Transparent
Caption = "Return Property "
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 5415
TabIndex = 22
Top = 330
Width = 2220
End
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 4365
TabIndex = 1
Top = 1410
Width = 1035
End
Begin Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 3315
TabIndex = 2
Top = 1410
Width = 1035
End
Begin Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 2265
TabIndex = 3
Top = 1410
Width = 1035
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 1215
TabIndex = 20
Top = 1410
Width = 1035
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "MouseUp"
Height = 285
Index = 3
Left = 165
TabIndex = 21
Top = 1410
Width = 1035
End
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 4365
TabIndex = 19
Top = 1050
Width = 1035
End
Begin Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 3315
TabIndex = 18
Top = 1050
Width = 1035
End
Begin Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 2265
TabIndex = 17
Top = 1050
Width = 1035
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 1215
TabIndex = 16
Top = 1050
Width = 1035
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "MouseMove"
Height = 285
Index = 2
Left = 165
TabIndex = 15
Top = 1050
Width = 1035
End
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 4365
TabIndex = 14
Top = 690
Width = 1035
End
Begin Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 3315
TabIndex = 13
Top = 690
Width = 1035
End
Begin Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 2265
TabIndex = 12
Top = 690
Width = 1035
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 1215
TabIndex = 11
Top = 690
Width = 1035
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "MouseDown"
Height = 285
Index = 1
Left = 165
TabIndex = 10
Top = 690
Width = 1035
End
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X, Y"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 4365
TabIndex = 9
Top = 330
Width = 1035
End
Begin Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Shift"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 3315
TabIndex = 8
Top = 330
Width = 1035
End
Begin Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Button"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 2265
TabIndex = 7
Top = 330
Width = 1035
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "hWnd"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 1215
TabIndex = 6
Top = 330
Width = 1035
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Event"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 285
Index = 0
Left = 165
TabIndex = 5
Top = 330
Width = 1035
End
End
Begin Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Return Property:"
Height = 195
Left = 4485
TabIndex = 27
Top = 285
Width = 1410
End
End
Sub Check1_Click ()
MouseKeeper1.HookType = Check1
End Sub
Sub Combo1_Click ()
MouseKeeper1.ReturnProperty = Combo1.ListIndex
End Sub
Sub Form_Load ()
Combo1.AddItem "0 - None"
Combo1.AddItem "1 - Caption"
Combo1.AddItem "2 - Name"
Combo1.AddItem "3 - Tag"
Combo1.AddItem "4 - HelpContextID"
Combo1.ListIndex = 1
End Sub
Sub MouseKeeper1_MouseDown (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
Label2(1) = hWindow
Label3(1) = Button
Label4(1) = Shift
Label5(1) = X & "," & Y
Label6(1) = TagString
End Sub
Sub MouseKeeper1_MouseMove (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
Label2(2) = hWindow
Label3(2) = Button
Label4(2) = Shift
Label5(2) = X & "," & Y
Label6(2) = TagString
End Sub
Sub MouseKeeper1_MouseUp (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
Label2(3) = hWindow
Label3(3) = Button
Label4(3) = Shift
Label5(3) = X & "," & Y
Label6(3) = TagString
End Sub