|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:36 |
|
|
所谓动态图标，就是窗体左上角的图标不停的变化着。其实现原理也很
简单：经过一个时间段，让窗体的图标变成另一个图标。如此循环，就可以实现了。
下面的例子实现了该功能。
>>步骤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----编译运行，看到窗体的图标在不停的变化了吗？ |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:36 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]