len(TEXT.TEXT)<=8为四个汉字
汉字的ASCII码 ASC(TEXT.TEXT)<=0
汉字的ASCII码 ASC(TEXT.TEXT)<=0
解决方案 »
- 创建窗口后用SetClassLong修改背景刷子的句柄接着再ShowWindow为何指定的背景色无效呢?
- vb winsocket能实现这个设想吗
- 用VB开发activex,如何在程序内部指定一个固定的CLSID
- 如何自动遍历ini文件的多个键值?
- 如何定位文件夹位置??
- 求字符串,用"[]"分隔中的内容如 IF [H1] > [C5] THEN 要求返回 H1 , C5
- 求助!明天交毕设!最后的纠结! 关于VB中 Teechart的只用问题
- 我想将listview的东西拖到treeview,怎么实现?
- 如何在两台普通的机器间传送文件
- 哪有光于VB开发数据库程序看,我给出我仅有的一点点分
- TDBGrid7.0 绑定到 ADO RecordSet时,代码运行Recordset.AddNew后的巨大BUG?!
- 谁有语音聊天组件的源代码??
MsgBox "双字节"
Else
MsgBox "单字节"
End Ifif LenB(StrConv(Text1, vbFromUnicode)) > 8 Then MsgBox "多过四个汉字"
------------------------------------
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是中文字符啦!
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 | 黢 黩 黧 黥 黪 黯 鼢 鼬 鼯 鼹 鼷 鼽 鼾 齄
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