7,763
社区成员
发帖
与我相关
我的任务
分享文本打开的问题
我的程序如下：
Private Sub mune_open_Click()
Dim T As String
Text1.Text = ""
CommDiag1.Filter = "文本文件|*.txt"
CommDiag1.ShowOpen
Open CommDiag1.FileName For Binary As #1
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
程序可以运行，但是text1文本框里没有任何东西 ，请问各位高手怎么样将文件打开并将其送给text
文本框呢？？
Private Sub mune_open_Click()
Dim T As String
Text1.Text = ""
CommDiag1.Filter = "文本文件|*.txt"
CommDiag1.ShowOpen
Open CommDiag1.FileName For Binary As #1
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
程序可以运行，但是text1文本框里没有任何东西 ，请问各位高手怎么样将文件打开并将其送给text
文本框呢？？
...全文
请发表友善的回复…
发表回复
northwolves 2005-11-02
- 打赏
- 举报
少个括号:
T需要初始化,如:
Open CommDiag1.FileName For Binary As #1
T=SPACE(LOF(1))
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
T需要初始化,如:
Open CommDiag1.FileName For Binary As #1
T=SPACE(LOF(1))
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
northwolves 2005-11-02
- 打赏
- 举报
T需要初始化,如:
Open CommDiag1.FileName For Binary As #1
T=SPACE(LOF(1)
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
Open CommDiag1.FileName For Binary As #1
T=SPACE(LOF(1)
Get #1, , T
Close #1
Text1.Text = text1.text & T
End Sub
chenyanlin 2005-11-02
- 打赏
- 举报
大哥 来学习就不要出声 在一边看着 学着 看把我高兴的 以为高手亲临
adaoke_captain 2005-11-02
- 打赏
- 举报
我来学习学习
