len(TEXT.TEXT)<=8为四个汉字
汉字的ASCII码 ASC(TEXT.TEXT)<=0

解决方案 »

  1.   

    If LenB(Text1) = LenB(StrConv(Text1, vbFromUnicode)) Then
        MsgBox "双字节"
      Else
        MsgBox "单字节"
      End Ifif LenB(StrConv(Text1, vbFromUnicode)) > 8 Then MsgBox "多过四个汉字" 
      

  2.   

    用这个函数行吗?
    ------------------------------------
    Private Function IsChineseCharacter(Character As String) As Boolean
    Dim EChr As Integer
    Dim CChr As IntegerEChr = Asc(Character)
    CChr = AscW(Character)If EChr = CChr Then
        IsChineseCharacter = False
    Else
        IsChineseCharacter = True
    End If
    End Function
    -----------------------------------
    返回True是中文字符啦!
      

  3.   

    根据区位码来区分吧:
    Private Sub Command1_Click()    Dim strpara         As String
        Dim bQW()           As Byte
        Dim iqh             As Integer
        Dim iwh             As Integer
        
        strpara = Mid(Text1.Text, 1, 1)
        
        If Hex(Asc(strpara)) < &H80 Then
            MsgBox "'非汉字"
        
        Else
            bQW = StrConv(strpara, vbFromUnicode)
            iqh = bQW(0) - &HA0
            iwh = bQW(1) - &HA0
            
            If CStr(Hex(iqh)) < 16 Or CStr(Hex(iqh)) > 81 Then
                MsgBox "'非汉字"
                
            Else
                MsgBox "'汉字"
            End If
        End If
    End Sub======================================================
     01 01 |   、 。 · ˉ ˇ ¨ 〃 々 — ~ ‖ … ‘ ’ “ 
     01 17 | ” 〔 〕 〈 〉 《 》 「 」 『 』 〖 〗 【 】 ± 
     01 33 | × ÷ ∶ ∧ ∨ ∑ ∏ ∪ ∩ ∈ ∷ √ ⊥ ∥ ∠ ⌒ 
     01 49 | ⊙ ∫ ∮ ≡ ≌ ≈ ∽ ∝ ≠ ≮ ≯ ≤ ≥ ∞ ∵ ∴ 
     01 65 | ♂ ♀ ° ′ ″ ℃ $ ¤ ¢ £ ‰ § № ☆ ★ ○ 
     01 81 | ● ◎ ◇ ◆ □ ■ △ ▲ ※ → ← ↑ ↓ 〓  02 01 | ⅰ ⅱ ⅲ ⅳ ⅴ ⅵ ⅶ ⅷ ⅸ ⅹ       
     02 17 | ⒈ ⒉ ⒊ ⒋ ⒌ ⒍ ⒎ ⒏ ⒐ ⒑ ⒒ ⒓ ⒔ ⒕ ⒖ ⒗ 
     02 33 | ⒘ ⒙ ⒚ ⒛ ⑴ ⑵ ⑶ ⑷ ⑸ ⑹ ⑺ ⑻ ⑼ ⑽ ⑾ ⑿ 
     02 49 | ⒀ ⒁ ⒂ ⒃ ⒄ ⒅ ⒆ ⒇ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ 
     02 65 | ⑨ ⑩   ㈠ ㈡ ㈢ ㈣ ㈤ ㈥ ㈦ ㈧ ㈨ ㈩   
     02 81 | Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ Ⅺ Ⅻ    03 01 | ! " # ¥ % & ' ( ) * + , - . / 0 
     03 17 | 1 2 3 4 5 6 7 8 9 : ; < = > ? @ 
     03 33 | A B C D E F G H I J K L M N O P 
     03 49 | Q R S T U V W X Y Z [ \ ] ^ _ ` 
     03 65 | a b c d e f g h i j k l m n o p 
     03 81 | q r s t u v w x y z { | }  ̄  04 01 | ぁ あ ぃ い ぅ う ぇ え ぉ お か が き ぎ く ぐ 
     04 17 | け げ こ ご さ ざ し じ す ず せ ぜ そ ぞ た だ 
     04 33 | ち ぢ っ つ づ て で と ど な に ぬ ね の は ば 
     04 49 | ぱ ひ び ぴ ふ ぶ ぷ へ べ ぺ ほ ぼ ぽ ま み む 
     04 65 | め も ゃ や ゅ ゆ ょ よ ら り る れ ろ ゎ わ ゐ 
     04 81 | ゑ を ん             05 01 | ァ ア ィ イ ゥ ウ ェ エ ォ オ カ ガ キ ギ ク グ 
     05 17 | ケ ゲ コ ゴ サ ザ シ ジ ス ズ セ ゼ ソ ゾ タ ダ 
     05 33 | チ ヂ ッ ツ ヅ テ デ ト ド ナ ニ ヌ ネ ノ ハ バ 
     05 49 | パ ヒ ビ ピ フ ブ プ ヘ ベ ペ ホ ボ ポ マ ミ ム 
     05 65 | メ モ ャ ヤ ュ ユ ョ ヨ ラ リ ル レ ロ ヮ ワ ヰ 
     05 81 | ヱ ヲ ン ヴ ヵ ヶ          06 01 | Α Β Γ Δ Ε Ζ Η Θ Ι Κ Λ Μ Ν Ξ Ο Π 
     06 17 | Ρ Σ Τ Υ Φ Χ Ψ Ω         
     06 33 | α β γ δ ε ζ η θ ι κ λ μ ν ξ ο π 
     06 49 | ρ σ τ υ φ χ ψ ω        ︵ 
     06 65 | ︶ ︹ ︺ ︿ ﹀ ︽ ︾ ﹁ ﹂ ﹃ ﹄   ︻ ︼ ︷ 
     06 81 | ︸ ︱  ︳ ︴           07 01 | А Б В Г Д Е Ё Ж З И Й К Л М Н О 
     07 17 | П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю 
     07 33 | Я                
     07 49 | а б в г д е ё ж з и й к л м н о 
     07 65 | п р с т у ф х ц ч ш щ ъ ы ь э ю 
     07 81 | я               08 01 | ā á ǎ à ē é ě è ī í ǐ ì ō ó ǒ ò 
     08 17 | ū ú ǔ ù ǖ ǘ ǚ ǜ ü ê ɑ  ń ň  ɡ 
     08 33 |     ㄅ ㄆ ㄇ ㄈ ㄉ ㄊ ㄋ ㄌ ㄍ ㄎ ㄏ ㄐ 
     08 49 | ㄑ ㄒ ㄓ ㄔ ㄕ ㄖ ㄗ ㄘ ㄙ ㄚ ㄛ ㄜ ㄝ ㄞ ㄟ ㄠ 
     08 65 | ㄡ ㄢ ㄣ ㄤ ㄥ ㄦ ㄧ ㄨ ㄩ        
     08 81 |                09 01 |    ─ ━ │ ┃ ┄ ┅ ┆ ┇ ┈ ┉ ┊ ┋ ┌ 
     09 17 | ┍ ┎ ┏ ┐ ┑ ┒ ┓ └ ┕ ┖ ┗ ┘ ┙ ┚ ┛ ├ 
     09 33 | ┝ ┞ ┟ ┠ ┡ ┢ ┣ ┤ ┥ ┦ ┧ ┨ ┩ ┪ ┫ ┬ 
     09 49 | ┭ ┮ ┯ ┰ ┱ ┲ ┳ ┴ ┵ ┶ ┷ ┸ ┹ ┺ ┻ ┼ 
     09 65 | ┽ ┾ ┿ ╀ ╁ ╂ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ ╋  
     09 81 |                10 01 |                 
     10 17 |                 
     10 33 |                 
     10 49 |                 
     10 65 |                 
     10 81 |                11 01 |                 
     11 17 |                 
     11 33 |                 
     11 49 |                 
     11 65 |                 
     11 81 |                12 01 |                 
     12 17 |                 
     12 33 |                 
     12 49 |                 
     12 65 |                 
     12 81 |                13 01 |                 
     13 17 |                 
     13 33 |                 
     13 49 |                 
     13 65 |                 
     13 81 |                14 01 |                 
     14 17 |                 
     14 33 |                 
     14 49 |                 
     14 65 |                 
     14 81 |                15 01 |                 
     15 17 |                 
     15 33 |                 
     15 49 |                 
     15 65 |                 
     15 81 |                16 01 | 啊 阿 埃 挨 哎 唉 哀 皑 癌 蔼 矮 艾 碍 爱 隘 鞍 
     16 17 | 氨 安 俺 按 暗 岸 胺 案 肮 昂 盎 凹 敖 熬 翱 袄 
     16 33 | 傲 奥 懊 澳 芭 捌 扒 叭 吧 笆 八 疤 巴 拔 跋 靶 
     16 49 | 把 耙 坝 霸 罢 爸 白 柏 百 摆 佰 败 拜 稗 斑 班 
     16 65 | 搬 扳 般 颁 板 版 扮 拌 伴 瓣 半 办 绊 邦 帮 梆 
     16 81 | 榜 膀 绑 棒 磅 蚌 镑 傍 谤 苞 胞 包 褒 剥 
    86 01 | 觥 觫 觯 訾 謦 靓 雩 雳 雯 霆 霁 霈 霏 霎 霪 霭 
     86 17 | 霰 霾 龀 龃 龅 龆 龇 龈 龉 龊 龌 黾 鼋 鼍 隹 隼 
     86 33 | 隽 雎 雒 瞿 雠 銎 銮 鋈 錾 鍪 鏊 鎏 鐾 鑫 鱿 鲂 
     86 49 | 鲅 鲆 鲇 鲈 稣 鲋 鲎 鲐 鲑 鲒 鲔 鲕 鲚 鲛 鲞 鲟 
     86 65 | 鲠 鲡 鲢 鲣 鲥 鲦 鲧 鲨 鲩 鲫 鲭 鲮 鲰 鲱 鲲 鲳 
     86 81 | 鲴 鲵 鲶 鲷 鲺 鲻 鲼 鲽 鳄 鳅 鳆 鳇 鳊 鳋  87 01 | 鳌 鳍 鳎 鳏 鳐 鳓 鳔 鳕 鳗 鳘 鳙 鳜 鳝 鳟 鳢 靼 
     87 17 | 鞅 鞑 鞒 鞔 鞯 鞫 鞣 鞲 鞴 骱 骰 骷 鹘 骶 骺 骼 
     87 33 | 髁 髀 髅 髂 髋 髌 髑 魅 魃 魇 魉 魈 魍 魑 飨 餍 
     87 49 | 餮 饕 饔 髟 髡 髦 髯 髫 髻 髭 髹 鬈 鬏 鬓 鬟 鬣 
     87 65 | 麽 麾 縻 麂 麇 麈 麋 麒 鏖 麝 麟 黛 黜 黝 黠 黟 
     87 81 | 黢 黩 黧 黥 黪 黯 鼢 鼬 鼯 鼹 鼷 鼽 鼾 齄 
      

  4.   

    如果Asc(Mid(Text.text,N,1))>256,则第N个字可能是汉字。
      

  5.   


    Private Sub Text1_Validate(Cancel As Boolean)
      If LenB(Text1) <> LenB(StrConv(Text1, vbFromUnicode)) Then
        MsgBox "有单字节,请输入双字节字符!"
        Cancel = True
        Exit Sub
      End If
      
      If LenB(StrConv(Text1, vbFromUnicode)) > 8 Then
        MsgBox "多过四个汉字,请修改!"
        Cancel = True
        Exit Sub
      End If