Question

谁能给我一个简单的VB托盘程序代码？谢谢

要求VB编写托盘程序，再简单的也可以

Answer 1

使用API函数，Shell_NotifyIcon

我以前写了个程序，代码贴了你看下把
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Type NOTIFYICONDATA
cbsize As Long
hwnd As Long
uid As Long
uflag As Long
ucallbackmessage As Long
hicon As Long
sztip As String * 64
End Type

Const ADD_ICON = 0
Const MODIFY_ICON = 1
Const DELETE_ICON = 2
Const ICON_MESSAGE = 1
Const ICON_ICON = 2
Const ICON_TIP = 4

Dim IconName As String
Dim m_intret As Integer
Dim m_icondata As NOTIFYICONDATA

Private Sub initiconstruct(hwnd As Long, theicon As Long, stip As String, _
icondata As NOTIFYICONDATA)
icondata.cbsize = Len(icondata)
icondata.hwnd = hwnd
icondata.uid = vbNull
icondata.uflag = ICON_MESSAGE Or ICON_ICON Or ICON_TIP
icondata.ucallbackmessage = vbNull
icondata.hicon = theicon
icondata.sztip = stip
End Sub

Private Sub Command1_Click()
Me.Icon = LoadPicture(IconName)
intret = Shell_NotifyIcon(DELETE_ICON, m_icondata)
initiconstruct Me.hwnd, Me.Icon, _
"这是（kikikaki）建立的系统托盘图标!" & vbNullChar, m_icondata
intret = Shell_NotifyIcon(ADD_ICON, m_icondata)
End Sub

Private Sub Command2_Click()
CmDig.Filter = "图标文件(*.ico)|*.ico"
CmDig.ShowOpen
If Not CmDig.FileName = "" Then
IconName = CmDig.FileName
Picture1.Picture = LoadPicture(IconName)
End If
End Sub

Private Sub Form_Load()
IconName = App.Path & "\1.ico"
Picture1.Picture = LoadPicture(IconName)
End Sub

Private Sub Form_Unload(Cancel As Integer)
intret = Shell_NotifyIcon(DELETE_ICON, m_icondata)
End Sub