[VB6] Textbox "beveiligen"?

**15-08-2003, 21:53**

Hoe kan ik een textbox beveiligen tegen ongewenste invoer? Er mag bijvoorbeeld alleen een getal ingevoerd worden (ivm een berekening) en geen letters. Zodra ik letters invoer en het in een database wil opslaan, krijg ik uiteraard een foutmelding (Multi step error).

Iemand enig idee hoe ik een textbox kan beveiligen? Wat ik ook prima vind is dat de waarde van de textbox - na het klikken op de "opslaan"-knop - wordt gecontroleerd op een numerieke waarde, en zo niet dat er een melding aan de gebruiker wordt gegeven.

Hoop dat iemand het snapt en mij wil helpen

.

Marcade · **15-08-2003, 22:23**

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)

 If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
 
End Sub

zoiets?

**15-08-2003, 23:10**

Citaat:

Marcade schreef op 15-08-2003 @ 23:23:

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0 End Sub

zoiets?

Jaa

Het werkt, thanks!!

15-08-2003, 22:23
Marcade	Code: Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0 End Sub zoiets?

Advertentie