Question

在VB程序中，做一个每20秒从小变大一次的图形，类似定时器的东西，求高手帮助，求详细代码！！！急！！

Answer 1

在窗体上画个图形框控件 Image1, 和 时间控件 Timer 复制代码

Private Sub Form_Load() '窗体加载事件
'设置时间控件 每秒触发一次事件过程
Timer1.Interval = 1000
'设置图形框居中
Image1.Left = (Me.ScaleWidth - Image1.Width) / 2
Image1.Top = (Me.ScaleHeight - Image1.Height) / 2
'设置图形框Stertch属性，使图片自动适应图形框大小
Image1.Stretch = True
'加载图片
Image1.Picture = LoadPicture("d:\a.jpg")
End Sub

Private Sub Timer1_Timer() '时间控件事件
Static n As Integer '声明静态变量N 为整数

n = n + 1 '每触发一次该事件，N的值加1

If n Mod 20 = 0 Then '判断，如果N的值能被20整数，那么

'图形框的宽度和高度都加上100
Image1.Width = Image1.Width + 100
Image1.Height = Image1.Height + 100

'图形框居中显示
Image1.Left = (Me.ScaleWidth - Image1.Width) / 2
Image1.Top = (Me.ScaleHeight - Image1.Height) / 2

End If '结束判断

End Sub

不懂追问

Answer 2

用timer控件控制每秒的图片变换呗，用一个变量控制时间每到20秒的时候归零

追问

。。。QAQ可不可以有具体的过程或者代码，完全新手啊。。。看不明白。。。

追答

Option Explicit

Private WithEvents tim As Timer
Private lab As Label

Dim i%, k%
Private Sub Form_Load()
Set tim = Controls.Add("vb.timer", "tim")
Set lab = Controls.Add("vb.label", "lab")
With lab
.AutoSize = True
.Top = Form1.Height / 3
.Left = Form1.Width / 3
.Visible = True
.Caption = "○"
.FontSize = 5
End With
tim.Enabled = True
tim.Interval = 1000
i = 1
End Sub

Private Sub tim_Timer()
i = i + k
lab.FontSize = 5 * i
If i = 10 Then
k = -1
ElseIf i = 1 Then
k = 1
End If
End Sub

直接贴代码运行就可以了，不需要添加控件了，感觉可以了就生成exe交给老师吧。。。

Answer 3

图形变大变小。。
要有图片控件才行。。
不然你就是变大变小多很难实现。。
你还是换简单的点的吧。。
定时器还是很简单的。
定个时间显示下图片还是可以的。。。