窗体背景循环变化////

来源：百度知道 编辑：UC知道 时间：2024/06/14 02:01:17
我想要窗体背景不停的变化,比如有十张图片,从第一张到第十张,每2秒换一张,到第十张时又换第一张,程序没END,就不停的变换,不用图片框控件行不行,怎么实行呢,
另外,怎么把图片装入程序本身中呢,要在别人电脑能运行,只需把EXE发给他就行了,而不要再把图片资源打包,
呵呵,本人初学VB,啥都不懂,请给源码,多谢各位,,,,

最简单的办法：
在窗体添加一个Image的控件数组，如题是10个(0-9)，每个Image控件加载一张图片，这样就可以“而不要再把图片资源打包”。再添加一个Timer控件，代码如下：

DIM A As Integer

Private Sub Form_Load()
Timer1.Interval = 2000
Timer1.Enabled = True
A=0
For I = 0 To 8
Image1(I).Visible =False
Next I
End Sub

Private Sub Timer1_Timer()
Dim I As Integer
For I = 0 To 9
Image1(I).Visible =False
Next I
Image1(A).Visible = True
A = A + 1
If A = 10 Then A = 0
End Sub

按Ctrl+T 引用
Microsoft Windows Common Controls 6.0

在窗体上添加如下控件 ImageList

右击控件 属性 在图像标签页中插入多张图片

然后再添加一个Timer控件
触发时间自定

再添加如下代码 就可以了

Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub

Private Sub Timer1_Timer()
Me.Picture = ImageList1.ListImages.Item(i).Picture
Form1.Caption = "背景" & CStr(i)
If i = 5 Then i = 1
i = i + 1
End Sub