赚分的好机会啊，UP就有分，一个很简单的问题

Question

编一个小程序，当程序运行时，先让几个图片一个一个切换（有四五个图片），图片结束之后，让另一个可执行程序运行就可以了。这个小程序的目的就是在一个别人的软件之前加几张图片，让后运行这个软件。我没学过VB，请各位大虾帮帮忙啊

Answer 1

加个定时器就ok了：
Option Explicit
Dim filename() As String
Dim i As Long
Private Sub Form_Load()
    ReDim filename(3)
    filename(0) = "c:\1.bmp"
    filename(1) = "c:\2.bmp"
    filename(2) = "c:\3.bmp"
    filename(3) = "c:\4.bmp"
    Timer1.Interval = 100
    Timer1.Enabled = True
    i = 0
End SubPrivate Sub Timer1_Timer()
   If i > 3 Then
        Shell "notepad.exe", 1
        End
    Else
        Set Me.Picture = LoadPicture(filename(i))
        i = i + 1
    End If
End Sub

Answer 2

建一个窗体，在窗体上加上有五个图片框的控件数组，装入你想要的图片，所有的图片框设置为不可见。再加一个timer控件。运行后，可用timer控件控制图片切换：Private Sub Timer1_Timer()
    static i as integer
    i=i+1
    if i=5 then 
       timer1.enabled=false
       shell(别人的软件)
       unload me
    end if
    me.Picture=picture1(i).picture
End Sub

Answer 3

up1下吧。
rainstormmaster(暴风雨 v2.0) 的方便快捷！

Answer 4

用timer控件,就可以做成flash的效果了,象瑞星启动一样!
victorycyz(中海)   也ok

Answer 5

victorycyz(中海) ，请教一个小问题：static i as integer  这里为什么要用静态类型

Answer 6

哦，看明白了
i这时候相当于模块级变量
和 rainstormmaster(暴风雨 v2.0) 那个i是一样的

Answer 7

static i as integer  这里为什么要用静态类型每次触发timer事件后，i值能保留到下次再用。如果用dim i as integer，那么，每次触发时，i值都为0，达不到切换图片的效果。

Answer 8

在这一个细节上，我认为rainstormmaster的处理不好，可移植性要差一点。

Answer 9

呵呵，我当时看到这个static 就觉得程序和平时看的不一样
所以问了那个问题，看来这个细节还真是有它的用处的

Answer 10

都是牛人撒，小弟感激不尽 那个shell后面跟的是别人软件的地址吗？比如shell(c:\qq.exe)