Поделиться через


RichTextBox Конструктор

Определение

Инициализирует новый экземпляр класса RichTextBox.

public:
 RichTextBox();
public RichTextBox ();
Public Sub New ()

Примеры

В следующем примере кода создается RichTextBox элемент управления , который загружает RTF-файл в элемент управления и выполняет поиск первого экземпляра слова "Текст". Затем код изменяет стиль шрифта, размер и цвет выделенного текста и сохраняет изменения обратно в исходный файл. Пример кода завершается добавлением элемента управления в его Form. В этом примере требуется, чтобы метод, созданный в примере кода, был добавлен в Form класс и вызван из конструктора формы. В этом примере также требуется создать RTF-файл в корне диска C, содержащий слово "Текст".

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

Комментарии

По умолчанию свойству Multiline элемента управления присваивается значение true.

Применяется к

См. также раздел