vb急问 高手来指导

来源：百度知道 编辑：UC知道 时间：2024/05/30 12:05:49
我现在想往窗体中放2副图 然后做好以后点开窗体 2副图就按先后顺序自动换图 比如2副图是123.bmp和456.bmp 请高手写出具体的做法 详细些
大哥非常感谢你 你有QQ吗我加你 我想拜你做师傅哦

能不能把那些代码的意思给我说说啊 我有些看不懂

将两幅图片分别设置在image对象的picture属性中，改变TIMER的属性Interval的设置值可改变切换频率：
Option Explicit
Dim flagT As Boolean
Private Sub Timer1_Timer()
If flagT Then
Image1.Visible = True
Image2.Visible = False
Else
Image1.Visible = False
Image2.Visible = True
End If
flagT = Not flagT
End Sub

Option Explicit
Dim flagT As Boolean
Private Sub Timer1_Timer()
If flagT Then
Image1.Visible = True
Image2.Visible = False
Else
Image1.Visible = False
Image2.Visible = True
End If
flagT = Not flagT
End Sub

先在窗体内放一个TIMER控件，然后设置自动换图的间隔，在TIMER的TIMER事件里设置image对象的picture属性。