2、菜單：工程--添加模塊按“打開”這樣就添加了一個(gè)新模塊，名為Module1,保存為Module1.bas

　　3、在Module1中寫下如下代碼：

　　OptionExplicit

　　PublicConstMAX_TOOLTipAsInteger=64

　　PublicConstNIF_ICON=&H2

　　PublicConstNIF_MESSAGE=&H1

　　PublicConstNIF_TIP=&H4

　　PublicConstNIM_ADD=&H0

　　PublicConstNIM_DELETE=&H2

　　PublicConstWM_MOUSEMOVE=&H200

　　PublicConstWM_LBUTTONDOWN=&H201

　　PublicConstWM_LBUTTONUP=&H202

　　PublicConstWM_LBUTTONDBLCLK=&H203

　　PublicConstWM_RBUTTONDOWN=&H204

　　PublicConstWM_RBUTTONUP=&H205

　　PublicConstWM_RBUTTONDBLCLK=&H206

　　PublicConstSW_RESTORE=9

　　PublicConstSW_HIDE=0

　　PublicnfIconDataAsNOTIFYICONDATA

　　PublicTypeNOTIFYICONDATA

　　　cbSizeAsLong

　　　hWndAsLong

　　　uIDAsLong

　　　uFlagsAsLong

　　　uCallbackMessageAsLong

　　　hIconAsLong

　　　szTipAsString*MAX_TOOLTIP

　　EndType

　　PublicDeclareFunctionShowWindowLib"user32"(ByValhWndAsLong,ByValnCmdShowAsLong)AsLong

　　PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong

　　　　.szTip=App.Title "(版本"&App.Major&"."&App.Minor&"."&App.Revision&")"&vbNullChar

　　　　.cbSize=Len(nfIconData)

　　　EndWith

　　　CallShell_NotifyIcon(NIM_ADD,nfIconData)

　　　'=============================================================SystemTrayEnd

　　　Me.Hide

　　EndSub

　　5、在Form1的QueryUnload事件中寫入如下代碼：

　　PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)

　　CallShell_NotifyIcon(NIM_DELETE,nfIconData)

　　EndSub

　　6、在Form1的MouseMove事件中寫下如下代碼：

　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

　　　DimlMsgAsSingle

　　　lMsg=X/Screen.TwipsPerPixelX

　　　SelectCaselMsg

　　　　CaseWM_LBUTTONUP

　　　　　'MsgBox"請(qǐng)用鼠標(biāo)右鍵點(diǎn)擊圖標(biāo)!",vbInformation,"實(shí)時(shí)播音專家"

　　　　　'單擊左鍵，顯示窗體

　　　　　ShowWindowMe.hWnd,SW_RESTORE

　　　　　'下面兩句的目的是把窗口顯示在窗口最頂層

　　　　　'Me.Show

　　　　　'Me.SetFocus

　　　　　''CaseWM_RBUTTONUP

　　　　　''PopupMenuMenuTray'如果是在系統(tǒng)Tray圖標(biāo)上點(diǎn)右鍵，則彈出菜單MenuTray

　　　　　''CaseWM_MOUSEMOVE

　　　　　''CaseWM_LBUTTONDOWN

　　　　　''CaseWM_LBUTTONDBLCLK

　　　　　''CaseWM_RBUTTONDOWN

　　　　　''CaseWM_RBUTTONDBLCLK

　　　　　''CaseElse

　　　EndSelect

　　EndSub

　　7、現(xiàn)在將程序保存起來運(yùn)行看看系統(tǒng)托盤處是否增加了一個(gè)本工程的圖標(biāo)。單擊此圖標(biāo)，F(xiàn)orm1就自動(dòng)彈出來了。