|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: SendKeys para nao travar o teclado no Win 2000
|
 |
|
|
|
Postada em 7/7/2003 por Everest
O Sendkeys quando usado no Windows 2000 pode causar o travamento do teclado. Não trava o sistema, somente o teclado. Para evitar esse problema, pode-se utilizar o seguinte código para simular o tab ao pressionar Enter:
'Em um modulo:
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd as long, byval wMsg as Long, byval wParam as Long, Iparam as Any) as Long
Public Const WM_KEYDOWN = &H100
Public Const VK_TAB=&h9
'E nos eventos de tratamento de tecla :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim RetVal
If KeyAscii = 13 Then
RetVal = PostMessage(Me.hwnd, WM_KEYDOWN, VK_TAB, 0)
KeyAscii = 0
End If
End Sub
|
|
|
|
|
