[VB] Impedire digitazione di alcuni caratteri (era:[textbox] Come si fa...?)

[skyhunter]

Salve! Come faccio ad impedire la digitazione in una textbox dei caratteri "-" e "," per due o + volte o combinati tra loro ?
Es: ,,
,,,
--
----
,-,
-,,
ecc ecc?

Grazie mille

[iguana13]

[pseudocode]

Nell' evento Keypress:
Se è premuto un tasto incriminato
E se l'ultimo carattere della textbox è uguale
allora -> Keyascii=0

[/pseudocode]

[tas]

Oppure infischiati di quello che digita l'utente (che potrebbe imbrogliarti facendo un copia e incolla di un numero sbagliato) e usa l'evento Validate:

Private Sub Text1_Validate(Cancel As Boolean)
    If IsNumeric(Text1.Text) Then
        Text1.Text = Format$(Text1.Text, "Standard")
    Else
        Cancel = True
    End If
End Sub

[iguana13]

Nel tuo modo, tas, controlla che sia numerico...
lui vuole come nel suo esempio!
Puoi scrivere "-" ma non "--"...

Non ho capito perchè ... bo....

Comuque va meglio in validate, ma è più complesso 1 po'
penso che bisogna usare instr()

[skyhunter]

Perdonami ma credo di non aver capito capito: eseguendo lo script

Public Sub valore_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        Case 48 To 57, 44, 8, 45
        Case Else
            KeyAscii = 0
            Beep
    End Select

End Sub

e premendo il tasto "," mi risponde "nome esterno non definito".
Cos'è che non va???





*************************
Nota del moderatore: il tag per il codice non è pseudocode ma semplicemente code.

[iguana13]

A me funziona... nn saprei...


****************
Risposta alla nota del moderatore:
intendevo solo che si trattava di pseudo-codice...