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

更改字体名称

4 个答案: