PowerPoint 演示文稿

• 对输入的数据进行验证、限制和修改
• 1. 修改输入数据。
• 接收大写字符
• 将KeyPreview设置为True时
• Sub Form_KeyPress(KeyAscii As Integer)
• If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
• KeyAscii = KeyAscii + Asc("A") - Asc("a")
• End If
• End Sub
• 如果把它改为某个控件的事件过程，效果一样吗？
•
• 2. 限制数据输入
• 文本框只能接收“0”～“9”的数字字符。
• Sub txtExample_KeyPress(KeyAscii As Integer)
• If KeyAscii < 48 Or KeyAscii > 57 Then
• KeyAscii = 0
• End If
• End Sub