请问这段代码还能不能简化了？

来源：百度知道 编辑：UC知道 时间：2024/09/27 06:15:59
Private Sub Command1_Click()
Timer1.Enabled = True
Timer3.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer1.Interval = 100
Timer2.Interval = 100
Timer3.Interval = 1
Image1.Picture = LoadPicture("E:\2-6-2009%202-05-06%20AM.gif")

End Sub

Private Sub Timer1_Timer()
Image1.Height = Image1.Height + 150
Image1.Width = Image1.Width + 150

End Sub

Private Sub Timer2_Timer()
Image1.Height = Image1.Height - 150
Image1.Width = Image1.Width - 150

End Sub

Private Sub Timer3_Timer()
If Image1.Width > 4695 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf Image1.Width < 615 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If

End Sub
代码的意图是点击一下Command1后，Image1自动放大到指定大小，再缩小到原来大小，再放大，再缩小，这样循环。

Public t As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
t = 150
Image1.Picture = LoadPicture("E:\2-6-2009%202-05-06%20AM.gif")
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Image1.Width > 4695 Or Image1.Width < 615 Then t = 0 - t
Image1.Height = Image1.Height + t
Image1.Width = Image1.Width + t
End Sub
VB6+xp运行通过!
可以达到你所要求的目的
当然,为了防止图片格式或大小出问题,可以把TIME1_TIMER改成如下
Private Sub Timer1_Timer()
On Error Resume Next
If Image1.Width > 4695 Then t = -Abs(t)
If Image1.Width < 615 Then t = Abs(t)
Image1.Height = Image1.Height + t
Image1.Width = Image1.Width + t
End Sub

代码的意图是？

差不多了吧，没必要再简化了啊

不可以了，差不多是很简化的了。