ReinisializeForm?

Du kan prøve Me.InitializeComponent() i din form.

Men det er ikke med sikkerhed at alt står deri, men det er den formen bruger til at finde ud af hvor knapper osv. skal være.
Hvis foreksempel selv har kodet teksten på din knap, vil den ikke ændre sig.

Hej,

Det har jeg prøvet. Men efter jeg har kørt  Me.InitializeComponent() så er der ingen af knapperne på min form som virke, som om at jeg mister referencen til min form.

Din InitializeComponent() opretter nye instanser af knapperne - og det er nok ikke det du vil :)

Der er mange måder at løse dit problem på. Nogle mere elegante end andre. Memento-pattern'et kunne være en løsning på at gemme state.

http://en.wikipedia.org/wiki/Memento_pattern

Hehe, ok, jeg tror jeg foretrækker noget VB kode.

Tja er jo heller ikke helt kønt at gøre det på den måde.

Kan også køre en Application.Restart() hvis det kan bruges.

Den korrekte måde er stadig at skrive sin tilstandsstyring selv, selvom det er ret kedeligt :-).

Kig på mønstret - ikke sproget.

En simpel version (i psudo-vb - jeg er ikke VB-Haj):

Private memento As New Dictionary(Of Control, Boolean)()

Private Sub SaveState()
    For Each c As Control In Me.controls
        memento(c) = c.Enabled
    Next
End Sub

Private Sub RestoreState()
    For Each c As Control In memento.Keys
        c.Enabled = memento(c)
    Next
End Sub

Kald SaveState() i din .ctor og RestoreState når du skal genetablere..

Hmm, jeg håbede på en standard function til det.

Men jeg har lavet en work around.

Har lavet nedenstående function og kalder den fra min form :-)

    Private Function reloadForm(ByVal param1 As String)w window, and closes the old one
        Dim newMyForm As New MyForm(param1)

        Dim old_Left = Me.Left
        Dim old_Top = Me.Top
        Dim old_WindowState = Me.WindowState
        Me.Close()

        newMyForm.Show()
        newMyForm.Focus()
        newMyForm.BringToFront()
        newMyForm.Left = old_Left
        newMyForm.Top = old_Top
        newMyForm.WindowState = old_WindowState
    End Function

Der gik noget galt i post, her er functionen

Private Function reloadForm(ByVal param1 As String)
        Dim newMyForm As New MyForm(param1)

        Dim old_Left = Me.Left
        Dim old_Top = Me.Top
        Dim old_WindowState = Me.WindowState
        Me.Close()

        newMyForm.Show()
        newMyForm.Focus()
        newMyForm.BringToFront()
        newMyForm.Left = old_Left
        newMyForm.Top = old_Top
        newMyForm.WindowState = old_WindowState
    End Function