vb 托盘的这个代码怎么写呢

就是提示托盘时如何把标头放在这个位置呢,谁有好的代码呢

追问：晕,又是你啊,说了这个代码不能用,

答案：我可以帮你些个  还带提示的  
我给你个代码把 能加点分吗 把代码直接复制进去就可以了
Option Explicit
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 标识符之一----------
Private Const NIM_ADD = &H0 '在任务栏中增加一个图标
Private Const NIM_DELETE = &H2 '删除任务栏中的一个图标
Private Const NIM_MODIFY = &H1 '修改任务栏中个图标信息
Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA结构中uFlags的控制信息
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200 '当鼠标指针移至图标上
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONUP = &H205
Private Type NOTIFYICONDATA
cbSize As Long '该数据结构的大小
hwnd As Long '处理任务栏中图标的窗口句柄
uID As Long '定义的任务栏中图标的标识
uFlags As Long '任务栏图标功能控制，可以是以下值的组合（一般全包括）
'NIF_MESSAGE 表示发送控制消息；
'NIF_ICON表示显示控制栏中的图标；
'NIF_TIP表示任务栏中的图标有动态提示。
uCallbackMessage As Long '任务栏图标通过它与用户程序交换消息，处理该消息的窗口由hWnd决定
hIcon As Long '任务栏中的图标的控制句柄
szTip As String * 64 '图标的提示信息
End Type
Dim t As NOTIFYICONDATA
Private Sub Form_Load()
t.cbSize = Len(t)
t.hwnd = Me.hwnd
t.uID = 0
t.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
t.uCallbackMessage = WM_MOUSEMOVE
t.hIcon = Me.Icon.Handle
t.szTip = "软件设计" & Chr(13) & Chr(10) & "QQ:657668816" & Chr(0)
Shell_NotifyIcon NIM_ADD, t
App.TaskVisible = False
End Sub
参考资料： http://www.yesky.com/61/27561.shtml
这个代码应该是能用的
我倒是有，但代码量较多，这 里不让发

上一个：vb调用DBF文件高手进！谢谢！
下一个：如何用VB给文件添加属性备注？