我想让Label从窗体的一边飞到一定位置停止,请问如何设置写代码啊?
大家帮忙啊!本人感激不尽!
參考答案:Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Form1.Width - Label1.Width Then
Timer1.Enabled = False
End If
End Sub
在窗体上添加一个timer和label
设置timer的interval为10
其他全不用动，运行就下就能看见了。