Premo ENTER e si clicca OK...come si fa?

[VaKeRock]

ciao a tutti...
io vorrei che una volta terminato di compilare un campo di testo il fuoco si spostasse sull'OK in modo automatico in modo che premendo il tasto ENTER si clicchi il tasto OK
(logicamente ho molti ok nel form e alla pressione di enter devo cliccare l'ok giusto)
ciao
Grazie

[xegallo]

basta che intercetti nell'evento keypress il keyascii 13 appunto l'enter e dntro l'eventochiami l'evento di ok_click

[ddies]

..oppure metti tra le proprietà del bottone "OK" default=true

[VaKeRock]

sisisi...
ma io ho tanti ok nello stesso form come posso essere sicuro che alla pressione di ENTER si prema l'ok giusto?

[xegallo]

ad ogni textbox_keypress associ il pulsante giusto

[Snake664]

Sotto la routine keypress

If KeyAscii = "13" Then Command1_Click
Ed il gioco è fatto
se deve cliccare un altro tasto basta sostituire in questo modo
If KeyAscii = "13" Then Command2_Click

[VaKeRock]

nononon...non ci siamo capiti

io ho tanti text box con tanti ok
se completo il texbox1 se premo enter devo premere l'ok1 e via dicendo...

[ddies]

Infatti appunto segui l'esempio di Snake664

In ogni evneto KeyPres di ogni TextBox metti la riga di codice scritta da Sanke664

Private Sub Text1_KeyPress(...)

  if KeyAscii=13 then Command1_Click

End Sub

Private Sub Text2_KeyPress(...)

  if KeyAscii=13 then Command2_Click

End Sub

[VaKeRock]

adesso provo grazie a tutti!

[xegallo]

oppure crei 2 matrici di controlli una per le textbox una per i commandbutton

Private Sub Command1_Click(Index As Integer)
 MsgBox Index
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii = 13 Then
      Command1_Click (Index)
   End If
End Sub