Inserimento di un texbox che accetti solo numeri : non mi funziona però

[paolo935]

ovrei in una form inserire un text box che accetti solo numeri ed escluda le lettere

Ho provato a seguire un manuale di Microsoft.press (visual basic.net )

Dice di inserire nell'evento keypress la seguente routine


Private Sub quantita_ingrediente_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles quantita_ingrediente.KeyPress

If Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
e.Handled = True
End If
End Sub


che non mi funziona : il textbox continua ad accettare tutti i tasti, ho provato ad inserire uno stop per vedere se ci passa e ho verificato che nnn sente neppure lo stop


Private Sub quantita_ingrediente_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles quantita_ingrediente.KeyPress
Stop
If Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
e.Handled = True
End If
End Sub

qualcuno mi può dare una dritta ?

grazie Paolo

[Pieruccio]

aggiungi questa riga nella sub New()
AddHandler quantita_ingrediente.KeyPress, AddressOf ControllaTasto

poi copia questa sub
Private Sub ControllaTasto(ByVal o As [Object], ByVal e As KeyPressEventArgs)
If e.KeyChar.IsNumber(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

[paolo935]

caspita funziona perfettamente, ho solo una piccola richiesta da farti

è possibile abilitare anche il punto decimale del tastierino numerico?


grazie ancora
paolo

[paolo935]

come non detto ci sono riuscito così

grazie comunque paolo

Private Sub ControllaTasto(ByVal o As [Object], ByVal e As KeyPressEventArgs)
If e.KeyChar = "." Then Exit Sub
If e.KeyChar.IsNumber(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

[Pieruccio]

sostituisci la sub con questa:
Private Sub ControllaTasto(ByVal o As [Object], ByVal e As KeyPressEventArgs)
'controlla se il carattere digitato e' un carattere numerico
'accetta anche "." e ","
If e.KeyChar.IsNumber(e.KeyChar) _
Or e.KeyChar = Microsoft.VisualBasic.ChrW(46) _
Or e.KeyChar = Microsoft.VisualBasic.ChrW(44) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

:mavieni:

[paolo935]

fantastico, grazie ancora

paolo

[Foga27News]

Però uno può fare copia/incolla...