![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb读取txt内容到vb文本框中 5
在vb中,有一个文本框text1,和一个按钮command1,在我的电脑c盘中有个名叫abc的文本1.txt,里面的内容为abcdefg,怎样写能让点击按钮后,text1...
在vb中,有一个文本框text1,和一个按钮command1,在我的电脑c盘中有个名叫abc的文本1.txt,里面的内容为abcdefg,怎样写能让点击按钮后,text1中显示txt中的内容
展开
3个回答
展开全部
Private Sub command1_click()
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile = FreeFile
Open "c:\1.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile = FreeFile
Open "c:\1.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询