Font.Bold setzen

Question

Hallo Leute,

ich möchte ein Font.Bold=True setzen, bekomme das aber nicht hin.

    Dim myFont As Font
    myFont = TextBox1.Font

Dabei ist die Textbox1.Font aber nicht bold, sondern ich möchte lediglich myFont von Textbox1 die Font-Properties erben und zusätzlich Bold setzen.

Wie bekomme ich das hin?

Vielen Dank im Voraus.

Gruß Ahmed

Answer 1

Hi Ahmed,
hier mal eine kleine Demo, die zeigt, wie man der TextBox "fette" Schrift zuweisen kann.

Public Class Form1
  Private tb As New TextBox With {.Dock = DockStyle.Top}
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Controls.Add(tb)

    Dim f As New Font(tb.Font.FontFamily, tb.Font.Size, FontStyle.Bold)
    tb.Font = f
  End Sub
End Class

---

--
Viele Grüsse
Peter Fleischer (ehem. MVP)
Meine Homepage mit Tipps und Tricks

Answer 2

Hey,

der Font-Konstruktor hat eine Überladung, die als ersten Parameter einen "Prototype-Font" nimmt, also den schon existierenden Font deiner TextBox. Als zweiten Parameter übergibst du den neuen FontStyle.

Dim myFont As New Font(TextBox1.Font, FontStyle.Bold)

Beste Grüße

Answer 3

Vielen Dank für die Hilfe.

Hat wunderbar funktioniert.

Gruß Ahmed