Foxtable(狐表)用户栏目专家坐堂 → 甜老师,在麻烦你一下。单击“是”或“否”都退出系统了,


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

主题:甜老师,在麻烦你一下。单击“是”或“否”都退出系统了,

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


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
甜老师,在麻烦你一下。单击“是”或“否”都退出系统了,  发帖心情 Post By:2015/2/24 16:24: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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/24 16:26:00 [只看该作者]

 叫你看帮助文档你有看过么?

 

 If MessageBox.Show("你是否退出管理系统?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    BaseMainForm.Visible = True
    BaseMainForm.Close
End If


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


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/2/24 16:53:00 [只看该作者]

罪过罪过,,少了End If

 回到顶部