27(1).txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

创建动态图标 
     所谓动态图标，就是窗体左上角的图标不停的变化着。其实现原理也很
简单：经过一个时间段，让窗体的图标变成另一个图标。如此循环，就可以实现了。
下面的例子实现了该功能。
>>步骤1----建立新工程，在窗体上放置一个PictureBox控件，设置其Index 
= 0,Visible = false;一个Timer时间控件。
>>步骤2----加入部件“Microsoft Windows Common Controls 6.0(SP3)”，
并在窗体上放置一个ImageList控件，加入图片，例子中加入了8张图片。
>>步骤3----编写如下代码：

Private Sub Form_Load()
    Dim i As Integer

    Set Picture1(0).Picture = ImageList1.ListImages(1).Picture

    For i = 1 To 7
        Load Picture1(i)
        Set Picture1(i).Picture = _
            ImageList1.ListImages(i + 1).Picture
    Next

End Sub

Private Sub Timer1_Timer()
    Static i As Integer
    On Error Resume Next
    If i = 8 Then i = -1
    i = i + 1
    Me.Icon = Picture1(i).Picture
End Sub

>>步骤4----编译运行，看到窗体的图标在不停的变化了吗？