Aiuto su limitazione scrittura in VB

Article View: free.it.visual-basic

Article #1112

Back to free.it.visual-basic Previous Next

#1112

From: MrDigital ex WebMasterPro
Date: Wed, 06 Oct 2004 20:06

26 lines
1841 bytes

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.

Technical Details

Message-ID: <ofY8d.27855$N45.721491@twister2.libero.it>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!nntp.eutelia.it!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: f94ee,3b7c37bd00b752b,start
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!nntp.eutelia.it!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail
From: "MrDigital ex WebMasterPro" <passero75@libero.it>
Newsgroups: free.it.visual-basic
Subject: Aiuto su limitazione scrittura in VB
Lines: 29
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <ofY8d.27855$N45.721491@twister2.libero.it>
Date: Wed, 06 Oct 2004 20:06:44 GMT
NNTP-Posting-Host: 62.98.172.200
X-Complaints-To: abuse@inwind.it
X-Trace: twister2.libero.it 1097093204 62.98.172.200 (Wed, 06 Oct 2004 22:06:44 MET DST)
NNTP-Posting-Date: Wed, 06 Oct 2004 22:06:44 MET DST
Organization: [Infostrada]