Haii Leute,
ich möchte gerne in einer GroupBox eine ComboBox adden. Diese ist, wie man nachstehendem Code entnehmen kann, in der Größe von dem Inhalt abhängig. Leider bekomme ich es nicht so recht hin, die ComboBox in meiner GroupBox zu adden.
Mein bisheriger Code
ich möchte gerne in einer GroupBox eine ComboBox adden. Diese ist, wie man nachstehendem Code entnehmen kann, in der Größe von dem Inhalt abhängig. Leider bekomme ich es nicht so recht hin, die ComboBox in meiner GroupBox zu adden.
VB.NET-Quellcode
- Dim cb As New ComboBox
- cb.Location = New Point(62, 13) : cb.Height = 13
- cb.FlatStyle = FlatStyle.Popup : cb.DropDownStyle = ComboBoxStyle.DropDownList
- cb.Items.AddRange(New String() {"", "Anlegen", "Folgevorgang", "Löschen / Sperren", "Neuzuordnung"})
- Me.Controls.Add(cb)
- Dim g As Graphics = cb.CreateGraphics()
- Dim Breite, MaxBreite As Single
- For Each Element In cb.Items
- Breite = g.MeasureString(Element.ToString, cb.Font).Width
- If Breite > MaxBreite Then MaxBreite = Breite
- Next
- cb.Width = CInt(MaxBreite) + 20