A
Anthony
So I've got my application starting by calling Sub Main() which checks for
the existence of files and will load one of two screens depending on if the
files are present or not. The problem is that when it loads the screen, the
application immediately terminates. I'm suspecting that this is because the
end of Sub Main() is reached but I can't be sure. Here is the entire code of
Sub Main(). Can anyone tell me what might be the problem:
Sub Main()
If (Not File.Exists(AppConfFolderPath & "\config.dat")) Then
MsgBox("Entered the first part of the if clause")
ConfigScreen.Show()
MsgBox("The ConfigScreen was just called")
Else
Dim oFile As StreamReader
Try
MsgBox("Entered the try/catch block")
oFile = New StreamReader(AppConfFolderPath & "\config.dat")
Username = oFile.ReadLine
Password = oFile.ReadLine
oFile.Close()
oFile = Nothing
MainForm.Show()
Catch ex As Exception
ConfigScreen.Show()
End Try
End If
End Sub
Note that neither ConfigScreen or MainForm have any exit or hide calls.
Thanks!
Anthony
the existence of files and will load one of two screens depending on if the
files are present or not. The problem is that when it loads the screen, the
application immediately terminates. I'm suspecting that this is because the
end of Sub Main() is reached but I can't be sure. Here is the entire code of
Sub Main(). Can anyone tell me what might be the problem:
Sub Main()
If (Not File.Exists(AppConfFolderPath & "\config.dat")) Then
MsgBox("Entered the first part of the if clause")
ConfigScreen.Show()
MsgBox("The ConfigScreen was just called")
Else
Dim oFile As StreamReader
Try
MsgBox("Entered the try/catch block")
oFile = New StreamReader(AppConfFolderPath & "\config.dat")
Username = oFile.ReadLine
Password = oFile.ReadLine
oFile.Close()
oFile = Nothing
MainForm.Show()
Catch ex As Exception
ConfigScreen.Show()
End Try
End If
End Sub
Note that neither ConfigScreen or MainForm have any exit or hide calls.
Thanks!
Anthony