Hallo liebe User
Ich habe ein Problem. Und zwar möchte ich eine Schriftart von einem Label verändern, bzw. etwas etwas mit einer bestimmten Schriftart (aus einer Combobox ausgewählt) einfügen, doch es geht nicht. Die Größe aus dem NumericUPDown Dingen wird übernommen.
Die Schriftart aber nicht. Ich nutze folgenden Code für die Combobox:
und das hier:
Und für den Button, der das dann ausführen soll:
Würde mich sehr über Hilfe freuen.
MfG friloo
Ich habe ein Problem. Und zwar möchte ich eine Schriftart von einem Label verändern, bzw. etwas etwas mit einer bestimmten Schriftart (aus einer Combobox ausgewählt) einfügen, doch es geht nicht. Die Größe aus dem NumericUPDown Dingen wird übernommen.
Die Schriftart aber nicht. Ich nutze folgenden Code für die Combobox:
VB.NET-Quellcode
- ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
- Dim Schriftarten() As FontFamily = FontFamily.Families
- For Each Schriftart In Schriftarten
- Dim Schriftstil As Font
- If Schriftart.IsStyleAvailable(FontStyle.Regular) Then
- Schriftstil = New Font(Schriftart.Name, ComboBox1.Font.Size, FontStyle.Regular)
- ElseIf Schriftart.IsStyleAvailable(FontStyle.Italic) Then
- Schriftstil = New Font(Schriftart.Name, ComboBox1.Font.Size, FontStyle.Italic)
- ElseIf Schriftart.IsStyleAvailable(FontStyle.Bold) Then
- Schriftstil = New Font(Schriftart.Name, ComboBox1.Font.Size, FontStyle.Bold)
- Else
- Continue For
- End If
- ComboBox1.Items.Add(Schriftstil)
- Next
und das hier:
VB.NET-Quellcode
- Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
- e.DrawBackground()
- If ((e.State And DrawItemState.Focus) <> 0) Then e.DrawFocusRectangle()
- Dim b As Brush = New SolidBrush(e.ForeColor)
- e.Graphics.DrawString(ComboBox1.Items(e.Index).Name, ComboBox1.Items(e.Index), b, e.Bounds)
- End Sub
Und für den Button, der das dann ausführen soll:
Würde mich sehr über Hilfe freuen.
MfG friloo