Question

VB怎么读取文本到textbox？

文本内容比较多，我读取以后中文显示是乱码，而且还不让我读取到textbox

Answer 1

Private Sub nmduqu_Click() '快速读取
Dim b3$, a$, b$ ‘定义变量
a = "\记事本.txt" '文件名
b = Text1.Text ’文本框内容
If Dir(App.Path & a) = "" Then '如果搜索不到指定文件
MsgBox "文件不存在，请重新检查！", vbOKOnly, "温馨提示"
Else
Open App.Path & a For Input As #1 '打开指定文件
Do While Not EOF(1) '-------------------读取
Line Input #1, b '-------------------------读取
b3 = b3 + b & Chr(13) + Chr(10) '----读取
Loop '---------------------------------------读取
Close #1'-----------------------------------读取
Text1.Text = b3'---------------------------读取完毕
End If
End Sub

'此种快速读取方式无需任何控件，方便好用，文件名处略作修改即可制作成个人专用记事本。

Answer 2

Open “c:\1.txt” For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1

追问

不行，就读取了几个问号给我

追答

留个QQ我远程看看。

追问

私信你了