首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

请教这段VB.net的代码是什么意思

2012-01-09 
请问这段VB.net的代码是什么意思Private Sub main_Closing(ByVal sender As Object, ByVal e As System.Co

请问这段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

这是一段主窗体的代码,在实现过程中,在通过了登录窗体后,都会先出现一次是否确认退出的消息框,然后选取消后才能正常进入主窗体,请问这个应该如何解决??

[解决办法]
楼主的意思是如下面代码所描述吗?

VB.NET code
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 

热点排行