Foxtable(狐表)用户栏目专家坐堂 → 如何实现隐藏系统后右键图标退出系统


  共有3092人关注过本帖树形打印复制链接

主题:如何实现隐藏系统后右键图标退出系统

帅哥哟,离线,有人找我吗?
ess110
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
如何实现隐藏系统后右键图标退出系统  发帖心情 Post By:2015/2/24 15:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:8526.jpg
图片点击可在新窗口打开查看

 

借鉴

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=34553&page=29


 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 15:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150224154202.jpg
图片点击可在新窗口打开查看
是这样吗?

 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 15:53:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:963.jpg
图片点击可在新窗口打开查看

 

是可以关闭系统,但没有提示是否可以关闭,,甜老师


 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 15:55:00 [显示全部帖子]

可以了,代码位子反了

 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 15:57:00 [显示全部帖子]

非常感谢甜老师

 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 16:03:00 [显示全部帖子]

不好意思,,还要麻烦你。单击“是”或“否”都是退出系统的?

 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 16:05:00 [显示全部帖子]

代码没有变,

Public Dim nfi As new System.Windows.Forms.NotifyIcon '定义通知区域小图标
Public Dim cms As new System.Windows.Forms.ContextMenuStrip '定义右键菜单
'菜单按钮点击事件
Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As WinForm.Button
MessageBox.Show("你是否退出管理系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
BaseMainForm.Visible = True
BaseMainForm.Close
End Sub
'图标双击事件
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
baseMainform.visible=True '设置主窗体显示
End Sub


 回到顶部