Visual Basic richtextbox - Einstellung bestimmten text Italic schriftart

Habe ich eine Richtextbox, was produziert text, basierend auf vom Benutzer eingegebenen Variablen sowie einige grundlegende Formatierungen - z.B.:

name = txtname.text
richtextbox1.text = "Hello my name is " & name & "."

Was ich tun möchte, ist setzen Sie den text in die variable name in Kursiv, wenn es angezeigt wird, wie dieses.

Hallo mein name ist Bob.

Besten, die ich habe finden können, ist zu tun mit Auswahl reicht, aber kein Glück gehabt.

Prost!

Bitte klären Sie, VB6 oder VB.NET.
Ah Entschuldigung. Ich benutze Visual Studio 2010, die, wie ich glaube .net?

InformationsquelleAutor Lwkd | 2011-03-19

  1. 1

    Versuchen Sie dies:

    Me.RichTextBox1.Rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}} hello my name is \i Bob\i0 \par}"

    Wenn Sie verwenden von wordpad zum schreiben von text, speichern Sie es im rtf-format und dann die Datei in Editor öffnen, erhalten Sie etwas, mit zu beginnen. Sie können entfernen Sie einige von dem, was wordpad fügt (wie das Programm, das Sie erzeugt), aber es sieht aus wie Sie haben zu verlassen, zumindest in der code-Seite und mindestens eine schriftart.

    Sorry, ein paar Fragen der Verständnis deiner Antwort. Sind Sie zu empfehlen exportieren die Zeichenfolge in wordpad, verändern es, indem Sie die Kursiv formatieren, importieren Sie diese dann wieder in VB, um es mit Kursiv-Formatierung angewendet?
    Zuerst müssen Sie die .Die Rtf-Eigenschaft des rich-text-Feld ist, statt des .text-Eigenschaft.
    Ich war denken mit wordpad mehr als einen Weg zu entdecken, die markup erforderlich für rtf. Sobald Sie wissen, den gewünschten Beginn und das Ende der rtf string, und dass der \i und \i0 start-und end-Kursiv, Sie können bauen Sie Ihre eigenen rtf-strings.

    InformationsquelleAutor Judah Sali

  2. 1
    Dim BO As New Font("Arial", 12, FontStyle.italic) ' Italic
  richtextbox1.text = "Hello my name is " 
  richtextbox1.selectionfont = BO
  richtextbox1.appendtext(name)

    Hoffe, das hilft

    InformationsquelleAutor Dave A

  3. 1

    Schrieb ich eine kleine routine, die das tut:

    Private Sub changeRTF(ByVal strToChange As String, ByRef richTextBox As RichTextBox, ByVal color As Color, Optional ByVal ital As Boolean = False, Optional ByVal bold As Boolean = False, Optional ByVal pointSize As Single = -1)
    richTextBox.SelectionStart = richTextBox.Find(strToChange, RichTextBoxFinds.MatchCase)

    If ital And bold Then
        richTextBox.SelectionFont = New Font(richTextBox.Font, FontStyle.Bold + FontStyle.Italic)
    Else
        If ital Then richTextBox.SelectionFont = New Font(richTextBox.Font, FontStyle.Italic)
        If bold Then richTextBox.SelectionFont = New Font(richTextBox.Font, FontStyle.Bold)
    End If

    richTextBox.SelectionColor = color

    Dim originalFontFamily As FontFamily = richTextBox.SelectionFont.FontFamily
    Dim originalFontStyle As FontStyle = richTextBox.SelectionFont.Style

    If pointSize > 0 Then richTextBox.SelectionFont = New Font(originalFontFamily, pointSize, originalFontStyle)
End Sub

    So, erstellen Sie Ihren text, und rufen Sie dann changeRTF("Bob",richtextbox1,color.gold,true).

    Das einzige problem mit diesem code ist es derzeit nur findet die erste, die Existenz der Zeichenfolge, die Sie suchen. Ich es verwenden, um markieren Sie die Titel, damit es nicht ein problem bisher (ich wiederhole nicht den Titel).

    InformationsquelleAutor APrough

Schreibe einen Kommentar