VBA自学应用（7）——文本框中限制输入标点符号和汉字

代码如下

Private Sub TextBox1_Change()
    Dim i As Integer
    Dim strs As String
    Dim reg As Object, reg1 As Object
    Set reg = CreateObject("vbscript.regexp")
    With reg
        .Global = True
        .Pattern = "[一-龢]|[^0-9A-Za-z一-龢]"
        '匹配标点符号和汉字
    End With
    With TextBox1
        For i = 1 To Len(.Text)
            strs = Mid(.Text, i, 1)
            If Not reg.test(strs) Then
                .Text = Replace(.Text, strs, "")
            End If
        Next
    End With
End Sub