Question

如何使VB编写的程序缩小至最小托盘区

假设我编写的程序名为：鬼鬼聊天器.exe我已经设定Icon 图标。图标路径：d:\My Documents\My Pictures\bitbug_favicon\鬼鬼聊天器.ico 请问如何点击最小化使窗口缩小至右下角最小托盘区。单击或双击使程序恢复原样。我不懂搞代码，但有个思路。点击最小化缩小至托盘区隐藏任务栏隐藏窗口单击或双击恢复原样：托盘区中恢复窗口任务栏里显示，显示窗口

Answer 1

托盘编程，有例程，你找找，属于VB很常规的编程
我记得好像代码不多
用API函数Shell_NotifyIcon来添加、删除、更改托盘图标
使用API函数之前必须先在程序中声明如下：

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
1、添加图标

With TheData
　　　　.Uid = 0
　　　　.HWnd = frm.HWnd　　　　　　　'frm.HWnd是程序主窗体的句柄
　　　　.cbSize = Len(TheData)
　　　　.HIcon = frm.Icon.Handle　　'frm.Icon.Handle指向主窗体的图标
　　　　.UFlags = NIF_ICON
　　　　.UCallbackMessage = TRAY_CALLBACK
　　　　 '作用是允许返回消息，在下一节中会有详细解释。
　　　　.UFlags = .UFlags Or NIF_MESSAGE
　　　　.cbSize = Len(TheData)
　　　End With
　　　Shell_NotifyIcon NIM_ADD, TheData 　
　　'根据前面定义NIM_ADD，设置为“添加模式”，然后添加
　　　

　　　2、删去图标

With TheData
　　　　.UFlags = 0
End With
Shell_NotifyIcon NIM_DELETE, TheData　　
'根据前面定义NIM_DELETE，设置为“删除模式”
　　　
　　　3、更改图标

With TheData
　　.HIcon = pic.Handle 　　　
　　'pic是图片狂PictureBox，存放图标文件
　　.UFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, TheData　
'根据前面定义NIM_MODIFY，设置为“更改模式”
　　　
　　　4、为图标添加浮动提示信息

With TheData
　　　　.SzTip = tip & vbNullChar　
　　　　　 'tip是字符串string，存储提示信息
　　　　.UFlags = NIF_TIP 　　
　　　　'指明要对浮动提示进行设置
End With
Shell_NotifyIcon NIM_MODIFY, TheData　
'根据前面定义NIM_MODIFY，设置为“修改模式”
具体的你看看这个网页
http://www.programfan.com/article/1053.html

Answer 2

方法一：操作系统提供了ShellNotify API函数来使得程序员可操作系统的托盘区域，包括注册图标、修改图标、设置回调事件函数等等。
方法二：VB6中可以通过在网上下载ActiveX空间即可，操作也较为简单EFMTIcn.ocx。

假如你是VB,NET程序员，那么只需要使用NotifyIcon控件即可实现所有操作。