Question

VB中，如何让标签在窗体中反复的左右移动。（要用timer控件吗）

能实现动态效果就行

Answer 1

Dim flag As Boolean

Private Sub Form_Load()
flag = True
End Sub

Private Sub Timer1_Timer()
If flag = True Then
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width - Label1.Width Then flag = False
Else
Label1.Left = Label1.Left - 50
If Label1.Left < 0 Then flag = True
End If
End Sub
我考二级VB试的时候抽中了这道题 嘻嘻

Answer 2

要用timer

Answer 3

label1.left=label1.left+"移动距离"
if label1.left=form1.width then
label1.left=0
end if