Ferramentas de Usuário

Ferramentas de Site


dev_net:vb.net:richtextbox

Richtextbox

Um dos controlos de relevo que o Visual Studio fornece é a Richtextbox, pois tamanhas são as propriedades do mesmo. Em baixo estão alguns dos exemplos básicos mais procurados.

Colocar o texto sublinhado a Negrito:

 Private Sub Negrito(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim FonteActual As Font = RichText.SelectionFont
            If RichText.SelectionFont.Bold = True Then
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Regular)
            Else
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Bold)
            End If
 
        End If
    End Sub

Itálico:

Private Sub Italico(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim FonteActual As Font = RichText.SelectionFont
            If RichText.SelectionFont.Italic = True Then
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Regular)
            Else
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Italic)
            End If
 
        End If
    End Sub

Sublinhado:

Private Sub Sublinhado(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim FonteActual As Font = RichText.SelectionFont
            If RichText.SelectionFont.Underline = True Then
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Regular)
            Else
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Underline)
            End If
 
        End If
    End Sub

Rasurado:

Private Sub Rasurado(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim FonteActual As Font = RichText.SelectionFont
            If RichText.SelectionFont.Strikeout = True Then
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Regular)
            Else
                RichText.SelectionFont = New Font(FonteActual, FontStyle.Strikeout)
            End If
 
        End If
    End Sub
Para chamar os códigos acima, basta colocar o Sub dentro de um evento, ex:
Negrito(RichTextbox1)

Alinhamento à esquerda:

RichTextBox1.SelectionAlignment = HorizontalAlignment.Left

Alinhamento ao centro:

RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

Alinhamento à direita:

RichTextBox1.SelectionAlignment = HorizontalAlignment.Right

Definir a cor do texto:

Private Sub Cor(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim EscolherCor As New ColorDialog
 
            With EscolherCor
                .AllowFullOpen = True
                .AnyColor = True
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    RichText.SelectionColor = .Color
                End If
            End With
 
        End If
    End Sub

Definir a cor de fundo do texto:

Private Sub CorFundo(ByRef RichText As RichTextBox)
        If RichText.SelectionFont IsNot Nothing Then
 
            Dim EscolherCor As New ColorDialog
 
            With EscolherCor
                .AllowFullOpen = True
                .AnyColor = True
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    RichText.SelectionBackColor = .Color
                End If
            End With
 
        End If
    End Sub

Em breve, funções mais avançadas serão demonstradas. Até ao próximo artigo!

Artigo escrito por bioshock

dev_net/vb.net/richtextbox.txt · Última modificação em: 2018/05/14 21:37 (edição externa)