在VB 中如何实现图片循环放映

Question

在VB 中如何实现图片循环放映啊！！

Answer 1

 
 1.新建一个标准EXE工程。 2.选择菜单 ： 工程>>部件，
在打开的窗口中下拉勾选"Microsoft Windows Common Controls 6.0 (SP66)" ，确定。 3.向 Form1中添加一个 ImageList控件，一个 Image控件，一个 Timer控件。 4.右键 ImageList控件，选择“属性”，切换到“图像”选项卡，点击“插入图片”插入一张图片，
将所有需要切换的图片依次插入进来，确定，记住插入的图片总数！ 5.打开代码编辑器，将下列代码复制进去：
Option ExplicitDim i As Integer
Dim k As IntegerPrivate Sub Form_Load()k = 3 'ImageList控件中需要切换的图片总数，我这里有三张    Timer1.Interval = 1000
    Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()    If i < 3 Then
            Image1.Picture = ImageList1.ListImages.Item(i + 1).Picture
            i = i + 1
    
    Else
            Image1.Picture = ImageList1.ListImages.Item(1).Picture
            i = 1
            
    End IfEnd Sub 6.运行/调试！

Answer 2

Option ExplicitDim i As Integer
Dim k As IntegerPrivate Sub Form_Load()k = 3 'ImageList控件中需要切换的图片总数    Timer1.Interval = 1000
    Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()    If i < k Then ’ 此处应该是 k ，也就是图片总数，如果你要用变量K也可以直接在此处将k换为数字
            Image1.Picture = ImageList1.ListImages.Item(i + 1).Picture
            i = i + 1
    
    Else
            Image1.Picture = ImageList1.ListImages.Item(1).Picture
            i = 1
            
    End IfEnd Sub