VB.NET单击托盘图标,怎样打开程序
vb.net吧
全部回复
仅看楼主
level 6
A60earth 楼主
VB.NET单击托盘图标,怎样打开程序,即:类似qq中,右击托盘图标,显示的菜单中,有打开按钮,怎样实现打开主面板
2013年05月18日 04点05分 1
level 6
A60earth 楼主
貌似 me.show() 没反应
2013年05月18日 08点05分 2
level 6
A60earth 楼主
2013年05月18日 08点05分 3
level 13
就是用show,注意可见性和透明度设定。
2013年05月18日 09点05分 4
没反应,怎么弄
2013年05月18日 10点05分
可见性?
2013年05月18日 10点05分
回复 A60earth :visible属性不要搞错
2013年05月18日 11点05分
回复 Nukepayload2 :form有这个属性吗?怎么看不到啊
2013年05月18日 12点05分
level 6
A60earth 楼主
Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dkToolStripMenuItem.Click
Me.Show()
End Sub
我想实现的是:在托盘图标右击,出现列表,单击“打开”,出现程序窗口。
困难在于:单击后他没反应,“打开”的代码如上
2013年05月18日 14点05分 5
level 6
A60earth 楼主
要打开的就是form1的窗口,注意form没有visible的属性
2013年05月18日 14点05分 6
level 6
A60earth 楼主
@Nukepayload2
单击打开,没反应
顺便解决一下,单击图标,也打开窗口
2013年05月18日 14点05分 7
level 9
最小化 你用 Me.Hide() 单击打开用 Me.Show()
2013年05月18日 16点05分 8
看5楼,我就是用me.show啊,为毛没反应[升起]
2013年05月19日 04点05分
回复 A60earth :你隐藏窗体用的是什么方法
2013年05月19日 07点05分
level 10
顶8楼
2013年05月19日 04点05分 9
level 6
A60earth 楼主
@1johnn
设置主窗体 Opacity属性为0,FormBorderStyle属性为None,ShowInTaskbar属性为 False,这样窗体将在启动后隐藏。在窗体上放置一个NotifyIcon组件NotifyIcon1,一个ContextMenu(弹出菜单)组件 ContextMenu1,并为ContextMenu1添加菜单项“打开”,“退出”。
设置NotifyIcon1的ICON属性,这个图标就是应用程序出现在系统托盘中的快捷图标;设置NotifyIcon1的Text属性,这就是鼠标移动到托盘图标时弹出的文字说明;设置NotifyIcon1的ContextMenu属性为ContextMenu1,也就是右键单击快捷图标时的弹出菜单为 ContextMenu1。
以上是我找到的资料,我现在需要实现菜单项“打开”,“退出”的功能。
2013年05月19日 07点05分 10
level 3
Private Sub MeHide()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False
Me.Hide()
End Sub
Private Sub MeShow()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Me.WindowState = FormWindowState.Normal
Me.ShowInTaskbar = True
Me.Show()
Me.Activate()
End Sub
打开程序时调用MeShow
隐藏程序时调用MeHide
2013年05月19日 07点05分 11
先谢过,我去试试
2013年05月19日 07点05分
谢谢,已解决 还有一事相求----怎样实现单击图标打开窗口(我把me.show)写在(NotifyIcon1_Click)的事件中,左击实现不了,右击却能实现)
2013年05月19日 09点05分
回复 A60earth :Private Sub NotifyIcon1_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click MeShow() End Sub,这个可以实现吧,左中右3键都行
2013年05月19日 15点05分
回复 残叶风凋零 :已完成 谢谢[感动]
2013年05月21日 07点05分
1