[VB 6 ] evento Keypress generale

[michele79]

Ciao
Vengo subito al punto...
Sulla mia form ho piu oggetti text box tramite i quali inserisco dei dati... per far si che essi siano validi faccio un controllo sui tasti che man a mano inserisco da tastiera ,fin qui nessun problema fa quel che deve fare,solo che ogni evento keypress deve essere associato al proprio text box come ho scritto qua sotto :


Private Sub txtnome_keypress(keyascii As Integer)
If (TxtNome.Text = "") And (keyascii = 32) Then
keyascii = 0
End If
IntDopo = keyascii
If (IntDopo = 32) And (IntPrima = 32) Then
keyascii = 0
End If
IntPrima = dopo
End Sub

Siccome io ho piu textbox da controllare con lo stesso criterio,mi chiedevo se c'è un modo per generalizzare la procedura che ho scritto associandola a piu textbox senza dovermi scrivere per ogniuno di essi una cavolo di procedura!!!
Spero tanto di essermi spiegato bene (mmmmmmmm...sara'....)

Grazie in anticipo
Mic



Ps: [vb] alle volte sei un bastardo.... oppure son io che non so le cose!?

[giuSp]

...utilizza una matrice di controlli(facendo copia e incolla del controllo), ovvero, nel tuo caso di textBox, dovrai solo cambiare il codice di riferimento alla text, aggiungendo text1(index).property

il tuo codice diventerebbe:

Private Sub txtnome_keypress(index as integer, keyascii As Integer) 
   If (TxtNome(index).Text = "") And (keyascii = 32) Then _
      keyascii = 0 
   IntDopo = keyascii 
   If (IntDopo = 32) And (IntPrima = 32) Then  _
      keyascii = 0 
   IntPrima = dopo 
End Sub

tutto kiaro...

ciao

[michele79]

Grazie... e chi ci aveva pensato!!!
Dopo cena mi metto subito all'opera...GRAZIE ANCORA SIG. giuSp



ciaooo!!!