vb6在拖托盘中写入应用程序图标

《vb6在拖托盘中写入应用程序图标》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、www.shishicaimh.comVB6在拖托盘中写入应用程序图标1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False　　2、菜单：工程--添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas　　3、在Module1中写下如下代码：　　　　OptionExplicit　　　　PublicConstMAX_TOOLTIPAsInteger=64　　PublicConstNIF_ICON=&H2　　PublicConstNIF_M

2、ESSAGE=&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　　Pub

3、licConstWM_RBUTTONUP=&H205　　PublicConstWM_RBUTTONDBLCLK=&H206　　　　PublicConstSW_RESTORE=9shishicaimh.comwww.shishicaimh.com　　PublicConstSW_HIDE=0　　　　PublicnfIconDataAsNOTIFYICONDATA　　　　　　PublicTypeNOTIFYICONDATA　　　cbSizeAsLong　　　hWndAsLong　　　uIDAsLong　　　

4、uFlagsAsLong　　　uCallbackMessageAsLong　　　hIconAsLong　　　szTipAsString*MAX_TOOLTIP　　EndType　　　　PublicDeclareFunctionShowWindowLib"user32"(ByValhWndAsLong,ByValnCmdShowAsLong)AsLong　　PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIco

5、nA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong　　　4、在Form1的Load事件中写下如下代码：　　shishicaimh.comwww.shishicaimh.com　　PrivateSubForm_Load()　　　　　'以下把程序放入SystemTray====================================SystemTrayBegin　　　WithnfIconData　　　　.hWnd=Me.hWnd　　　　.u

6、ID=Me.Icon　　　　.uFlags=NIF_ICONOrNIF_MESSAGEOrNIF_TIP　　　　.uCallbackMessage=WM_MOUSEMOVE　　　　.hIcon=Me.Icon.Handle　　　　'定义鼠标移动到托盘上时显示的Tip　　　　.szTip=App.Title"(版本"&App.Major&"."&App.Minor&"."&App.Revision&")"&vbNullChar　　　　.cbSize=Len(nfIconData)　　　EndWith　　

7、　CallShell_NotifyIcon(NIM_ADD,nfIconData)　　　'=============================================================SystemTrayEnd　　　Me.Hide　　EndSub　　5、在Form1的QueryUnload事件中写入如下代码：　　　　PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)shishicaimh.comww

8、w.shishicaimh.com　　CallShell_NotifyIcon(NIM_DELETE,nfIconData)　　EndSub　　6、在Form1的MouseMove事件中写下如下代码：　　　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　　DimlMsgAsSingle　　　lMsg=X/Screen.TwipsPerPixelX