|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Limitando a área de movimento do mouse
|
 |
|
|
|
Postada em 7/7/2003 por Ronaldão
Alguns programas precisam por algum motivo limitar o movimento Do mouse a uma determinada área. Para isso usa-se a seguinte API:
'Em General Declarations, digite:
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
Public Function LimitaMouse(Optional X1 As Integer, Optional Y1 As Integer, Optional X2 As Integer, Optional Y2 As Integer) As Variant
Dim retangulo As RECT
retangulo.Left = X1
retangulo.Top = Y1
retangulo.Right = X2
retangulo.Bottom = Y2
ClipCursor retangulo
End Function
'No evento form_Load, digite a seguinte Linha
Private Sub Form_Load()
LimitaMouse 50,100, 300,200
End Sub
'No evento form_Unload, digite a seguinte Linha
Private Sub Form_Unload(Cancel As Integer)
LimitaMouse 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY 'Volta ao estado Normal
End Sub
'Onde 50 é a posição X inicial Do limite
'100 é a posição Y inicial
'300 é o X final
'200 é o Y final
'Todos os valores são determinados em Pixel
'Cuidado com As coordenadas pois poderá não ter mais o controle Do mouse, dendo assim que usar o teclado para finalizar o programa.
|
|
|
|
|
