🚀 go-pugleaf

Un altro passetto � andato ma...  ( come faccio ad aggiungere all "IF NOT" 
il tasto cancella a sx ??? )

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        If Not KeyAscii = Asc(",") Then
    KeyAscii = 0
    Beep
        End If
End If

End Sub



"Ciuchino" <vane1111111111111@tiscali.it> ha scritto nel messaggio 
news:4500686a$0$998$5fc30a8@news.tiscali.it...
> Ciao salvezza,
> con la tua sintassi mi da un errore: 424 "necessario oggetto"
>
> Se invece provo con :
> If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
>    KeyAscii = 0
>    Beep
> End If
>
> Cos� funziona ma...  essendo un text di inserimento prezzo dovrei oltre ai 
> numeri inserire anche la , per i decimali.
>
> Ho provao a inserire
> If KeyAscii < Asc("0") Or KeyAscii > Asc("9") KeyAscii <> Asc(",")Then
>    KeyAscii = 0
>    Beep
> End If
>
> Ma cos� non mi prende nulla, AIUTAMI ti prego :-)
>
> Grazie 1000 x la tua disponibilit� !!!
>
>
>
> "Morrie" <morrie@katamail.com> ha scritto nel messaggio 
> news:44ff3d20$0$15878$4fafbaef@reader2.news.tin.it...
>> Ciuchino ha scritto:
>>> Ragazzi AIUTONE x una gran cazzata che non trovo !!!
>>>
>>> Ho fatto un breve programma che prevede l'inserimento di un prezzo.
>>> Come cavolo si fa a far inserire nel TEXT solo numeri e non lettere ?!!?
>>>
>>> Mi vergogno a chiedervelo ma non trovo nulla che mi aiuti...
>>>
>>> Ps. dimenticavo ma...  vi sarete accorti ugualemnte, sono ai primi passi 
>>> :-P
>>>
>>>
>>>
>>
>> Ciao,
>> nell'evento keypress della text box metti il seguente codice:
>>
>>  If (Not IsNumeric(e.KeyChar)) Then
>>             e.Handled = True
>>         End If
>>
>> Cos� qualsiasi tasto diverso da un numero verr� rifiutato e come se non 
>> fosse mai stato premuto.
>>
>> Ciao!!!
>
>