RichTextBox Konstruktor

public:
 RichTextBox();

public RichTextBox();

Public Sub New ()

Exempel

I följande kodexempel skapas en RichTextBox kontroll som läser in en RTF-fil i kontrollen och söker efter den första instansen av ordet "Text". Koden ändrar sedan teckensnittsstilen, teckenstorleken och teckenfärgen för den markerade texten och sparar ändringarna tillbaka till den ursprungliga filen. Exempelkoden slutförs genom att kontrollen läggs till i dess Form. Det här exemplet kräver att metoden som skapas i exempelkoden läggs till i en Form klass och anropas från konstruktorn i formuläret. Exemplet kräver också att en RTF-fil skapas, i roten på C-enheten, som innehåller ordet "Text".

public:
   void CreateMyRichTextBox()
   {
      RichTextBox^ richTextBox1 = gcnew RichTextBox;
      richTextBox1->Dock = DockStyle::Fill;

      richTextBox1->LoadFile( "C:\\MyDocument.rtf" );
      richTextBox1->Find( "Text", RichTextBoxFinds::MatchCase );

      richTextBox1->SelectionFont = gcnew System::Drawing::Font(
         "Verdana", 12, FontStyle::Bold );
      richTextBox1->SelectionColor = Color::Red;

      richTextBox1->SaveFile( "C:\\MyDocument.rtf",
         RichTextBoxStreamType::RichText );

      this->Controls->Add( richTextBox1 );
   }

public void CreateMyRichTextBox()
{
    RichTextBox richTextBox1 = new RichTextBox();
    richTextBox1.Dock = DockStyle.Fill;

    richTextBox1.LoadFile("C:\\MyDocument.rtf");
    richTextBox1.Find("Text", RichTextBoxFinds.MatchCase);

    richTextBox1.SelectionFont = new Font("Verdana", 12, FontStyle.Bold);
    richTextBox1.SelectionColor = Color.Red;

    richTextBox1.SaveFile("C:\\MyDocument.rtf", RichTextBoxStreamType.RichText);

    this.Controls.Add(richTextBox1);
}

Public Sub CreateMyRichTextBox()
    Dim richTextBox1 As New RichTextBox()
    richTextBox1.Dock = DockStyle.Fill
    
    
    richTextBox1.LoadFile("C:\MyDocument.rtf")
    richTextBox1.Find("Text", RichTextBoxFinds.MatchCase)
    
    richTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
    richTextBox1.SelectionColor = Color.Red
    
    richTextBox1.SaveFile("C:\MyDocument.rtf", RichTextBoxStreamType.RichText)
    
    Me.Controls.Add(richTextBox1)
End Sub

Kommentarer

Som standard Multiline är kontrollens egenskap inställd på true.

Se även

• Multiline