vb 文本刷新

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:33:52
我要做一个窗体，窗体上有一个text文本框，text显示d:\123.txt的内容。但我要做的是，当d:\123.txt文件内容改变并保存后，text文本框会立即显示修改后的内容，请问这要怎么写代码，请高手帮帮我写下代码！

楼上的代码不好·看的出来·容易，模仿·用变量代替 TEXT 在显示在TEXT上
不好意思·修改一下 ，顺便加个如果不存在
需要设置控件属性：
Timer1.Interval=1000
Text1.MultiLine=True

代码：
Private Sub Timer1_Timer()
Dim TextLine As String ，s as string
if dir("d:\123.txt") = "" then
else
Open "d:\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
s = s & vbCrLf & TextLine
Loop
s = left(s,len(s)-1) '去掉最后一个回车
text1.text = s
Close #1
end if
End Sub

只需要把显示文本的代码加载Timer空间里即可

需要设置控件属性：
Timer1.Interval=1000
Text1.MultiLine=True

代码：
Private Sub Timer1_Timer()
Dim TextLine As String

Open "d:\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Text1.Text = Text1.Text & vbCrLf & TextLine
Loop
Close #1
End Sub

举例：
文本框名为txtSngInput,