Member 14621280 Ответов: 1

Несколько шрифтов показывают в richtextbox


у меня есть Richtextbox1, и это был контент с несколькими шрифтами, который связан с базой данных ms access... но когда я нажимаю Datagridview1 он был успешно открыт в Richtextbox1 но показывался только один язык или один шрифт но другой шрифт не показывался должным образом

пожалуйста, помогите мне

Что я уже пробовал:

Public Class SongShow

    Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress

    End Sub

    Private Sub SongShow_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.VisibleChanged
        'TODO: This line of code loads data into the 'SongDataSet.MAS_SONGS' table. You can move, or remove it, as needed.
        Me.MAS_SONGSTableAdapter.Fill(Me.SongDataSet.MAS_SONGS)

    End Sub


    Private Sub SongShow_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim colors As DialogResult
        colors = ColorDialog1.ShowDialog

        If colors = Windows.Forms.DialogResult.OK Then
            RichTextBox1.ForeColor = ColorDialog1.Color

        End If
    End Sub

    Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
        If e.KeyCode = Keys.Tab Then
            RichTextBox2.Show()
            RichTextBox1.Visible = False
            RichTextBox2.Visible = True
        End If
    End Sub

    Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown
        If e.KeyCode = Keys.Tab Then
            RichTextBox1.Show()
            RichTextBox2.Visible = False
            RichTextBox1.Visible = True
        End If
    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

    End Sub
End Class

1 Ответов

Рейтинг:
1

RickZeeland

Смотрите ответ здесь: Как установить несколько стилей шрифта в поле форматированного текста[^]

Для выделения части текста используйте Объект selectionstart и SelectionLength, затем установите стиль следующим образом:

RichTextBox1.SelectionFont = New Font("Tahoma", 20)

Также смотрите этот пример: Два шрифта подчеркивают в richtextbox - VB.NET[^]


Member 14621280

Я новичок в этом можете пожалуйста прислать мне исходный код пожалуйста