VB最小化,到托盘区

[复制链接]
查看11 | 回复2 | 2011-12-15 16:12:52 | 显示全部楼层 |阅读模式
窗体上创建一个菜单
标题为“文件” 名称为sys的菜单设置不可见有两个子菜单“退出”NMexit
“显示” NMshowOption ExplicitConst MAX_TOOLTIP As Integer = 60Const NIF_ICON = &H2Const NIF_MESSAGE = &H1Const NIF_TIO = &H4Const NIM_ADD = &H0Const NIM_DELETE = &H2Const WM_MOUSEMOVE = &H200Const WM_LBUTTONUP = &H202Const...
回复

使用道具 举报

千问 | 2011-12-15 16:12:52 | 显示全部楼层
引用SysTray.ocx控件并将控件施到窗体上,设置控件的Trayicon为你的图标,并输入以下代码Me.cSysTray1.InTray = True '显示托盘Me.Hide或Me.cSysTray1.InTray = false '显示托盘Me.show...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行