摘要: Const xStr As String = "0123456789" '先声明一个常量,并把你想禁用或允许输入的内容赋值给它 Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入数字 KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0) End Sub Priv... 阅读全文
posted @ 2016-09-22 17:37 comsky 阅读(2736) 评论(0) 推荐(0) 编辑