VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 创建动态图标
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11600, 日期:2001-11-24
创建动态图标
作者:-
所谓动态图标,就是窗体左上角的图标不停的变化着。其实现原理也很
简单:经过一个时间段,让窗体的图标变成另一个图标。如此循环,就可以实现了。
下面的例子实现了该功能。
>>步骤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----编译运行,看到窗体的图标在不停的变化了吗?