numerieke toetsen EN backspace of delete

Article View: be.comp.programming

Article #3838

Back to be.comp.programming Previous Next

#3838

From: Netghost
Date: Wed, 15 Oct 2003 17:56

15 lines
1450 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: <jTfjb.1195$WU6.202276933@hestia.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.vmunix.org!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,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-10-15 11:04:18 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.vmunix.org!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: <jTfjb.1195$WU6.202276933@hestia.telenet-ops.be>
Date: Wed, 15 Oct 2003 17:56:31 GMT
NNTP-Posting-Host: 213.119.58.52
X-Complaints-To: abuse@telenet.be
X-Trace: hestia.telenet-ops.be 1066240591 213.119.58.52 (Wed, 15 Oct 2003 19:56:31 CEST)
NNTP-Posting-Date: Wed, 15 Oct 2003 19:56:31 CEST
Organization: Telenet Internet