VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB实现托盘动画图标
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11649, 日期:2000-10-20
用VB实现托盘动画图标
(作者:车光宏 2000年10月18日 09:55)

  现在,程序员把自己开发的程序的静态图标放入托盘已不是难事,使用Visual C++、Visual Basic、Delphi等编程语言,借助于Windows API函数(Shell_NotifyIcon)可以很容易地实现对托盘图标的操作。那么,如何在托盘中实现动态图标呢?本文将通过一个在托盘中交替显示笑脸/哭脸的实例来介绍用VB实现托盘中动画图标的方法和步骤。

  1.可视部分设计

  新建一个标准EXE项目,在窗体中设置如下控件:

  ⑴一个计时器(命名为timer1),其属性Enabled=False、Interval=100;

  ⑵一个弹出选单(命名为mMyPopMenu),设计时清除其“可视”检查框(右单击托盘动画图标时弹出);

  ⑶若干图画框(本例为2个),这些图画框名称相同(例如picture1),其Index属性值依次为0、1、2、...,Visible属性值均为False,Picture属性设置为循环显示的图标文件,如图1所示;

  图1

  ⑷其它控件,根据程序实际功能需要设置。

  2.编写程序代码

  ⑴在窗体的声明部分给出如下声明:

  Private Type NOTIFYICONDATA

  cbSize As Long

  注释:指定NOTIFYICONDATA结构长度

  hWnd As Long 注释:指定接收回调消息的窗体或控件的句柄

  uId As Long

  注释:指定放入托盘中的图标的ID标识

  uFlags As Long

  注释:指定要绘制的图标的属性

  ucallbackMessage As Long

  注释:指定一条自定义的回调消息

  hIcon As Long

  注释:指定要显示于托盘中的图标的句柄

  szTip As String * 64

  注释:指定图标的提示信息

  End Type

  Private Const NIF_ICON = &&H2

  Private Const NIF_MESSAGE = &&H1

  Private Const NIF_TIP = &&H4

  Private Const NIM_ADD = &&H0

  Private Const NIM_DELETE = &&H2

  Private Const NIM_MODIFY = &&H1

  Private Const WM_MOUSEMOVE = &&H200

  Private Declare Function Shell_NotifyIcon Lib "shell32" _

   Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _

   pnid As NOTIFYICONDATA) As Boolean

  Dim tb As NOTIFYICONDATA

  ⑵窗体加载时把图标放入托盘:

  Private Sub Form_Load()

    mMyPopMenu.Visible = False

    注释:使弹出选单隐藏

    mHide.Enabled = False

  With tb

  .cbSize = Len(tb)

  .hWnd = Picture1(0).hWnd

  .uId = 1&&

  .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

  .ucallbackMessage = WM_MOUSEMOVE

     .hIcon = Picture1(0).Picture

     .szTip = "托盘动画图标演示" && Chr$(0)

    End With

    Shell_NotifyIcon NIM_ADD, tb

    Timer1.Enabled = True

    Me.Hide

    App.TaskVisible = False

  End Sub

  ⑶计时器每触发一次就修改一下托盘中的图标:

  Private Sub timer1_Timer()

    Static i As Integer

    i =(i+1) Mod 2 注释:2 为图画框的个数

    With tb

     .cbSize = Len(tb)

     .hWnd = Picture1(0).hWnd

     .uId = 1&&

     .uFlags = NIF_ICON

     .hIcon = Picture1(i).Picture

    End With

    Shell_NotifyIcon NIM_MODIFY, tb

    Timer1.Enabled = True

  End Sub

  ⑷响应托盘中图标的鼠标事件:

  Private Sub picture1_MouseMove(Index As Integer, _

   Button As Integer, Shift As Integer, _

   X As Single, Y As Single)

    If X = &&H1E3C Then

      Me.PopupMenu mMyPopMenu

    End If

  End Sub

  ⑸窗体卸载时删除托盘中的图标:

  Private Sub Form_Unload(Cancel As Integer)

    Timer1.Enabled = False

    With tb

     .cbSize = Len(tb)

     .hWnd = Picture1(0).hWnd

     .uId = 1&&

    End With

    Shell_NotifyIcon NIM_DELETE, tb

  End Sub

  ⑹对弹出选单Click事件的响应代码:

  根据选单的具体功能而定。

  本程序在VB5下编译,Win98下运行通过。