Originariamente inviato da p73
Grazie per il tuo interessamento MItaly....
....Ho incontrato lo stesso problema con la cancellazione di tutte le textbox presenti sulla form...ed ho risolto in questo modo:
<code>------------------------------------------------
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
<\code>------------------------------------------------
...non si potrebbe adattare questo codice in qualche maniera
premesso che la soluzione migliore è senz'altro l'arrray di controlli,
puoi provare ad abilitare il KeyPreview del Form
e nel suo evento KeyPress scrivere
codice:
Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKeyReturn) And (TypeOf Me.ActiveControl Is TextBox) Then
'KeyAscii = vbKeyTab
KeyAscii = 0 'elimina il beep
keybd_event VK_TAB, 0, 0, 0 'riproduce il TAB
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
end sub