Question

做一个图片从左到右自动移动的程序，当图片移到窗体边框后自动改为从右到左移动

用VB怎么编写啊
注意:图片从左到右自动移动
而不是从右向左
移到窗体边,只是说从右移到左

Answer 1

已经改了

Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 10
Timer2.Interval = 10
End Sub

Private Sub Timer1_Timer()

Picture1.Left = Picture1.Left + 10
If Picture1.Left + Picture1.Height > Form1.Height - 500 Then
Timer2.Enabled = True
Timer1.Enabled = False
End If

End Sub

Private Sub Timer2_Timer()

Picture1.Left = Picture1.Left - 10
If Picture1.Left < 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If

End Sub