[VB6] Associare un azione a tutti i controlli TextBox

[Veronica80]

ciao! Io ho un form con molte textbox.
Vorrei che quando clicco invio dentro una delle texbox venisse lanciato il tasto "SALVA" del form.

A tal proposito ho usato il codice:

Private Sub miaTextbox_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    bottoneSalva_Click
End If
End Sub

dove BottoneSalva_Click è la sub che lancia tutti i comandi del bottone che serve a salvare i dati.

Sin qui tutto ok però siccome ho una marea di textbox volevo sapere se era possibile creare la sub che ho scritto su in automatico per ogni textbox.

una cosa del tipo:

dim mioControllo as control
for each mioControllo in mioForm.Controls
     if typeOf mioControllo is textbox then
              e adesso che ci scrivo? :D
     end if
next

Grazie a tutti per l'aiuto!

[vonkranz]

Vedo che sei per la programmazione alternativa

No, quello che fai tu con quel codice non serve.

Deduco che le text box non facciano parte di un Array di textbox...in questo caso non ti resta che aggiungere il pezzo di codice "IF Keyascii...." in tutte le textbox.

Forse e' meglio se anziche' mettere quel codice, metti una chiamata ad una SUB che esegue quel codice (passandogli come parametro Keyascii) cosi' se devi fare una modifica a quel codice, lo fai una sola volta

[icecube_HT]

Originariamente inviato da Veronica80
ciao! Io ho un form con molte textbox.
Vorrei che quando clicco invio dentro una delle texbox venisse lanciato il tasto "SALVA" del form....

...ma non basta impostare la proprieta':
Default = True
del bottone Salva ???

dovrebbe funzionare.....

[Veronica80]

Bellissima sta funzione!!!!
Funziona!

Grazie!!!