Выполнение практической работы

Во время выполнения практической работы необходимо написать программу, которая позволяет вводить с клавиатуры в элемент управления RichTextBox форматированный текст, сохранять введенный текст в формате RTF на цифровой носитель (жесткий диск, флэш-накопитель и т.д.) с использованием стандартного диалогового окна «Сохранить файл», считывать из файла и записывать в RichTextBox файл в формате RTF.

Используемые элементы управления описаны в табл. 1.1.

Таблица 1.1.

№	Тип элемента	Устанавливаемые свойства
	Form	Name = “frmMain” Text = “Практическая работа №1” StartPosition = “CenterScreen”
	ToolStrip	Name = “ToolStripMain”
	ToolStripButton	Name = “cmdOpen” Text = “Открыть” DisplayStyle = “ImageAndText” Image = “Open.png”
	ToolStripButton	Name = “cmdSave” Text = “Сохранить” DisplayStyle = “ImageAndText” Image = “Save.png”
	ToolStripButton	Name = “cmdExit” Text = “Выход” DisplayStyle = “ImageAndText” Image = “Exit.png” Alignment = “Right”
	RichTextBox	Name = “rtbText” Dock = “Fill”

Интерфейс главного окна приложения приведен на Рис. 1.1.

Рис. 1.1. Главное окно приложения.

Полный исходный код лабораторной работы приведен в Листинге 1.1.

Листинг 1.1.

PublicClassfrmMain

PrivateSubcmdOpen_Click ( senderAsSystem.Object, _

eAsSystem.EventArgs ) HandlescmdOpen.Click

DimmyOpenFileDialogAsNewOpenFileDialog

myOpenFileDialog.Filter = "Файлы в формате RTF|*.rtf"

IfmyOpenFileDialog.ShowDialog = _

Windows.Forms.DialogResult.OKThen

Try

rtbText.LoadFile ( myOpenFileDialog.FileName )

CatchexAsException

MessageBox.Show ( "Ошибка открытия файла!" )

EndTry

EndIf

EndSub

PrivateSubcmdSave_Click ( senderAsSystem.Object, _

eAsSystem.EventArgs ) HandlescmdSave.Click

DimmySaveFileDialogAsNewSaveFileDialog

mySaveFileDialog.Filter = "Файлы в формате RTF|*.rtf"

mySaveFileDialog.DefaultExt = "rtf"

IfmySaveFileDialog.ShowDialog = _

Windows.Forms.DialogResult.OKThen

Try

rtbText.SaveFile ( mySaveFileDialog.FileName )

CatchexAsException

MessageBox.Show ( "Ошибка сохранения файла!" )

EndTry

EndIf

EndSub

PrivateSubcmdExit_Click ( senderAsSystem.Object, _

eAsSystem.EventArgs ) HandlescmdExit.Click

Application.Exit ()

EndSub

EndClass