Re: numerieke toetsen EN backspace of delete

Article View: be.comp.programming

Article #3844

Back to be.comp.programming Previous Next

#3844

From: Cliff Beeckman
Date: Wed, 15 Oct 2003 20:12

15 lines
1416 bytes

Private Sub txtverstrekking1_KeyPress(KeyAscii As Integer)
Dim intdummy As Integer

' voeg dit toe aan je code:
If KeyAscii = 8 Then Exit Sub

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

groeten,

cliff beeckman

Technical Details

Message-ID: <lShjb.79989$Uy2.4283522@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!kibo.news.demon.net!demon!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

References: <jTfjb.1195$WU6.202276933@hestia.telenet-ops.be>

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 13:12:01 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!kibo.news.demon.net!demon!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "Cliff Beeckman" <cliffbeeckman@pandora.be>
Newsgroups: be.comp.programming
References: <jTfjb.1195$WU6.202276933@hestia.telenet-ops.be>
Subject: Re: numerieke toetsen EN backspace of delete
Lines: 17
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <lShjb.79989$Uy2.4283522@phobos.telenet-ops.be>
Date: Wed, 15 Oct 2003 20:12:01 GMT
NNTP-Posting-Host: 213.118.138.101
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1066248721 213.118.138.101 (Wed, 15 Oct 2003 22:12:01 MEST)
NNTP-Posting-Date: Wed, 15 Oct 2003 22:12:01 MEST
Organization: Telenet Internet

Reply to Parent Message