vb中如何用TextBox显示有中文的txt文本？

Question

    Open app.path & "\aa.txt"  For Input As #1   ' 打开配置文件。
        Do While Not EOF(1)
            Line Input #1, Textline
            text1=textline
        Loop
    Close #1

Answer 1

这其中要使用Unicode相关转换，txt里面的文本是Ansi的

Answer 2

private function IsChinese() as boolean
for i=1 to len(text1.text)
if asc(mid(text1.text,i,1))<0 then 
   msgbox "有中文"
   IsChinese=True
   exit sub
endif
next i
end function