欢迎光临
我们一直在努力

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

建站超值云服务器,限时71元/月

1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False

  2、菜单:工程–添加模块按“打开”这样就添加了一个新模块,名为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

   4、在Form1的Load事件中写下如下代码:

  

  PrivateSubForm_Load()

  

   以下把程序放入SystemTray====================================SystemTrayBegin

   WithnfIconData

    .hWnd=Me.hWnd

    .uID=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

   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"请用鼠标右键点击图标!",vbInformation,"实时播音专家"

     单击左键,显示窗体

     ShowWindowMe.hWnd,SW_RESTORE

     下面两句的目的是把窗口显示在窗口最顶层

     Me.Show

     Me.SetFocus

     CaseWM_RBUTTONUP

     PopupMenuMenuTray如果是在系统Tray图标上点右键,则弹出菜单MenuTray

     CaseWM_MOUSEMOVE

     CaseWM_LBUTTONDOWN

     CaseWM_LBUTTONDBLCLK

     CaseWM_RBUTTONDOWN

     CaseWM_RBUTTONDBLCLK

     CaseElse

   EndSelect

  EndSub

  7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标,Form1就自动弹出来了。

->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » vb6在拖托盘中写入应用程序图标_visualbasic教程
分享到: 更多 (0)