vb.net - 更改字体名称

Question

在 vb.net 中，我有一个用于编写文本的富文本框和一个用于字体名称的组合框。我使用以下代码将字体添加到组合框：

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ff As FontFamily
    For Each ff In System.Drawing.FontFamily.Families
        FontName.Items.Add(ff.Name)
    Next
End Sub

但我不知道，如何更改富文本框的字体名称。

Answer 1

您必须使用以下代码：

RichTextBox1.Font = New Font("Font Name", size)

使其适应您的特定条件：RichTextBox1用您的 RichTextBox 替换，将“字体名称”替换为您想要的 ComboBox 的给定项目FontName（size它可能是当前的，即RichTextBox1.Font.Size）。

Answer 2

Font.Name 是只读的，但 Font 不是。所以我会这样做：

TextBox1.Font = New Font(FontName.Text, 26.0, FontStyle.Regular)

大小和样式可以是硬编码的，也可以从它们自己的组合框中填充。将该代码放在您为从组合框中选择的用户使用的任何事件驱动子中（例如 SelectedValue 已更改）

Answer 3

RichTextBox.Font = New Font(FontName.Text, 10, FontStyle.Regular)

Answer 4

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim ff As FontFamily
    For Each ff In System.Drawing.FontFamily.Families
        FontName.Items.Add(ff.Name)
    Next

End Sub