allora se è una casella di input da parte dell'utente fai cosi:
codice:
Private Sub text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles out.KeyPress
dim num = Asc(e.KeyChar)
'MsgBox(num)
If ((num < 48) Or (num > 57)) And Not ((num = 46) Or (num = 44) Or (num = 43) Or (num = 13)) Then
MsgBox("Carattere non valido!", MsgBoxStyle.Exclamation, "NOOOOO!!")
e.Handled = True
ElseIf num = 43 Then
somma()
out.Text = ""
e.Handled = True
ElseIf num = 13 Then
uguale()
e.Handled = True
ElseIf num = 46 Then
out.Text = out.Text + ","
e.Handled = True
Else
out.Text = out.Text + e.KeyChar
e.Handled = True
End If
End Sub
in pratica elimini il codice ascii di quello chenn ti serve!
(nell' esempio ho lasciato anke il punto, la virgola e il +!!!)
se è una textbox nn di input, allora la contolli con un semplice for!
codice:
for i=0 to lenght(str)
'qui splitti la stringa in caratteri, poi controlli come sopra che nn contengano caratteri non utili!
next i