Selezionare i tipi di carattere in textbox

[Pinco Pallino 2]

CIAO!
Per far si che in una delle mie textbox ci si possano inserire solo numeri ho usato questo codice:

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 59 Then
MsgBox "Puoi inserire solo valori numerici"
KeyAscii = 0
End If
End Sub

Però ho un problema:

Siccome in questo campo di testo devo inserire valori in euro ho bisogno di inserire la "," o quanto meno il punto "." (per fa calcoli decimali si mette la virgola o il punto!?!?!?)

Come posso fare per far passare alla "selezione" anche questo simbolo?!?

GRAZIE!

[Pieruccio]

dovrebbe essere quel che ti serve
Private Sub text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 46 Or KeyAscii > 59) AND KeyAscii<>44 Then
MsgBox "Puoi inserire solo valori numerici"
KeyAscii = 0
End If
End Sub

:mavieni:

[Pinco Pallino 2]

grazie 1000! Funziona!
ma per far funzionare anke la backspace?!? (x cancellare in caso di errore!!)!

[cik]

metti un breakpoint nella routine e vedi il valore che assume KeyAscii quando premi un tasto. Così ti ricavi il codice ascii dei tasti che ti interessano

[Pieruccio]

facciamolo in un modo piu elegante:

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 47 To 59
'caratteri numerici OK
Case 44, 46
'carattere virgola e punto decimale OK
Case 8
'carattere backspace OK
Case Else
MsgBox "Puoi inserire solo valori numerici"
KeyAscii = 0
End Select
End Sub

[xegallo]

Originariamente inviato da Pieruccio
facciamolo in un modo piu elegante:

senti elegante quand'è che ti decidi a mettere il codice tra i tag?
istruzioni nel regolamento

[Pieruccio]

vediamo se ho capito:

strSql="Search IN Regolamento Where TAG=Obbligatorio"
Cond=Conn.Execute(Regolamento,strSql)
If Cond = True then
    'Trovato nel regolamento l'obbligo di utilizzo dei TAG
    MsgBox("Porgo le mie scuse, non succederà più")
Else
    'Il regolamento dice "Consiglio" e non "Obbligo"
    MsgBox("Forse il moderatore non ha digerito la bagna cauda visto il modo in cui si esprime")
End If

Do While FacciamoneUnCaso = True
    'Se ti rivolgi in questo modo a tutti quelli che partecipano al Forum
    '(e dubito che tu mangi bagna cauda tutte le sere)
    'pensa se rimani poi a moderarti da solo!!"    
    Sleep(2000)
Loop

:mavieni: mica t'offendi se ti viene resa vero?

[xegallo]

Originariamente inviato da Pieruccio
vediamo se ho capito:

strSql="Search IN Regolamento Where TAG=Obbligatorio"
Cond=Conn.Execute(Regolamento,strSql)
If Cond = True then
    'Trovato nel regolamento l'obbligo di utilizzo dei TAG
    MsgBox("Porgo le mie scuse, non succederà più")
Else
    'Il regolamento dice "Consiglio" e non "Obbligo"
    MsgBox("Forse il moderatore non ha digerito la bagna cauda visto il modo in cui si esprime")
End If

Do While FacciamoneUnCaso = True
    'Se ti rivolgi in questo modo a tutti quelli che partecipano al Forum
    '(e dubito che tu mangi bagna cauda tutte le sere)
    'pensa se rimani poi a moderarti da solo!!"    
    Sleep(2000)
Loop

:mavieni: mica t'offendi se ti viene resa vero?

io mica mi offendo ma ci metto una attimo a cambiare il titolo da consiglio e obbligo
ma visto che tu non sei tanto educato da farmi leggere il codice correttamente io non vedo perchè devo essere educato nel rivolgermi a te, considerando poi che in quello che ho scritto non vi è sicuramnte il tono che usi tu:
p.s: non sono pagato un tot a utente del forum


p.s.2: per eventuali chiarimenti sempre disponibile in PVT (come da regolamento)