UC知道用vb设计一个一只蝴蝶从左下角右上角飞当蝴蝶位置超出右上角后回到左下角 然后重复以上动作
来源：百度知道 编辑：UC知道 时间：2024/06/17 07:41:03
=。=第一次提问 只有这点分数可以提供 请见谅 希望知道的可以帮个忙
在窗体上画一个按钮、一个Image控件和一个Timer控件，在代码窗体写如下代码：（图片名称自己改）
Private Sub Command1_Click()
Image1.Left = 0
Image1.Top = Form1.Height - Image1.Height - 500
Image1.Picture = LoadPicture("D:\绿灯.ico")
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Form1.Width = Form1.Height - 500
Timer1.Interval = 200
Timer1.Enabled = False
Timer1.Interval = 200
Command1.Left = (Form1.Width - Command1.Width) / 2
Command1.Top = Form1.Height * 3 / 4
End Sub
Private Sub Timer1_Timer()
If (Image1.Left + Image1.Width >= Form1.Width) Or (Image1.Top <= 0) Then
Image1.Left = 0
Image1.Top = Form1.Height - Image1.Height - 500
End If
Image1.Left = Image1.Left + 100
Image1.Top = Image1.Top - 100
End Sub