Question

VB中如何实现文字在窗体中来回移动？

Answer 1

在窗体上各画一个label和timer控件
Dim IsLeft As Boolean
Private Sub Form_load()
Timer1.Enabled = True
Timer1.Interval = 100
IsLeft = True
End Sub
Private Sub Timer1_Timer()
If IsLeft And Label1.Left + Label1.Width <= Me.Width Then
Label1.Left = Label1.Left + 100
Else
IsLeft = False
End If
If Not IsLeft And Label1.Left > 0 Then
Label1.Left = Label1.Left - 100
Else
IsLeft = True
End If
End Sub

追问

求VB代码：设计一个模拟网络购物程序。使用列表框列出可购买的商品，用户通过列表框各项前的复选框来选择。选择后，出现价格，当用户输入数量后，程序自动计算出购买商品的类型、单价、数量和金额，请高手指教下，谢谢

追答

你这是抛砖引玉啊！搞了一个小问题，后面来个大问题！你真给力！

Answer 2

Option Explicit
Private Sub Timer1_Timer()
Static N As Long
N = N + 10
Label1.Left = Label1.Left + N
End Sub
如果到边了,再判断一下,Label1.Left = Label1.Left -N

Answer 3

定时器