189 8069 5689
直线往复移动需要两个command，一个timer，一个lable控件timer的interval属性为1或自定义。折线和曲线需要自己定义方程式。
成都创新互联公司自2013年起，是专业互联网技术服务公司，拥有项目网站建设、网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元呼玛做网站,已为上家服务,为呼玛各地企业和个人服务,联系电话:028-86922220
Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = flase
Timer1_Timer ' .改成_
End Sub
Private Sub Form_Load()
Step = 1
End Sub
Private Sub Timer1_Timer()
Label1.Move Label1.Left + 50 * Step
If Label1.Left + Label1.Width Form1.Width Then
Step = -1
ElseIf Label1.Left 0 Then '改成小于零
Step = 1
End If
End Sub
假设高的移动速度为v1，横的移动速度为v2，小球的控件名为Ball
dim v1 as integer
dim v2 as integer
'下面为小球的移动
Ball.top=ball.top+v '向着右下移动
ball.left=ball.left+v
if ball.top=me.top then '撞击底部
v1=v1*-1 '重点：此处将高的移动速度乘以-1，表示让其反方向移动，下面同样
endif
if ball.left=me.left then '撞击右边
v2=v2*-1
endif
if ball.top=0 then '撞击顶部
v1=v1*-1
endif
if ball.left=0 then '撞击左边
v2=v2*-1
endif
这是最基本的反弹效果，可以根据你的需要做适当更改
'窗体加一个timer1
Dim x As Boolean
Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() '
If x Then
Shape1.Left = Shape1.Left - 100
Else
Shape1.Left = Shape1.Left + 100
End If
If Shape1.Left = Me.ScaleWidth - Shape1.Width Then
x = True
ElseIf Shape1.Left = 0 Then
x = False
End If
End Sub
窗体是指由两个列表框（ListBox1、ListBox2）和4个命令按钮（Button1“”按钮，Button2“”按钮，Button3“”按钮，Button4“”按钮）所构成的界面，代码：
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Text = "选项移动"
ListBox1.SelectionMode = SelectionMode.MultiSimple
ListBox2.SelectionMode = SelectionMode.One
For i = 1 To 10
ListBox1.Items.Add(Chr(Asc("a") + i - 1))
Next
For i = 1 To 10
ListBox2.Items.Add(i.ToString)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItems Is Nothing Then Exit Sub
Dim b As ListBox.ObjectCollection
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(0))
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(0))
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If ListBox2.SelectedItems IsNot Nothing Then
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each itm As Object In ListBox1.Items
ListBox2.Items.Add(itm)
Next
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For Each itm As Object In ListBox2.Items
ListBox1.Items.Add(itm)
Next
ListBox2.Items.Clear()
End Sub
End Class