USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página