前言：
眼前看官们对“timer控件怎么用”大约比较注重，兄弟们都需要了解一些“timer控件怎么用”的相关文章。那么小编同时在网络上汇集了一些有关“timer控件怎么用””的相关文章，希望看官们能喜欢，咱们一起来了解一下吧！VB小程序，关注我有更多的有趣的VB小程序
所需要素材：一张背景图，一张太阳图片，Timer控件
目标：模拟太阳升空，升的越高太阳就变得越小
目的：学会使用Timer控件
效果图：
代码：
Option Explicit
Dim h%, w%, l%, t%
Private Sub Form_Load() '记住当前的图片框的大小及位置
h = Image1.Height
w = Image1.Width
l = Image1.Left
t = Image1.Top
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 100
Image1.Top = Image1.Top - 50
Image1.Height = Image1.Height - 20
Image1.Width = Image1.Width - 20
If Image1.Top + Image1.Height < 0 Then '当图片框超出屏幕上边界时，太阳图片回到原始大小及位置
Timer1.Enabled = True
Image1.Height = h
Image1.Width = w
Image1.Left = l
Image1.Top = t
End If
End Sub
想得到更多的VB小程序，请关注我
版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #timer控件怎么用
