用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧VisualBasic

在最小化状态时提供提示

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 19:48:43
如果你的程序在最小化状态时执行任务,你可以通过改变图标的办法来传送信息。

建立一个form 包含一个 timer 和 imagelist.
设置 timer 的 Interval属性到 2000,
在 ImageList 控件中加入三个图标.
最后, 在 Timer 事件中加入下面的代码:

Private Sub Timer1_Timer()
Static ilmage As Integer
ilmage = ilmage + 1
If ilmage > 3 Then ilmage = 1
Me.Icon = ImageList1.ListImages(ilmage).Picture
EndSub

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:8,531.25000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号