Question

关于VB的。小。编程题。。。麻烦高手再帮帮忙啦。。非常感谢。。。

在窗体建立一个时钟、一个图像（image1）控件（其Stretch属性位True）和两个命令按钮“移动”、“停止”。程序运行后，单击“移动”按钮图画将在窗体内随机移动位置、单击“停止”按钮将停止移动。

Answer 1

'你可以试试看这样做

Dim a, x, y
Private Sub Command2_Click()
a = 0
Command2.Enabled = 0
Command1.Enabled = 1
End Sub
Private Sub Command1_Click()
'随机是不是这个意思？
x = Round(Rnd * r() * 50)
y = Round(Rnd * r() * 50)
a = 1
Timer1.Interval = 1
Command2.Enabled = 1
Command1.Enabled = 0
End Sub
Private Sub Form_Load()
a = 0
Randomize
Command1.Caption = "开始"
Command2.Caption = "停止"
Command2.Enabled = a
Image1.Stretch = True
Image1.Picture = LoadPicture("d:\a.jpg") '图像路径
End Sub
Function r()
r = Round(-1 ^ Rnd)
End Function
Private Sub Timer1_Timer()
If a = 1 Then
With Image1
.Width = 400 '宽
.Height = 400 '高
.Left = .Left + x
.Top = .Top + y
If .Left <= 200 Then x = Abs(x)
If .Top <= 200 Then y = Abs(y)
If .Left + .Width + 200 >= Me.Width Then x = -Abs(x)
If .Top + .Height + 400 >= Me.Height Then y = -Abs(y)
End With
End If
End Sub