numerieke toetsen EN backspace of delete

Article View: be.comp.programming

Article #3840

Back to be.comp.programming Previous Next

#3840

From: Netghost
Date: Wed, 15 Oct 2003 18:01

15 lines
1461 bytes

Hoi... ik heb in n visual basic programma volgende code

Private Sub txtverstrekking1_KeyPress(KeyAscii As Integer)
Dim intdummy As Integer
If keyascii < Asc("0") Or keyascii > Asc("9") Then
keyascii = 0
intdummy = MsgBox("Enkel cijfers ingeven a.u.b.", vbOKOnly + vbInformation,
"Verkeerde ingave")
End If

Natuurlijk werkt nu de backspace ook niet, om te corrigeren. Wat moet ik
hier juist bijplaatsen om deze toets toch te laten werken?
TIA

NG.

Technical Details

Message-ID: <mYfjb.1202$eb7.203477113@hestia.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,f8aa561075b202a
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-10-15 11:10:02 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail
From: "Netghost" <c_sighen@hotmail.com>
Newsgroups: be.comp.programming
Subject: numerieke toetsen EN backspace of delete
Lines: 17
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: <mYfjb.1202$eb7.203477113@hestia.telenet-ops.be>
Date: Wed, 15 Oct 2003 18:01:54 GMT
NNTP-Posting-Host: 213.119.58.52
X-Complaints-To: abuse@telenet.be
X-Trace: hestia.telenet-ops.be 1066240914 213.119.58.52 (Wed, 15 Oct 2003 20:01:54 CEST)
NNTP-Posting-Date: Wed, 15 Oct 2003 20:01:54 CEST
Organization: Telenet Internet