快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

金冠手机娱乐网址:在“状态区”中建立图标



Win95中如“音量”、“日期”、“屏幕”等可以在Win95的状态栏(Tray)上建立快捷图标。假如鼠

标停顿在图标上,会显示出响应的对象提示(ToolTip),当用户在图标上单击(或双击)鼠标左键时,软

件会实现响应的功能,单击右键时会实现其简捷的功能。

Tray也称作SysTray、TrayIcon、NotifyIcon、Status Area等,它是Win95/NT的义务条上一个特殊区

域,许多软件运行时在Tray中加入自己的图标,这个区域的另一个特殊之处在于你可以从资本治理器内

拖文件然后放在这个区域。恰是因为这些特点,Tray编程在Win95/NT中有特殊的职位地方。

Tray编程对照特殊,主要包括三个主要方面:图标、对象提示和消息。它属于Shell编程的一部分,

主如果使用Shell API中的Shell_NotifyIcon函数完成的。Shell_NotifyIcon函数是这样声明的:

Type NOTIFYICONDATA

cbSize As Long布局所占的字节数

hwnd As Long吸收TRAY托盘图标消息的窗口句柄

uID As Long由利用法度榜样定义的图标识别符

uFlags As Long标志

uCallbackMessage As Long由利用法度榜样定义的消息

hIcon As LongTRAY图标句柄

szTip As String * 64对象提示字符串

End Type

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long,

lpData As NOTIFYICONDATA) As Long

这个布局中的uFlags很紧张,它有三种取值:NIF_ICON、NIF_MESSAGE和NIF_TIP,分腕表示

hIcon、uCallbackMessage和szTip参数有效,用来改动图标、消息和对象提示。这三个取值可以同时使

用(三个参数相或),也可以零丁应用。为了实现对用户鼠标操作的相应,必要在法度榜样中处置惩罚

uCallbackMessage所定义的消息,该消息的长参数lParam包孕Win32所定义的鼠标消息,假如有多个图

标,短参数wParam表示图标识别符。

在vb光盘中\TOOLS\UNSUPPRT\SYSTRAY目录下有SYSTRAY的工程,经编译后天生

SYSTRAY.OCX控件。

现在我们利用SYSTRAY.OCX控件进行Tray编程。

首先建立一个“工程”,依次:“工程”——“部件”(或者在“对象箱”上单击鼠标右键选择“部

件”),再复选SYSTEM TRAY CONTROL CSYSTRAY,CSYSTRAY控件即呈现在“对象箱”中。

SYSTRAY.OCX控件拥有MouseDblClick、MouseDown、MouseMove、MouseUp四个事故,相应先

后为MouseMove、MouseDown、MouseUp、MouseDblClick。下面编程很清楚地阐明他们的相应光阴次

序。

Private Sub cSysTray1_MouseDblClick(Button As Integer, Id As Long)

MsgBox "Hei!You have DblClick the mous金冠手机娱乐网址e!"

End Sub

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)

If Button = 2 Then

MsgBox "Hei!Y金冠手机娱乐网址ou have clicked me in right button!"

End If

End Sub

Private Sub cSysTray1_MouseMove(Id As Long)

Msg金冠手机娱乐网址Box "Hello!I am here!"

End金冠手机娱乐网址 Sub

Private Sub cSysTray1_MouseUp(Button As Integer, Id As Long)

MsgBox "Hei!You clicked me just now!"

End Sub

Private Sub Form_Load()

cSysTray1.TrayTip = "Hello! I am the King of the world!"

cSysTray1.InTray = True

cSysTray1.TrayIcon = "c:\fittings\FACE.ico"

End Sub

SYSTRAY控件还拥有InTray、Name、TrayIcon、TrayTip、Parent、Index、Object、Tag属性。InTray

设置是否在Win95的状态栏Tray上建立一个快捷图标;Name设置SYSTRAY控件的名称;TrayIcon设

置在Tray上所建立快捷图标的外不雅;TrayTip设置假如鼠标停顿在图标上所显示的对象提示(ToolTip)内

容;Tag储存法度榜样所必要的附加数据。

经由过程实践发明,在应用VB开拓利用法度榜样时,机动应用API 函数,会更大年夜地发挥VB 的感化,金冠手机娱乐网址使开

发的软件更专业,功能更强大年夜。本文仅仅是先容了一下API函数在Win95中的应用措施,以作抛砖引玉

之用。真正的利用API 函数,还必要更详尽的资料和读者更大年夜的努力。

上述法度榜样在中文Windows 98和 VB5.0中文企业版下调试经由过程。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: