VB编写托盘图标实例
VB编写托盘图标有两个要点，一是使用 Shell_NotifyIcon 函数显示图标；二是向系统注册 TaskbarCreated 消息，以便explorer崩溃时恢复托盘的图标。
首先需要增加一个模块文件，内容如下：
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public nfIconData As NOTIFYICONDATA
Public Const MAX_TOOLTIP As Integer = 64
' uFlags to NOTIFYICONDATA structure
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const NIF_STATE = &H8
Public Const NIF_INFO = &H10
' dwMessage to Shell_NotifyIcon
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIM_SETFOCUS = &H3
Public Const NIM_SETVERSION = &H4
Public Const WM_MOUSEMOVE = &H200 '当鼠标指针移至图标上
Public Const WM_LBUTTONDOWN = &H201 '鼠标左键按下
Public Const WM_LBUTTONUP = &H202 '鼠标左键弹起
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204 '鼠标右键按下
Public Const WM_RBUTTONUP = &H205 '鼠标右键弹起
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public Type NOTIFYICONDATA
cbSize As Long ' 结构大小(字节)
hwnd As Long ' 处理消息的窗口的句柄
uId As Long ' 唯一的标识符
uFlags As Long ' Flags
uCallBackMessage As Long ' 处理消息的窗口接收的消息
hIcon As Long ' 托盘图标句柄
szTip As String * 128 ' Tooltip 提示文本
dwState As Long ' 托盘图标状态
dwStateMask As Long ' 状态掩码
szInfo As String * 256 ' 气球提示文本
uTimeoutOrVersion As Long ' 气球提示消失时间或版本
' uTimeout - 气球提示消失时间(单位:ms, 10000 -- 30000)
' uVersion - 版本(0 for V4,
相关文档：
http://www.Experts-Exchange.com: 非常好的问题 讨论区，高手数不尽，而且这里的人很有专业精神，不会讨论一些和程序无关又无聊的问题。不过想要别人帮你 解决问题，自己也要有真诚的态度。
http://www.Codeguru.com/vb: 有名的源码讨论站 点，特点是在每个源码下面都可以跟帖讨论。
http://www.planet-source-code.co ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
......
题目:
如何获取网页下文字的链接地址
窗口有WebBrowser1，和一个Text1
现在
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
打开窗体显示百度的首页，要求滑动鼠标到“新闻”时
Text1里显示http://news.baidu.com/
滑动到“帖吧”时
Text1里显示清� ......
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenu ......
参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手，不管是对于大一就学过的VB编程还是这个学期刚接触的SQL，很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指点一下。
1.如何解决DataGrid中多个column和SQL中多个表的绑定？目的 ......
