Modifier par programmation le formulaire de démarrage au lancement de l'application?

Puis-je modifier par programmation le formulaire de démarrage au lancement de l'application dans VB.Net?

OriginalL'auteur Jeremy Child | 2010-02-16

  1. 7

    Sûr que vous pouvez!

    Dans votre Projet de Propriétés, définissez le Démarrage Objet Sub main, et assurez-vous qu'il y a un Public Sub main méthode quelque part dans votre application. Séparé de démarrage de classe peut être une bonne idée:

    Public Class myStartupClass

    ''' <summary>
''' This is the method that will be run when the application loads, 
''' because Project Properties, Startup Object is set to SubMain
''' </summary>
''' <remarks>
''' </remarks>
''' --------------------------------------------------------------------------------
Public Shared Sub Main()

    'The form that we will end up showing
    Dim formToShow As System.Windows.Forms.Form = Nothing

    'The determiner as to which form to show
    Dim myMood As String = "Happy"

    'Choose the appropriate form
    Select Case myMood
        Case "Happy"
            formToShow = New Form1
        Case Else
            formToShow = New Form2
    End Select

    'Show the form, and keep it open until it's explicitly closed.
    formToShow.ShowDialog()

End Sub

    End Class

    incroyable! Merci!

    OriginalL'auteur Michael Rodrigues

  2. 4

    Dans une "Application Windows Forms", créé sous VB 2010 Express, vous pouvez effectuer les opérations suivantes dans ApplicationEvents.vb:

    Partial Friend Class MyApplication

    Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

       'Select the form of your choice
       My.Application.MainForm = Any_Form_You_like

    End Sub

End Class

    OriginalL'auteur Sean

  3. 0

    C'est l'approche que j'utilise qui reprend une forme comme une normale, une application de point d'entrée.

    Public Sub Main()
    Dim value As String = Trim(Environment.CommandLine)
    Dim f As Form
    Select Case value
        Case "a"
            f = New frmTextEdit
        Case "b"
            f = New frmListDialog
        Case "c"
            f = New frmSuggestion
        Case Else
            Throw New Exception("Unsupported startup form option")
    End Select
    Application.Run(f)
End Sub

    OriginalL'auteur DarrenMB