Textbox中的限制的问题

[jade-行知意]

在控件中分别限制字母、汉字、数字。还有，限制中文输入的又是什么？？也是asc码吗？？

[jade-行知意]

我在线等，各位大虾多帮忙

[Tiger_Zhao]

'窗体上放 3 个 CheckBox，1 个 TextBox
Option Explicit

Private Sub Form_Load()
    Check1.Caption = "字母"
    Check2.Caption = "数字"
    Check3.Caption = "汉字"
    Text1 = vbNullString
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim bIsValid As Boolean
    
    Select Case KeyAscii
        Case vbKeyA To vbKeyZ, 97 To 122 '[A-Za-z]
            bIsValid = Check1.Value
        Case vbKey0 To vbKey9 '[0-9]
            bIsValid = Check2.Value
        Case Is < 0
            bIsValid = Check3.Value
        Case Else
            
    End Select
    
    If Not bIsValid Then
        KeyAscii = 0
    End If
End Sub

[神马被哪个妞占用了呢]

楼上的很好很强大

[帝企鹅已被占用]

Case Is < 0
??

[贝隆]

写TextBox的KeyPress事件，把不合要去的字符去掉（判断ASCII码），去掉的方法是将KetAscii＝0

[volts0302]

限制IMEMode吧

[guyehanxinlei]

[Quote=引用 5 楼 veron_04 的回复:]
写TextBox的KeyPress事件，把不合要去的字符去掉（判断ASCII码），去掉的方法是将KetAscii＝0
[/Quote]

根据ASCII码值进行过滤

[qifeng031]

用ASCII码值啊。

[dl20070302]

[Quote=引用 2 楼 tiger_zhao 的回复:]
VB code
'窗体上放 3 个 CheckBox，1 个 TextBox
Option Explicit

Private Sub Form_Load()
Check1.Caption = "字母"
Check2.Caption = "数字"
Check3.Caption = "汉字"
Text1 = vbNullString
End Sub
……
[/Quote]

正解

[伍哥的传说]

If LenB(StrConv(Trim$(Text1), vbFromUnicode)) = 2 Then
MsgBox "为汉字"
End If
'限制汉字输入不太可能吧，不过可以用这个判断输入的是否为汉字，之与字母和数字用ASCII码判断就可以了

[赵4老师]

Select Case KeyAscii
Case ASC("A") To ASC("Z"), ASC("a") To ASC("z")
bIsValid = Check1.Value
Case ASC("0") To ASC("9")
bIsValid = Check2.Value
Case Is < 0 '汉字
bIsValid = Check3.Value
Case Else '其它字符
End Select