ENTER COMO TAB

USUARIO.EXCLUIDOS 12/01/2005 12:29:12
#60243
Caros Amigos,

Tenho usado a segunte sub para o enter funcionar como tab:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
SendKeys "{Tab}"
KeyCode = 0
ElseIf KeyCode = vbKeyEscape Then
SendKeys "+{Tab}"
KeyCode = 0
End If
End Sub

Porem aplico essa sub em cada formulario haveria um modo de colocar esta sub em um modulo e chamar quando carregar cada form.

Desde já agradeço a todos.
THIAGO.CESAR 12/01/2005 12:34:12
#60245
Coloque-a em um módulo e declarando como pública...
MAICONCARDOSO 12/01/2005 12:35:14
#60246
A única maneira é criar uma nova function dentro de um módulo:

Public Function MinhaFuncao()
  If KeyCode = vbKeyReturn Then 
    SendKeys "{Tab}" 
    KeyCode = 0 
  ElseIf KeyCode = vbKeyEscape Then 
    SendKeys "+{Tab}" 
    KeyCode = 0 
  End If 
End Function


e depois chama-la no evento Load de cada form:

Private Sub Form_Load()
   MinhaFuncao
end sub
THIAGO.CESAR 12/01/2005 12:37:17
#60247 
Public Sub Tabular(KeyCode as integer)
  If KeyCode = vbKeyReturn Then 
    SendKeys "{Tab}" 
    KeyCode = 0 
  ElseIf KeyCode = vbKeyEscape Then 
    SendKeys "+{Tab}" 
    KeyCode = 0 
  End If 
End Sub

No FormKeyDown
Tabular KeyCode
CAJU 12/01/2005 12:38:56
#60249 

'módulo

Public Function EnterTab(gKeyCode As Integer) As Boolean
EnterTab = False
  If gKeyCode = vbKeyReturn Then
    SendKeys "{Tab}"
    EnterTab = True
  ElseIf gKeyCode = vbKeyEscape Then
    SendKeys "+{Tab}"
    EnterTab = True
  End If
End Function


'form
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If EnterTab(KeyCode) = True Then KeyCode = 0
End Sub


oks?
CAJU 12/01/2005 12:40:24
#60250
eita!
quantas respostas simultaneas! [S41]
THIAGO.CESAR 12/01/2005 12:45:12
#60252
é verdade, CAJU...

Você abre e não tem nenhuma resposta, quando clica em Gravar Tópico vê que ela é a quarta ou quinta...

Isso é bom pra quem pergunta[S49]
Tópico encerrado , respostas não são mais permitidas
Voltar