UC知道VB怎样调用TXT文件?
来源：百度知道 编辑：UC知道 时间：2024/05/21 07:36:14
我用VB做了一个滚动字幕,但是我想更换字幕的文字内容,生成EXE文件后,改的话就要在VB中改,我如何在外部的TXT文件中改文字内容,让字幕显示我改的内容呢?谢谢各位!
LABEL和TIMER控件 这是字幕的代码!
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "欢迎来到我的空间！"
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 1500
If (Label1.Left + Label1.Width) < 0 Then
Label1.Left = Me.ScaleWidth + 10
End If
End Sub
LABEL和TIMER控件 这是字幕的代码!
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "欢迎来到我的空间！"
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 1500
If (Label1.Left + Label1.Width) < 0 Then
Label1.Left = Me.ScaleWidth + 10
End If
End Sub
Option Explicit
Dim txt As String
Private Sub Form_Load()
Open "C:\data.txt" For Input As #1
Input #1, txt
Close
Timer1.Interval = 1000
Label1.Caption = txt
End Sub
Private Sub Form_Unload(Cancel As Integer)
txt = Label1.Caption
Open "C:\data.txt" For Output As #1
Print #1, txt
Close
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 1500
If (Label1.Left + Label1.Width) < 0 Then
Label1.Left = Me.ScaleWidth + 10
End If
End Sub
是不是闪烁的很厉害啊
如果是的话用api
vb中直接移动控件不是个很好的主意
二楼的办法可以，就是用TXT文件存贮要显示的内容，当生成EXE文件后，只要更改，TXT文件中的内容就行了。
楼主说下 你的字幕用的是什么控件？
好帮助你解决问题