请教:VB文本框中检查全角字符如何实现

pat_pat 2008-02-27 01:14:52
检查VB的文本框中是否含有全角字符,如果有提示用户改为半角字符,
这在VB中应该怎样实现??(解答最好稍微详细一点,新手=_=)
...全文
27 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dim dic as string 

dic = ",。:?"

for i = 1 to len( dic )
if instr( 1, text1.txt, mid( dic, i, 1 ) ) then
msgbox "有全角字符"
endif
next i
回复
弄一个全角字符字典,比如

dim dic as string

dic = ",。:?"

for i = 1 to len( dic )
if instr( 1, text1.txt, mid( dic, i, 1 ) ) then
msgbox "有全角字符"
endif
next i

稍经改动还可以知道全角字符的具体位置。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-27 01:14
社区公告
暂无公告