ในการเขียนโปรแกรมอินเทอร์เฟซ บางครั้งเราต้องการเพียงตัวควบคุมกล่องข้อความเพื่อรับอินพุตตัวเลข ในขณะที่อินพุตอื่นๆ จะถูกละเว้น ทำอย่างไรจึงจะบรรลุผลนี้ ซอร์สโค้ดเฉพาะได้รับด้านล่าง:
เราเพิ่มเหตุการณ์ KeyPress สำหรับกล่องข้อความ
ข้อความย่อยส่วนตัว1_KeyPress (KeyAscii As Integer)
ถ้า KeyAscii <> 8 และ KeyAscii < 48 หรือ KeyAscii > 57 แล้ว
บี๊บ
คีย์แอสกี้ = 0
สิ้นสุดถ้า
จบหมวดย่อย
หลักการเฉพาะข้างต้นคือ: ตรวจสอบว่าค่า KeyAscii ของปุ่มที่กดอยู่ระหว่าง 48-57 หรือไม่ หากค่าดังกล่าวอยู่ระหว่าง 48 ถึง 57 อินพุตจะเป็นตัวเลข ไม่เช่นนั้นก็ไม่ใช่ค่าดังกล่าว อย่างไรก็ตาม บางครั้งเราอาจใช้ปุ่มย้อนกลับด้วย เพื่ออำนวยความสะดวกในการป้อนข้อมูล ลบเมื่อมีข้อผิดพลาด ในกรณีนี้ จึงต้องเพิ่ม KeyAscii <> 8 เพื่อไม่ให้ละเลยเมื่อใช้ปุ่มย้อนกลับ