VB开发——如何实现只允许输入汉字的文本框

Private Sub SrcTxt_Change()
    Static SStr As String

    Dim i As Integer

    TotalNum = 0

    L = Len(SrcTxt.Text)

    For i = 1 To L

        tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1), vbWide)

        If Asc(Mid$(SrcTxt.Text, i, 1)) < 0 Then

            TotalNum = TotalNum + 1

            SStr = SrcTxt.Text

        Else

            MsgBox "写入的不是汉字！"

            SrcTxt.Text = Left(SrcTxt.Text, Len(SrcTxt.Text) - 1)

            Exit Sub

        End If

    Next i

    LblNum.Caption = Str$(TotalNum) + "个汉字"

End Sub

使用了change属性，可是实时的判断。

还顺便发现了几篇文章和资料，一起摘录过来了

关于VB操作Excel的：

http://blog.youkuaiyun.com/rainsnow/archive/2005/01/04/239385.aspx

http://blog.youkuaiyun.com/evanju/archive/2005/02/16/289557.aspx

http://blog.youkuaiyun.com/lwjvince/archive/2006/03/10/620942.aspx

Excel Home

http://www.excelhome.net/Index.html