Question

请问怎么用vb编一个让窗体上的文字左右移动程序

就是用在vb窗体上写文字程序运行时让文字在窗体上左右循环移动
你们写的好像没有写字上去啊怎么让字在上面移动啊

Answer 1

新建工程,一个按钮,一个label,一个timer

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
End If
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
Command1.Caption = "开始"
Label1.Caption = ""
Label1.AutoSize = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
Label1.Left = Label1.Left - 10
If Label1.Left + Label1.Width <= 0 Then Label1.Left = Me.Width
End Sub

Answer 2

一个标签..一个时钟控件
Private Sub timer1_timer()

If Label1.Left < Width + Left - 150 Then
Label1.Move Label1.Left + 150

Else
Label1.Left = Label1.Left - Width

End If

End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Integer
i = 700
If Label1.Left > 0 Then
Label1.Move (Label1.Left - i)
i = i + 700
Else
Label1.Left = 8280

End If
End Sub

Private Sub Command2_Click()
End
End Sub
我也刚学，我写的这个不知道是不是你想要的．
大家一起学习啊！

Answer 4

Dim a, b
Private Sub Form_Load()
b = 0
a = Space(30) & "Hello!"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
If b < Len(a) - 1 Then b = b + 1 Else b = 0
Label1 = Mid(a, b, Len(a) - b) & Mid(a, 1, b)
End Sub

REM 设置timer1.interval=333就可以了

Answer 5

VB自带了这样的一个功能呀
你自己去仔细看哈 肯定看得到
和FRONTPAGE是一样的有自带的模板