Hallo
Ich habe ein Problem und komme nicht weiter bzw finde nicht heraus warum das nicht klappt.
Folgendes:
frm_Main: Laden der Form in einen Container; klappt alles.
Die Klassendatei:
Die aufgerufene Form:
Hoffe Ihr könnt mir helfen. DANKE
Ich habe ein Problem und komme nicht weiter bzw finde nicht heraus warum das nicht klappt.
Folgendes:
frm_Main: Laden der Form in einen Container; klappt alles.
VB.NET-Quellcode
- Public Class frm_Main
- Dim AppSet As New AppSettings
- Dim AppFnc As New AppFunktionen
- Private Sub btn_sdcopy_Click(sender As Object, e As EventArgs) Handles btn_sdcopy.Click
- AppFnc.switchPanel(frm_sdcopy, False)
- Me.btn_sdcopy.Enabled = False
- End Sub
- Private Sub btn_settings_Click(sender As Object, e As EventArgs) Handles btn_settings.Click
- AppFnc.switchPanel(frm_settings, False)
- Me.btn_settings.Enabled = False
- End Sub
- .
- .
- End Class
Die Klassendatei:
VB.NET-Quellcode
- 'Funktion Forms aufrufen
- Public Sub switchPanel(ByRef formName As Form, ByVal formAktiv As String)
- Call Forms_close()
- frm_Main.pn_Container.Controls.Clear()
- formName.TopLevel = False
- frm_Main.pn_Container.Controls.Add(formName)
- formName.Show()
- End Sub
- '------
- 'Funktion Form schließen
- Public Sub Forms_close()
- If frm_sdcopy IsNot Nothing Then frm_sdcopy.Hide() : frm_Main.btn_sdcopy.Enabled = True
- If frm_settings IsNot Nothing Then frm_settings.Hide() : frm_Main.btn_settings.Enabled = True
- .
- ...
- End Sub
Die aufgerufene Form:
VB.NET-Quellcode
- Public Class frm_sdcopy
- Dim AppSet As New AppSettings
- Dim AppFnc As New AppFunktionen
- .
- Private Sub frm_sdcopy_Show(sender As Object, e As EventArgs) Handles Me.Shown
- AppSet.getToolsettings()
- ...
- ....
- MessageBox.Show("Bin hier angekommen")
- [b]' Bei der msgBox kommt der Code NUR beim ersten Aufruf an. Rufe ich derweil eine andere Form in den Container und
- ' lade dann erneut diese hier auf passiert nichts. Habe das ganze schon mit "Load" und "Shown" durchgetestet.[/b]
- .
- If AppSet.mstrzipaktiv = 1 Then
- lbl_zipsave.Text = "mache dies"
- Else
- lbl_zipsave.Text = "mache das"
- End If
- End Sub
Hoffe Ihr könnt mir helfen. DANKE
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.