Alternatives Startformular - FRage zu Sub Main

[SQL-Rookie]

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:

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

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

[SQL-Rookie]

Ich war etwas zu schnell mit dem Schreiben. Ich glaube, es liegt an den Projekteigenschaften. Der Haken bei "Enable Application Framework" muss wohl raus. Muss ich aber erst mal prüfen, was das weiterhin bedeutet.

[SQL-Rookie]

So richtig glücklich bin ich mit dem Ansatz, das Application Framework auszuschalten, nicht. Gibt es noch eine Alternative?

[fanderlf]

Ich schreibs hier auch nochmal rein:

Du kannst auch application.run mit einem application context aufrufen. Dort hast Du mehr Möglichkeiten zur Kontrolle der Forms.

http://msdn.microsoft.com/en-us/libr...v=vs.110).aspx