🚀 go-pugleaf

Pino wrote:

> Ho un piccolo problema, vorrei vincolare alcune caselle di testo(textbox) ad
> accettare:
> 
> 1) solo numeri
> 
> 2) solo lettere (a b c ecc.)
> 
> 3) un numero minimo di caretteri
> 
> 4) che possa accettare solo dei numeri stabiliti da me
> 
> C'� qualcuno che mi dire como posso scrivere il codice per ottenere questi
> risultati?
> 
>   Ringrazio anticipatamente a quelli che mi risponderanno          Pino
> 
> 


Potresti provare a dare un occhiata a questo codice:
Per provarlo:
1) Crea un nuovo progetto
2) Aggiungi un form chiamandolo Form1
3) Aggiungi una textbox chiamandola Text1
4) Aggiungi una textbox chiamandola Text2
5) Incolla questo codice sul form prima creato


'--- INIZIO CODICE ---
Private Const MIN_STRING_LEN As Integer = 5
Private invalidChars() As String * 1 ' Deve contenere almeno un valore!!!
Private validChars() As String * 1 ' Deve contenere almeno un valore!!!

Private Sub Form_Load()
     ReDim invalidChars(2)
     invalidChars(0) = "0"
     invalidChars(1) = "1"
     invalidChars(2) = "2"

     ReDim validChars(3)
     validChars(0) = "9"
     validChars(1) = "6"
     validChars(2) = "7"
     validChars(3) = "4"
End Sub


Private Sub Text1_Validate(Cancel As Boolean)
     ' Controlla che il testo immesso sia maggiore del minimo
     ' impostato nella costante MIN_STRING_LEN
     If Len(Me.Text1.Text) < MIN_STRING_LEN Then
         Call MsgBox("Il numero dei caratteri immessi deve essere 
maggiore di " & CStr(MIN_STRING_LEN))
         Cancel = True
     End If
End Sub


Private Sub Text1_Change()
     ' Controlla che l'ultimo carattere immesso sia numerico
     ' se non lo � elimina l'ultimo carattere e reimposta il cursore
     ' sull'ultimo elemento.
     If Not IsNumeric(Right(Me.Text1.Text, 1)) Then
         If Me.Text1.Text <> "" Then
             Me.Text1.Text = Left(Me.Text1.Text, Len(Me.Text1.Text) - 1)
             Me.Text1.SelStart = Len(Me.Text1.Text)
         Else
             Me.Text1.Text = ""
         End If
     End If

     ' Controlla che nella textbox non vengano immessi caratteri
     ' (o cife) non validi (La lista di questi caratteri sar� contenuta
     ' nell'array monodimensionale invalidChars
     For i = 0 To UBound(invalidChars)
         If Right(Me.Text1.Text, 1) = invalidChars(i) Then
             If Me.Text1.Text <> "" Then
                 Me.Text1.Text = Left(Me.Text1.Text, Len(Me.Text1.Text) - 1)
                 Me.Text1.SelStart = Len(Me.Text1.Text)
             Else
                 Me.Text1.Text = ""
             End If
         End If
     Next i

End Sub


Private Sub Text2_Change()
     ' Controlla che nella textbox vengano immessi solo i caratteri
     ' (o cife) non validi (La lista di questi caratteri sar� contenuta
     ' nell'array monodimensionale invalidChars
     Dim fieldIsCorrect As Boolean: fieldIsCorrect = False
     For i = 0 To UBound(validChars)
         If Right(Me.Text2.Text, 1) = validChars(i) Then
             fieldIsCorrect = True
         End If
     Next i
     If Not fieldIsCorrect Then
         If Me.Text2.Text <> "" Then
             Me.Text2.Text = Left(Me.Text2.Text, Len(Me.Text2.Text) - 1)
             Me.Text2.SelStart = Len(Me.Text2.Text)
         Else
             Me.Text2.Text = ""
         End If
     End If
End Sub
'--- FINE CODICE ---