Hallo!
Ich möchte, in Abhängigkeit, ob eine bestimmte Datei vorhanden ist oder nicht, das Startformular festlegen.
Also, wenn Datei vorhanden, dann FRM_Start1 als Startformular
wenn Datei nicht vorhanden, dann FRM_Start2 als Startformular.
Ich hab mal ein bisschen geforscht, und bin auf die Sub Main gestoßen, und gedacht, dass es damit funktioniert.
Das ist mein Code:
Aber das funktioniert offenbar nicht. Es wird immer noch das Fomrular angezeigt, welches in den Eigenschaften definiert ist.
Hat einer eine Idee, worann es liegen kann? Oder ist das der falsche Ansatz?
Danke
Ich möchte, in Abhängigkeit, ob eine bestimmte Datei vorhanden ist oder nicht, das Startformular festlegen.
Also, wenn Datei vorhanden, dann FRM_Start1 als Startformular
wenn Datei nicht vorhanden, dann FRM_Start2 als Startformular.
Ich hab mal ein bisschen geforscht, und bin auf die Sub Main gestoßen, und gedacht, dass es damit funktioniert.
Das ist mein Code:
Code:
Module modMain Public Sub main() 'Check, ob Datei MyData.xml vorhanden ist Dim sPfad As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\MyApp\MyData.xml" If (Not System.IO.File.Exists(sPfad)) Then Dim frmstartform As New FRM_Start1 Application.Run(frmstartform) Else Dim frmstartform As New FRM_Start2 Application.Run(frmstartform) End If End Sub End Module
Hat einer eine Idee, worann es liegen kann? Oder ist das der falsche Ansatz?
Danke
Comment