我做了个小例子: Dim flag As IntegerPrivate Sub Form_Load() flag = 1 Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() If flag = 1 Then Set Picture1.Picture = LoadPicture("d:\bmp\2.bmp") flag = 2 Else Set Picture1.Picture = LoadPicture("d:\bmp\10.bmp") flag = 1 End If End Sub
每个 picturebox 都可以装入保存 一个图片显示的时候轮流设置picturebox(i) 的visible 或 zorder
picturebox比较耗资源
如装载的是icon的时候,picturebox却不可以
picturebox.picture=loadpicture("图片路径")就可以环图片了
最好用image控件,节约资源嘛,使用方法同picture
Dim flag As IntegerPrivate Sub Form_Load()
flag = 1
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
If flag = 1 Then
Set Picture1.Picture = LoadPicture("d:\bmp\2.bmp")
flag = 2
Else
Set Picture1.Picture = LoadPicture("d:\bmp\10.bmp")
flag = 1
End If
End Sub