Zugriff auf Formular

31/07/2009 - 21:03 von Torsten Runge | Report spam
Hallo zusammen,

vermutlich ist das was ich vorhabe und wo ich mich grad im Kreis drehe ganz
simpel, aber ich komm einfach nicht drauf und freue mich über Hilfe.

Ich öffne aus einem Formular frmMain ein Formular als neue Instanz.

Dim NEUfrmListe As New frmListe
NEUfrmListe.MdiParent = frmMain
NEUfrmListe.Show()
NEUfrmListe.Daten_Laden()

Bis dahin funktioniert im Formular alles wunderbar. Nun möchte ich aber aus
einem anderen Formular heraus auf eine Funktion im Formular NEUfrmListe
zufreifen, wenn dieses geöffnet ist.

Dim I As Integer
For I = 0 To (Me.MdiParent.MdiChildren.Length) - 1
Select Case Me.MdiParent.MdiChildren(I).Name.ToString
Case frmListe
frmListe.FilterGrid()
End Select
Next I

In der obigen Schleife wird auch festgestellt, dass das Formular geöffnet
ist, aber die Funktion wird dennoch nicht ausgeführt.
Öffne ich das Formular wie folgt kann ich auf die Funktion zugreifen.

frmListe.MdiParent = frmMain
frmListe.Show()

Was mach ich falsch? NEUfrmListe kann auch mehrfach geöffnet worden sein,
gibts da eine Möglichkeit herauszufinden, um die Funktion in allen offenen
Fenstern ausführen zu lassen oder in genau einem dieser Fenster?

Gruß,
Torsten
 

Lesen sie die antworten

#1 Karsten Sosna
01/08/2009 - 08:23 | Warnen spam
"Torsten Runge" schrieb im Newsbeitrag
news:
Hallo zusammen,

vermutlich ist das was ich vorhabe und wo ich mich grad im Kreis drehe
ganz simpel, aber ich komm einfach nicht drauf und freue mich über Hilfe.

Ich öffne aus einem Formular frmMain ein Formular als neue Instanz.

Dim NEUfrmListe As New frmListe
NEUfrmListe.MdiParent = frmMain
NEUfrmListe.Show()
NEUfrmListe.Daten_Laden()

Bis dahin funktioniert im Formular alles wunderbar. Nun möchte ich aber
aus einem anderen Formular heraus auf eine Funktion im Formular
NEUfrmListe zufreifen, wenn dieses geöffnet ist.

Dim I As Integer
For I = 0 To (Me.MdiParent.MdiChildren.Length) - 1
Select Case Me.MdiParent.MdiChildren(I).Name.ToString
Case frmListe
frmListe.FilterGrid()
End Select
Next I



Hallo Torsten,
falscher Ansatz. frmListe is keine Instanz sondern ein Typ.
\\\
For Each frm In Me.MdiParent.MdiChildren
If TypeOf frm Is frmListe Then
frm.FilterGrid()
End If
Next
///
Gruß Scotty

Ähnliche fragen