|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Fazer movimentos e gravar as coordenadas do mouse
|
 |
|
|
|
Postada em 2/1/2002 por Rodrigo S. Lima
trumpetista@hotmail.com
Private Declare Function GetCursorPos Lib "user32" (ipPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private vstop As Boolean
***********************Gravar as Coordenadas****************
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
CommandButton3.Enabled = False
CommandButton2.Enabled = True
Dim x As Integer
x = 1
Dim mouse As POINTAPI
Open "C:\mouse.mov" For Output As #1
Do Until vstop = True
GetCursorPos mouse
Write #1, mouse.x
Write #1, mouse.y
Label1.Caption = mouse.x
Label2.Caption = mouse.y
DoEvents
Loop
Close #1
End Sub
************************************************************
Private Sub CommandButton2_Click()
CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = True
vstop = True
End Sub
****************************Abre as Coordenadas Antigas********
Private Sub CommandButton3_Click()
CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
Dim mouse As POINTAPI
Dim corde As POINTAPI
corde.x = Label1.Caption
corde.y = Label2.Caption
vstop = False
Open "C:\mouse.mov" For Input As #1
Do Until vstop = True
If EOF(1) Then Exit Do
Input #1, mousex
Input #1, mousey
GetCursorPos mouse
Label1.Caption = mouse.x
Label3.Caption = mouse.y
SetCursorPos mousex, mousey
DoEvents
Loop
Close #1
CommandButton2_Click
MsgBox "Fim de apresentação", vbExclamation, "Mouse MOve"
SetCursorPos corde.x, corde.y
End Sub
********************************Pega as Coordenadas************
Private Sub UserForm_Activate()
Dim mouse As POINTAPI
Do
GetCursorPos mouse
Label1.Caption = mouse.x
Label2.Caption = mouse.y
DoEvents
Loop
End Sub
By Rodrigo S. Lima
trumpetista@hotmail.com
|
|
|
|
|
