Question

vb实现图像从窗体左上角向右下角逐渐移动的代码 使用timer控件

运行初始时，移动按钮有效，停止按钮无效，且关闭定时器。单击移动按钮，激活定时器，图像开始向右下角移动，且移动按钮无效，停止按钮有效。单击停止按钮，则关闭定时器，将图像移回到左上角，且移动按钮有效，停止按钮无效。

Answer 1

Private Sub Command1_Click()
Command2.Enabled = True
Command1.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
Image1.Top = 0
Image1.Left = 0
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Timer1.Enabled = False
Timer1.Interval = 100
Image1.Top = 0
Image1.Left = 0
End Sub

Private Sub Timer1_Timer()
a = Image1.Top
b = Image1.Left
a = a + Form1.Height / 50
b = b + Form1.Width / 50
If a > Form1.Height Or b > Form1.Width Then
Command1.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
Image1.Top = 0
Image1.Left = 0
Else
Image1.Top = a
Image1.Left = b
End If
End Sub

Answer 2

这个很容易啊，程序如下：