🚀 go-pugleaf

Non � una gran soluzione ma non puoi controllare che il numero immesso 
contenga o n� la virgola e se non la contiene la metti tu a forza con 
due zeri dopo?
Ovviamente qui ci metti:
If ( (TASTO < "0" Or TASTO > "9")And(TASTO <> ".")And(TASTO <> ",") )

MrDigital ex WebMasterPro ha scritto:
> Salve volevo scrivere in un casella di testo solo numeri con la virgola per
> fare conti in euro cercando di introdurre un messaggio in caso non si
> introducano numeri o virgola
> Ma il codice qui sotto va tutto bene tranne che per la virgola che mi da
> errori....sono fermo da 4 giorni su questo problema e non trovo soluzione!!!
> 
> 
> Private Sub Text100_KeyPress(KeyAscii As Integer)
>         Dim TASTO As String
>         TASTO = Chr$(KeyAscii)
>     If (TASTO < "0" Or TASTO > "9") And (KeyAscii <> vbKeyTab) And _
>         (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyReturn) And _
>         (KeyAscii <> vbKey,) Then
> 
>         Dim MESSAGGIO
>         MESSAGGIO = MsgBox("Inserire solo numeri !", vbOKOnly + _
>         vbInformation, "ATTENZIONE")
>         KeyAscii = 0
>     End If
> End Sub
> 
> 
> Potete aiutarmi????
> 
> Grazie
> Un programmatore con poca esperienza, ma che vuole migliorare.
> 
> 
>