主题：[求助]项目代码里面退出系统

我需要在项目代码里面加入点击“退出系统”的代码怎么写啊？

 

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

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34553&skin=0

 

直接这样就可以了

Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
     Syscmd.Project.Exit()
End Sub

此主题相关图片如下：qq截图20160721101119.png

大红袍老师，发现个问题，我不点确定，直接点上方的光比按钮，还是会退出系统呢？

参考

 

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

大红袍老师，这样就能完全解决了，不知道有没错，请看看，谢谢

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

尽量判断一下点击的是哪个菜单

 

If Sender.Text = "退出系统" Then

 

End If