Question

我需要一些帮助来弄清楚如何将相同的文本设置为粗体，斜体，下划线到富文本框中。到目前为止，我一直这样做......

Public Class Form1
    Dim texto As String

    Public Sub seleccionCB()

        If CBNegrita.Checked = True Then
            txtTexto.Font = New Font(txtTexto.Font, FontStyle.Bold)

        Else
            txtTexto.Font = New Font(txtTexto.Font, FontStyle.Regular)
            If CBCursiva.Checked = True Then
                txtTexto.Font = New Font(txtTexto.Font, FontStyle.Italic)
            Else
                txtTexto.Font = New Font(txtTexto.Font, FontStyle.Regular)
                If CBSub.Checked = True Then
                    txtTexto.Font = New Font(txtTexto.Font, FontStyle.Underline)
                Else
                    txtTexto.Font = New Font(txtTexto.Font, FontStyle.Regular)
                End If

            End If

        End If

    End Sub

Answer 1

您可以使用按位Or运算符组合多个值，例如：

txtTexto.Font = New Font(txtTexto.Font, FontStyle.Bold Or FontStyle.Italic)

但是，在您的情况下，您需要检查每个条件，您可以这样做：

Dim style As FontStyle = FontStyle.Regular
If CBNegrita.Checked Then style = style Or FontStyle.Bold
If CBCursiva.Checked Then style = style Or FontStyle.Italic
If CBSub.Checked Then style = style Or FontStyle.Underline
txtTexto.Font = New Font(txtTexto.Font, style)

将多个FontStyles应用于Richtextbox

1 个答案: