如何实现在打开网页时右上角出现动态图片就像IE右上角那个图片
各位,我做了个小浏览器。现在让它的右上角加上一个图片,怎样实现当正在打开网站时,它就动起来,网站打开完毕就静止不动?
就像IE右上角的那个图片一样,各位高手请赐教,小菜谢过了~~
[解决办法]
这个我没试过,不过我想这应该和托盘图标的动态类似吧,给你代码参考:
*********************************************' 设置托盘的图标(在本例中没有用到,如果要动态改变托盘内显示的图标,它非常有用)' 例如:1、显示动画图标(方法你一定猜到了,对!使用Timer控件,不断调用此过程,注意把动画放在pic数组中)' 2、程序处于不同状态时,显示不同的图标,方法是类似的' 有兴趣的话试一试吧。' *********************************************Public Sub SetTrayIcon(pic As Picture) '判断一下pic中存放的是不是图标 If pic.Type <> vbPicTypeIcon Then Exit Sub '更换图标为pic中存放的图标 With TheData .HIcon = pic.Handle .UFlags = NIF_ICON End With Shell_NotifyIcon NIM_MODIFY, TheDataEnd Sub