- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]项目代码里面退出系统 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87844)
-- 发布时间：2016/7/21 9:23:00
-- [求助]项目代码里面退出系统
我需要在项目代码里面加入点击“退出系统”的代码怎么写啊？
AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick
Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("退出系统",GetImage(projectpath & "\\BrowseMode.ico"))
AddHandler tsmi1 .Click, AddressOf Menu1_Click
nfi.ContextMenuStrip = cms
nfi.Text = "我是狐表"
nfi.Icon = new Icon(ProjectPath & "\\001.ico")
nfi.Visible = True
Forms("窗口1").show
-- 发布时间：2016/7/21 9:25:00
--
-- 发布时间：2016/7/21 9:26:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34553&skin=0
-- 发布时间：2016/7/21 10:05:00
--
直接这样就可以了
Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Syscmd.Project.Exit()
End Sub
-- 发布时间：2016/7/21 10:14:00
--
此主题相关图片如下：qq截图20160721101119.png
大红袍老师，发现个问题，我不点确定，直接点上方的光比按钮，还是会退出系统呢？
-- 发布时间：2016/7/21 10:15:00
--
参考
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不错,说明你已经认真学习了.","提示")
Else
MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If
-- 发布时间：2016/7/21 11:12:00
--
大红袍老师，这样就能完全解决了，不知道有没错，请看看，谢谢
Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Result As DialogResult
Result = MessageBox.Show("你确定退出系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
basemainform.Close
Else
End If
End Sub
-- 发布时间：2016/7/21 12:14:00
--
尽量判断一下点击的是哪个菜单
If Sender.Text = "退出系统" Then
End If