ENTER

USUARIO.EXCLUIDOS 12/03/2005 06:32:43
#72519
como é que consigo passar de caixa de texto em caixa de texo dando "enter", e se é possivel mudar a cor da font de um botão.
USUARIO.EXCLUIDOS 12/03/2005 06:55:36
#72522
é só colocar este código no evento KeyDown dos textboxs, e o "enter" passa a funcionar como "TAB":
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
SendKeys "{Tab}"
End If
End Sub


Quanto à  cor do font do botão, tem aqui no vbmania um exemplo disso, veja:
http://www.vbmania.com.br/vbmdetail.php?varID=1241
RODRIGOMARCHESE 12/03/2005 07:43:58
#72524
dando continuidade ao posto do Miguel, você pode usar o código postado em

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

e passando a propriedade Keypreview do Form para true

evitando assim de ter que inserir o procedimento para cada caixa de texto

desta forma um procedimento só contemplará todas as caixas de texto.
USUARIO.EXCLUIDOS 13/03/2005 00:12:09
#72716
Boa Rodrigo....também vou fazer como você sugeriu. Obrigado
WEBMASTER 13/03/2005 00:18:04
#72718 

Private Sub Form1_KeyPress(Keyascii as integer)
   If(Keyascii=13)Then
      Sendkeys "{TAB}"
   End If
End Sub


Habilite a propriedade KeyPreview do formulário em questão.

Quanto a troca de fontes, dar-te-ei um exemplo com cores..é só adaptar(isto porque não lembro-me qual o nome da propriedade de fonte):


Private Sub Text1_GotFocus()
   Text1.BackColor=vbBlack
End Sub

Private Sub Text1_LostFocus()
   Text1.BackColor=vbWhite
End Sub


Utilizando um array de controles :


Private Sub Text_GotFocus(Index as Integer)
   Text(Index).BackColor=vbBlack
End Sub

Private Sub Text_LostFocus(Index as Integer)
   Text(Index).BackColor=vbWhite
End Sub


Ok ?
WEBMASTER 13/03/2005 00:20:26
#72719
P.S.: Ponha Keyascii = 0 para evitar o Beep do computador :


Private Sub Form1_KeyPress(Keyascii as integer) 
   If(Keyascii = 13)Then 
      Sendkeys "{TAB}" 
      Keyascii = 0
   End If 
End Sub


Ok ?
Tópico encerrado , respostas não são mais permitidas
Voltar