[VB6] controllo inserimento numeri

[Meldon]

Se vuoi fare un controllo simultaneo all'aggiunta dei numeri all'ora devi modificare la procedura altrimenti darà sempre errore visto che all'inizio tutti i textbox sono vuoti e quindi uguali.

Prova in questo modo:

Sub Controlla()
 Dim i, m As Integer
  For i = 0 To 10
   For m = 0 To 5
    If ((Text1(m + 4 * i)) <> "") and (Text1(m + 1 + 4 * i) <> "") then
    If Text1(m + 4 * i) = Text1(m + 1 + 4 * i) Then GoTo Err
  End If    
Next
  Next
Exit Sub

Err:
MsgBox "Caratteri ripetuti" & m & " " & i

End Sub

La selezione che ho inserito serve a verificare che i textbox confrontati non siano vuoti.
Mosficala poi secondo le tue esigenze.

Alla prossima

P.S. Il controllo ti conviente inserirlo nell'evento GotFocus o in LostFocus dei TextBox.