this->buttonl->Location = System::Drawing::Point(22, 23); this->buttonl->Name = L buttonl ;

this->buttonl->Si2e = System::Drawing::Size(98, 23); this->buttonl->TabIndex = 0; this->buttonl->Text = Ь Переписать ; this->buttonl->UseVisualStyleBackColor = true; this->buttonl->Click += gcnew System::EventHandler(this,

SForml::buttonl Click);

textBoxl

this->textBoxl->Location = System::Drawing::Point(22, 52); this->textBoxl->Multiline = true; this->textBoxl->Name = L textBoxl ;

this->textBoxl->Size = System::Drawing::Size(211, 91); this->textBoxl->TabIndex =1;

textBox2

this->textBox2->Location = System::Drawing::Point(22, 149); this->textBox2->Multiline = true; this->textBox2->Name = L textBox2 ;

this->textBox2->Size = System::Drawing::Size(211, 83); this->textBox2->TabIndex = 2;

button2

this->button2->Location = System::Drawing::Point(139, 23); this->button2->Name = L button2 ;

this->button2->Size = System::Drawing::Size(75, 23); this->button2->TabIndex = 3; this->button2->Text = Ь Выход ; this->button2->UseVisualStyleBackColor = true; this->button2->Click += gcnew System: :EventHandler(this.

iForml: :button2 Click) ;

Forml

:r.is->RutoScaleDimensions = System: :Drawing: :SizeF(6, 13); tl;is->AutoScaleMode = System: :Windows:: Forms::AutoScaieMode:: Font; ttiis->ClientSize = System: : Drawing: : Size (292, 266); this->Controls->Add (this->button2); :his->Controls->Add (this->textBox2); this->Controls->Add(this->textBoxl) ; tnis->Controls->Add (this->buttonl); this->Name = L Forml ; this->Text = L Forml ;

Chis->Shown += gcnew System: :EventHandler (this, SForml:: FormlShown) ; :his->Resumelayout (false); uis->Perf ormLayout ();

L Ipragma endregion

[private: System: :Void buttonl Click(System: :Object sender, Sys-[ am:: EventArgs e)

String p= c:\\2008.txt ;

void SaveTextToFile (String File, TextBox tb) SaveTextToFile (p, this->textBoxl) ;

void ReadTextFromFile(String File,TextBox tb) ReadTextFroroFile (p, this->textBox2);

Примечание: в записи пути к файлу пишутся две косые вместо одной,

потому что одна рассматривается как начало возможной esc-шследователь ности,

а когда две подряд - это переводится как одна */

private: System::Void button2 Click(System::Object sender. System: :EventArgs e)

this->Close(); }

private: System::Void Forml Shown(System::Object sender. System: :EventArgs e)

this->textBoxl->Focus 0 ; }

};

Пояснение:

Для работы с файлами созданы две процедуры: saveTextToFiie о и Read-TextFromFiieO, а В форме размещены два компонента TextBox. в одном компоненте набирается необходимый текст (свойство Multiline этого компонента установлено в значение true - поле компонента можно растягивать до необходимых размеров и вводить в это поле множество строк, завершая ввод каждой строки нажатием клавиши <Enter>). Затем нажимается кнопка Переписать, в обработчике которой набранный в TextBox текст записывается в файл, а затем из него читается и записывается в другой компонент. Результат работы этой проверочной программы показан на рис. 11.79.

Переписать j Выход

аааааааааа/ ЬЬЬЬЬЬЬЬЬЬЬ/ ссссссссссссссс/ dddddddddddddddd/

аааааааааа/ ЬЬЬЬЬЬЬЬЬЬЬ/ ссссссссссссссс/ dddddddddddddddd/

Рис. 11.79. Запись/чтение текстового файла через компоненты TextBox