174.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

用VB实现任务栏右下角的小图标 


将VB应用程序缩成系统状态栏图标二法 
第一种方法：
VB光盘的tools\unsupport\systray目录下有一个例子,将此目录复制到硬盘,编译生成一个OCX控件，在自己的程序中使用此控件,可以实现将程序图标放于右下角系统图标区，这方法比调用API要简单得多


第二种方法：
梁洁仪 
---- 在很多应用程序中，其操作窗口缩小后将变成一图标放置在系统状态栏中。 

---- 为什么有的程序可以缩小成图标呢？ 

---- 对于Windows来说，这些图标并非窗口或程序，它们只是图标，能作出这样的功能，关键在于调用了Windows的API函数Shell_NotifyIcon，在Visual Basic开发环境中，通过其所附带的API浏览器，我们可查找出Shell_NotifyIcon的声明格式如下： 

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

---- 现把本函数声明中的参数分别说明如下： 

---- 参数dwMessage为消息设置值，它可以是以下的几个常数值：0、1、2。在程序中为了使用更方便，我们把它们定义为三个常量：NIM_ADD、NIM_MODIFY及NIM_DELETE，本示例中的常量及Shell_NotifyIcon调用都可以在窗口新建的模块中声明它： 

Public Const NIM_ADD = 0 //加入图标到系统状态栏中
Public Const NIM_MODIFY = 1 //修改系统状态栏中的图标
Public Const NIM_DELETE = 2 //删除系统状态栏中的图标

---- 这三个常量的应用将中下文中具体介绍。 
---- 参数LpData 用以传入NOTIFYICONDATA数据结构变量，我们也需要在"模块"中定义其结构如下： 

Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

---- 在本数据结构定义中，各变量都有其实用意义： 
cbSize：需填入NOTIFYICONDATA数据结构的长度。
HWnd：设置成窗口的句柄。
Uid：为图标所设置的ID值。
UFlags：用来设置以下三个参数uCallbackMessage、
hIcon、szTip是否有效。
UCallbackMessage：消息编号。
HIcon：显示在状态栏上的图标。
SzTip：提示信息。

---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量： 
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4

---- 了解了上述各参数所代表的意义，就可以直接编写代码了。应用本函数所建立的窗体示例(略)。 
---- 为了进一步让大家了解本函数的使用，下面将将详细介绍上例所需编写的代码。 

---- 1、加入图标按钮。代码如下： 

Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid) 
//取数据结构的长度设置给cbSize
nid.hWnd = Me.hWnd //设置窗体的句柄
nid.uID = 9999 //图标的ID值，可自定义
nid.uFlags = NIF_ICON //表示设置图标
nid.hIcon = Me.Icon 
//把图标设置成当前窗体的图标，也可以指定为某一图标文件

Shell_NotifyIcon NIM_ADD, nid //加入图标

---- 2、删除图标按钮。这里要注意的是，当我们把图标加入到状态栏后，一定要把hWnd及uID的值记下来，不然将无法正确删除此图标，本按钮的Click事件代码如下： 

Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd //记下句柄
nid.uID = 9999 //ID值
Shell_NotifyIcon NIM_DELETE, nid 
//调用Shell_NotifyIcon函数删除它

---- 3、改变图标按钮。同样的道理，在窗体运行过程中，如果要更新图标，可以用以下的Click事件代码来完成： 
Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON
nid.hIcon = Image1.Picture 
//用窗体中的Image控件中之图片来代替

Shell_NotifyIcon NIM_MODIFY, nid //修改它

---- 4、设置信息提示按钮。提示信息就是当我们将鼠标移到本图标上时，这些图标会显示出来的信息，下面的Click事件代码可以作到： 
Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON + NIF_TIP
nid.szTip = "这是试验图标" + Chr(0)
Shell_NotifyIcon NIM_MODIFY, nid

---- 当然，在把本窗口缩小成图标的同时，也别忘了将窗口隐藏，代码是：Me.hide。这样窗口就不会在任务栏中出现了。 
---- 利用Win 32 API函数，我们可以完成很多VB本身不具备的功能，只要灵活运用，必能为VB应用程序增色不少，