[vb8]text box numerica

[s1501]

innanzitutto grazie a tutti quelli che mi risponderanno,
allora io dovrei creare una textbox dove l'utente possa inserire solo numeri,io ho provato così:

Private Sub Textbox1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 Beep() End If eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub

ma così non mi prende il carattere "," e non mi fa usare il tasto backspace

qualcuno sa come posso fare in modo che possa inserire anche la "," e usare il back space

grazie a tutti

[StegcO]

IF IsNumeric(NomeTextBox.Text) = False Then
   MsgBox "Non hai inserito un valore numero.", vbOkOnly, "Errore"
   NomeTextBox.SetFocus
   Exit Sub
End If

così no?

[s1501]

ciao grazie ma vb mi dice che setfocus non è un membro di system.windows.forms.textbox
cosa dovrei fare

[Boolean]

Quello postato da StegcO è codice VB6.

Prova in questo modo:

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim bInvalid As Boolean
        If IsNumeric(e.KeyChar) Then
            bInvalid = False
        Else
            Select Case Asc(e.KeyChar)
                Case 46
                    If TextBox1.Text.IndexOf(e.KeyChar) >= 0 Then
                        bInvalid = True
                    End If
                Case 8
                    bInvalid = False
                Case Else
                    bInvalid = True
            End Select
        End If
        e.Handled = bInvalid
    End Sub

Ho fatto in modo che possa accettare solo caratteri numerici e il punto (una sola volta).
Funziona anche il BackSpace, ma tutti gli altri caratteri sono esclusi.

Se hai bisogno della virgola anzichè del punto, basta cambiare il corrispondente codice Ascii nella Select Case

Boolean

[s1501]

grazie lo stesso, mo ho già risolto così:
ho fatto una funzione che verifichi il tasto

 
Public Function CheckKeyPressed(ByVal sKey As Char) As Char
    Dim KeyAscii As Short = Asc(sKey)
    If KeyAscii < 32 Then
        Return sKey
    Else
        If InStr("0123456789,", sKey) > 0 Then
            Return sKey
        Else
            Return ""
        End If
    End If
End Function

e poi l'ho usata così:

 
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Dim KeyChar As Char = CheckKeyPressed(e.KeyChar)
    If KeyChar = Nothing Then e.KeyChar = Nothing
End Sub

[Grumpy]

ho fatto una funzione che verifichi il tasto

"ho fatto" mi sembra un po' eccessivo.
(vedere qui)

[s1501]

si lo so che ho fatto e eccessivo
ma non sapevo come esprimermi

[Boolean]

Sarebbe bastato dire che su un altro forum, l'utente tizio ti aveva fornito questa soluzione.

Boolean

[s1501]

ai ragione non c'avevo pensato

mi dispiace
grazie per la comprensione

[gibra]

Un consiglio:
è sbagliato postare su più forum contemporaneamente, alla fine si fa perdere tempo alle persone nel rispondere ad un qualcosa a cui... è già stato risposto da un'altra parte .

Questo per rispetto di chi perde tempo a rispondere sui forum nel tentativo di aiutare gli altri; mettersi nei panni degli altri, aiuta a capire queste cose...

Il comportamente corretto sarebbe quello di postare su UN solo forum. Se poi su questo non si trova la soluzione, allora provo su un'altro.

Altrimenti, come accade a me , ci si stanca di aiutare perchè si pensa, a ragion veduta:
"Tanto gli risponderanno da qualche altra parte... "

Ormai li conosciamo chi ha il vizio del "cross-forum"...
Eh, eh, il mondo è piccolo!!!

Ciao