PDA

Vollständige Version anzeigen : [VB.Net] Problem mit MDIChild


ShadowBluna
28.09.2006, 11:59
Hallo zusammen,

ich habe ein Problem mit meinem MDIChild das mich in den Wahnsinn treibt.

Ich habe ein Hauptformular (MDIContainer) und 5 "Unterformulare" (MdiChild).
Die UFos werden über eine Funktion aufgerufen (siehe Codeauszug). 4 von 5 Formularen verhalten so wie sie es sollen, doch das fünfte Form macht mir arg zu schaffen. Wenn ich die Eigenschaft Dock = Fill setze, dann strecken sich alle Forms, nur das eine Form eben nicht und ich sehe den dunkelgrauen Hintergrund des MDIContainers. Anstelle von Dock = fill hatte ich es auch mit WindowState = Maximize versucht. Hier lief alles wie gewünscht, nur das eine besagte Form ist wieder aus der Reihe getanzt und hatte eine Titelleiste und die Min.-, Max.- und Schließenfunktion obwohl die im Aufruf ausgeschaltet wird (siehe Codeauszug.

Ich hatte auch schon die Eigenschaften der Forms vergliechen, aber da unterscheidet sich bis auf den Formularnamen nichts.

Wer hat bzw. hatte das gleiche Problem und hat es erfolgreich gelöst?

Ich bin echt am Verzeifeln.


Public Function f_openForm(ByVal p_id As Integer)
Dim frm As Form
frm = Nothing
Select Case p_id
Case 2
frm = New Form2
st_frm1.StatusBarPanel1.Text = c_st_1_frm2
st_frm1.StatusBarPanel2.Text = c_st_2_2
Case 3
frm = New Form3
st_frm1.StatusBarPanel1.Text = c_st_1_frm3
st_frm1.StatusBarPanel2.Text = c_st_2_2
Case 4
frm = New Form4
st_frm1.StatusBarPanel1.Text = c_st_1_frm4
st_frm1.StatusBarPanel2.Text = c_st_2_1
Case 5
frm = New Form5
st_frm1.StatusBarPanel1.Text = c_st_1_frm5
st_frm1.StatusBarPanel2.Text = c_st_2_4
Case 6
frm = New Form6
st_frm1.StatusBarPanel1.Text = c_st_1_frm6
st_frm1.StatusBarPanel2.Text = c_st_2_2
End Select


st_frm1.DataGrid1.Visible = False
st_frm1.MenuItem9.Enabled = True

'frm.Width = Me.Width - 12
'frm.Height = Me.Height - 80

frm.Text = vbNullString
frm.MaximizeBox = False
frm.MinimizeBox = False
frm.ControlBox = False
frm.ShowInTaskbar = False
frm.FormBorderStyle = FormBorderStyle.None
'frm.WindowState = FormWindowState.Maximized
frm.MdiParent = st_frm1
frm.Dock = DockStyle.Fill
st_activ = frm
frm.Show()

End Function

ShadowBluna
09.10.2006, 10:46
Hallo zusammen,

hat vor mir noch nie jemand dieses Problem gehabt?

Das kann ich irgendwie nicht glauben. :(