Form Loading Question

[mpappert]

In reading some of the other posts about when the main form closes it terminates the application, I've had to take a different methodology to my login screen.

 

I've modified my frmMain as follows:

 

 

    Public Sub New()
       MyBase.New()

       'Show Login Screen and Validate Credentials
       Dim Login As frmLogin
       Login = New frmLogin()
       Login.ShowDialog(Me)

       'This call is required by the Windows Form Designer.
       InitializeComponent()   
       ...

 

I've also created a public property called "LoggedIn" which contains a boolean value.

 

What I would like to do is after the .ShowDialog returns the control to frmMain, check to see if this value is True, if so continue, if not terminate.

 

I've tried the following code but it generates an exception error:

 

Public Sub New()
       MyBase.New()

       'Show Login Screen and Validate Credentials
       Dim Login As frmLogin
       Login = New frmLogin()
       Login.ShowDialog(Me)

       If Not Global.blnLoggedIn Then
             Me.Close()
       End If

       'This call is required by the Windows Form Designer.
       InitializeComponent()
       ...

 

I know I could call the frmLogin from within the frmMain_Load sub, but I don't want the main form to show before the person enters their credentials. The workflow would have looked something like this:

 

       1: LoginScreen displayed to user
       2: Credentials entered are validated
       3: If credentials are valid, goto frmMain and close LoginScreen
       4: else stay on this screen for three retries, then end

 

Any ideas? TIA!

 

M.

[Derek Stone]

Public Sub ShowMyDialogBox()
   Dim testDialog As New Form2()
   
   ' Show testDialog as a modal dialog and determine if DialogResult = OK.
   If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
       ' Read the contents of testDialog's TextBox.
       result.Text = testDialog.TextBox1.Text
   Else
       result.Text = "Cancelled"
   End If
   testDialog.Dispose()
End Sub 'ShowMyDialogBox

 

You can set the value of DialogResult in the properties of each of the dialog's buttons.

[mpappert]

Thanks Derek, but where do I place your code? In my frmMain and then call it like this:

 

Public Sub New()
       MyBase.New()

       'Show Login Screen and Validate Credentials
       Call ShowMyDialogBox()

       'This call is required by the Windows Form Designer.
       InitializeComponent()   
       ...

Thanks again!

M.