请问这段VB.net的代码是什么意思
Private Sub main_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MessageBox.Show("是否退出?", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub
这是一段主窗体的代码,在实现过程中,在通过了登录窗体后,都会先出现一次是否确认退出的消息框,然后选取消后才能正常进入主窗体,请问这个应该如何解决??
[解决办法]
楼主的意思是如下面代码所描述吗?
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim check As Boolean = True Try Do Dim Login As New LoginForm1 Login.ShowDialog() If Login.DialogResult = Windows.Forms.DialogResult.OK And Login.flag Then check = False ElseIf Login.DialogResult = Windows.Forms.DialogResult.Cancel Then Me.Close() check = False End If Loop While check Catch ex As Exception End Try End Sub Private Sub main_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If MessageBox.Show("是否退出?", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then e.Cancel = True Else e.Cancel = False End If End SubEnd ClassPublic Class LoginForm1 Inherits System.Windows.Forms.Form Public flag As Boolean = False Public Sub New() Dim btnOk, btnCancel As New Button AddHandler btnOk.Click, AddressOf BtnOkClick AddHandler btnCancel.Click, AddressOf BtnCancelClick btnOk.Text = "OK" btnOk.Location = New Point(10, 10) btnCancel.Text = "Cancel" btnCancel.Location = New Point(10, 80) Me.Controls.Add(btnOk) Me.Controls.Add(btnCancel) End Sub Private Sub BtnOkClick(ByVal sender As Object, ByVal e As System.EventArgs) Me.DialogResult = Windows.Forms.DialogResult.OK flag = True End Sub Private Sub BtnCancelClick(ByVal sender As Object, ByVal e As System.EventArgs) Me.DialogResult = Windows.Forms.DialogResult.Cancel flag = False End SubEnd Class