|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Mouse/Teclado)
|
|
![](images/box01esqsup.gif) |
Título da Dica: SendKeys para nao travar o teclado no Win 2000
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|