Simple multiple form application

[babakanoush]

I have an application with two forms, FrmLogin and FrmMain. When application opens up, FrmLogin pops up for authentication, once successful, FrmMain should open and FrmLogin should close. Looks like I can not close the FrmLogin! Any idea? Thanks.


This is the code behind the Login Button. Unfortunately I can NOT close the FrmLogin once authentication is successful!

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        
If Me.TxtUsername.Text = "User” And Me.TxtPassword.Text = "password" Then
 
   Dim form2 As New FrmMain
        form2.Show()
 
Else
        Me.Close()
End If
End Sub

[ayan]

courtesy of dynamic_sysop

[taxes]

Originally posted by babakanoush
I have an application with two forms, FrmLogin and FrmMain. When application opens up, FrmLogin pops up for authentication, once successful, FrmMain should open and FrmLogin should close. Looks like I can not close the FrmLogin! Any idea? Thanks.


This is the code behind the Login Button. Unfortunately I can NOT close the FrmLogin once authentication is successful!

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        
If Me.TxtUsername.Text = "User” And Me.TxtPassword.Text = "password" Then
 
   Dim form2 As New FrmMain
        form2.Show()
 
Else
        Me.Close()
End If
End Sub

The simple answer is set Sub Main of a Module as your startup object

In the Module:

Public frmLogin as New FormLogin
Public frm2 as New FrmMain
 
Public Sub Main()
  frmLogin.ShowDialog()
  frm2.ShowDialog()
End Sub

[babakanoush]

Thank you ayan... worked perfectly.