Opdatering af statusbar fra childform i VB.Net

Se http://www.eksperten.dk/spm/264103

Problemstillingen er egentlig den samme

Jeg har prøvet at kigge på eksemplet og jeg syntes ikke lige at jeg fik svar på mit spørgsmål.

I din main-form har du:

mdichildform mitChild = new mdichildform();
mitChild.MdiParent = this;

Nu kan du i din mdichildform, kalde statusbaren med

this.MdiParent.statusbar.(valgfri metode);

Og i VB skifter du this ud med Me

Jeg kan simpelthen ikke få det til at virke. Nu har jeg vedlagt den kode jeg har prøvet at lave. Min mainform kender ikke mdichildform. Er der nogen speciel reference der skal være oprettet eller skal childformen have indstillet nogle bestemte properties eller for den sags skyld oprettes på en bestem måde.


'Kode i min MainForm Load
  Me.StatusBarPanelText.Text = "Test af statusbar"

  mdichildform mitChild = New mdichildform()
  mitChild.MdiParent = Me

'Kode i min childform
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles Button1.Click, Button2.Click, Button3.Click

        Dim ButtonIndex As Button
        ButtonIndex = CType(sender, Button)

        Try

            Select Case ButtonIndex.Text
                Case Is = "Button1"
                    Me.MdiParent.StatusBarPanelText.Text = ButtonIndex.Text

                Case Is = "Button2"
                    Me.MdiParent.StatusBarPanelText.Text = ButtonIndex.Text

                Case Is = "Button3"
                    Me.MdiParent.StatusBarPanelText.Text = ButtonIndex.Text

            End Select

        Catch
            MessageBox.Show(Err.Description)

        End Try

    End Sub

Den StatusBarPanelText du har på din MainForm, er den private? Hvis den er så ret den til Public.

Den var oprettet som friend, men nu har jeg prøvet at ændre den til public uden held.

Når jeg i min mainform skriver nedenstående kode får jeg en syntaksfejl. Er mdichildform en metode i vb.net eller skal den dim' på en eller anden måde.

  mdichildform mitChild = New mdichildform()
  mitChild.MdiParent = Me

Dit panel skal være public. Derudover skal du ændre :
Me.MdiParent.StatusBarPanelText.Text = ButtonIndex.Text

til

CType(Me.MdiParent,NavnPåMainForm).StatusBarPanelText.Text = ButtonIndex.Text