如何Private Sub Form1_FormClosing中取消关闭窗体，

[sy123782568]

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim myti As Integer myti = MsgBox("确定关闭此窗体", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "提示")
Select Case myti
Case myti = MsgBoxResult.Yes e.Cancel = False
End
Case myti = MsgBoxResult.No e.Cancel = True
End Select
End Sub
这个我实在网上搜的。好像是VS2005的。
我现在用的vs2008。想使用这种方法取消关闭窗体，但是没有e.Cancel = True 。请高手指教！

[wuyq11]

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
If MessageBox.Show("是否现在关闭窗口", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) <> DialogResult.OK Then
e.Cancel = True
End If
End Sub

[兔子-顾问]

有的，不过你的代码排版不对。
粘贴如下的在你的Form1中可以。

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim myti As DialogResult = MessageBox.Show("确定关闭此窗体", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)
        Select Case myti
            Case Windows.Forms.DialogResult.Yes
                e.Cancel = False
            Case Windows.Forms.DialogResult.No
                e.Cancel = True
        End Select
    End Sub

[Snowdust]

这段代码不分2005还是2008的，你这样试一下：

	Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		Dim myti As Integer
		myti = MsgBox("确定关闭此窗体", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "提示")
		Select Case myti
			Case MsgBoxResult.Yes
				e.Cancel = False
				End
			Case MsgBoxResult.No
				e.Cancel = True
		End Select
	End Sub

[Tosp2012]

楼主可以结贴了，2楼的可以。

[sy123782568]

我试了，不行的，要是写e.Cancel = True 这句的话，系统提示错误。提示内容是：“cancle”不是“system.windows.forms.formcloseEventArgs”的成员

[兔子-顾问]

cancle?
你拼写错误？
Cancel

[sy123782568]

我找到原因啦，我把代码发到FORMCLOSED 里拉。谢谢各位！

[wsjrzjp]

不错，谢谢