请问如何能将输入文本框中的字母转换成汉字

Question

比如象这段代码:
Private sub text1_keypress(KeyAscii as integer)
Dim comp As Boolean
comp=Chr(KeyAscii) like "[A-Za-z]" or KeyAscii=8
if comp=False then
KeyAscii=0
end if
end sub
判断有输入文本框中是否为字母,如果不是则什么也不输入.
那么如果我想判断输入文本框中的是否为字母,并将其转换为汉字显示在文本框内应该怎么办呢?要用到什么函数,举个例子最好.

Answer 1

不明白在说什么？汉字，字母有什么必然联系？
Chr、ChrW函数转汉字

Answer 2

不是什么必然联系,是题目是这么要求的.
在一个文本框里要输入客户名,必须是汉字,就是怎么判断输入的是汉字,就这么简单,明白了?
CHR只能判断输入的是否为字符.

Answer 3

可以用lenb结合len判断，汉字的话lenb长度必然是len的两倍

Answer 4

我给一个简单的例子，在大部分情况下是可以用的，呵呵
   if trim(text1.text)>"~" then
       msgbox "汉字哦"
   else
       msgbox "非汉字"
   end if

Answer 5

定义一byte数组，将String变量直接赋给它，观察汉字和其它字符值的不同，你就明白该怎样做了