第一次提问：如何限制文本框输入的内容

Question

如何限制文本框输入的内容仅是英文或仅是汉字或是数字。、或者格式为*·*
谢谢大家

Answer 1

Public Function sffunLimitNumber(ByVal IntVal As Integer) As Integer
'-------------------1-------------------
'目    的：只允许在文本框内输入数字、退格、删除及回车键
'输    入：ByVal IntVal As Integer,任意的键值
'被传递值：无
'返 回 值：过滤后的键值
'输    出：无
'注    解：
'用    法：在文本框的KeyPress事件中输入KeyAscii = sffunLimitNumber(KeyAscii)即可
'修 订 版：
'-------------------1-------------------
If (IntVal <> vbKeyDelete) _
And (IntVal <> vbKeyBack) _
And (IntVal <> 13) _
And (IntVal < 48 Or IntVal > 57) Then
    IntVal = 0
End If
sffunLimitNumber = IntValEnd Function

Answer 2

在文本框的KeyPress事件中判断

Answer 3

KeyPress可以用asc来判断
数字英文的可以查到
汉字的asc值都小于0