web前端工程师薪资:vb滚动显示一个文本文件的代码

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 13:51:08
有没有帮忙的 在这里先谢谢了!!!!!!1#89

以下是用于滚动显示文本框内文本的代码,你需修改使用:
Private Sub Timer1_Timer()
lTxt = Len(pm_TsOld)
If lTxt > 256 Then
lTxt = 256
Else
lTxt = lTxt
End If
Me.Text1.Width = 60 * lTxt
Me.Text1.Left = 7680 - 30 * lTxt
If lTxt > 0 Then
pm_TsOld = Mid(pm_TsOld, 2, lTxt - 1) & Mid(pm_TsOld, 1, 1)
End If
End Sub