Hallo,
ich bin gerade dabei eine Anwendung zu erstellen, diese soll dafür dienen einen Newsletter zu Konfigurieren. Leider scheitere ich dabei die Form und uc´s richtig anzuordnen.
Ich habe meine Main Form, in der Lade ich ein Uc welches die Ganze Zeit im Hintergrund angezeigt werden soll. Übers Menü kann man weitere Forms öffnen, welche in der Mainform gefangen sein sollen. Das ganze Funktioniert auch sehr gut. Nur leider werden die unterformen hinter dem Uc angezeigt.
Hier mal mein Code.
Private Sub frmNewsletter_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
Dim Products As New ucProductChoose
Products.Size = New Size(1900, 1700)
Me.Controls.Add(Products)
End Sub Public Function createForm(ByVal frm As Form, ByVal ucControls As List(Of _
UserControl), ByVal name As String, ByVal text As String) As Form
frm.TopLevel = False
frm.Visible = True
frm.Location = New Point(5, 25)
frm.Name = name
frm.Text = text
frm.BackColor = Color.FromArgb(160, 160, 160)
If Not ucControls Is Nothing AndAlso ucControls.Count > 0 Then
For Each ucControl In ucControls
With ucControl
If .Name = "ucStatus" Then
.Location = New Point(5, 250)
Else
.Location = New Point(_ucStatus.Width + 5, 5)
End If
End With
frm.Controls.Add(ucControl)
Next
frm.Size = New Size(909, 535)
Else
frm.Size = New Size(800, 360)
End If
If frm.Name = "frmHtmlPreview" Then
frm.Size = New Size(1100, 535)
End If
frm.Show()
Me.Controls.Add(frm)
Return frm
End Function Und noch ein weitere Stück
Private Sub VersandEMailToolStripMenuItem_Click(sender As System.Object, e As _
System.EventArgs) Handles VersandEMailToolStripMenuItem.Click
_UcList = New List(Of UserControl)
_UcList.Add(New ucStatus)
_UcList.Add(New ucUsertoMail)
If Not _Form.Name = "frmVersandMail" Then
_Form = New Form
createForm(_Form, _UcList, "frmVersandMail", "Versand-E-Mail")
_Form.Name = "frmVersandMail"
Else
_Form = New Form
createForm(_Form, _UcList, "frmVersandMail", "Versand-E-Mail")
End If
End Sub Ich hoffe es ist Verständlich was ich meine und mir kann jemand Helfen.
Grüße
Chris |