Разработка приложения My WordPad

Разработка приложения My WordPad

Федеральное агентство по образованию

230105

(шифр специальности)

КУРСОВАЯ РАБОТА

по дисциплине Технология разработки программных продуктов

Тема: Разработка приложения My WordPad

СПЭК 230105.09.13

Саранск

Содержание

Введение

1. Постановка задачи

2. Разработка проекта

2.1 Диаграмма классов

.2 Диаграмма последовательностей

. Описание выполнения задания

3.1 Создание формы

.2 Добавление объектов

.3 Программный код

. Верификационные требования

Заключение

Список использованных источников

Приложения

Введение

При работе с любой программой возникает необходимость работы с данными, организованными в виде файлов. Различают три типа файлов:

1.Текстовые файлы последовательного доступа: состоят из строк разной длины, отделенных друг от друга двумя символами: переход на другую строку и возврат каретки.

2.Текстовые файлы произвольного доступа: представляют собой набор записей одинаковой длины.

.Нетипизированные файлы представляют собой поток байтов, не объединенных ни в какие логические структуры.

Текстовый редактор My WordPad позволяет создавать и редактировать как простые текстовые документы, так и документы со сложным форматированием. Имеется возможность вставлять данные из других документов в документ My WordPad, добавлять текущие дату или время.

Чтобы увидеть, как будет выглядеть напечатанный документ в программе, имеется средство «Предварительный просмотр».

Для вывода документа WordPad на печать необходимо:

1.В меню Файл выбрать команду Печать.

.На вкладке Общие установить принтер и необходимые параметры, а затем нажать кнопку Печать.

Файлы My WordPad могут сохраняться как текстовые документы, файлы в формате RTF, текстовые документы MS-DOS или документы в формате Юникод. Эти форматы обеспечивают большую гибкость при работе с другими приложениями. Документы, содержащие несколько языков, должны сохраняться в формате RTF. My WordPad автоматически сохраняет файлы в формате RTF, но можно изменить тип файла по умолчанию в любое время. В меню «Файл» необходимо выбрать команду «Сохранить как». В поле со списком «Тип файла» выбрать формат документа, который будет использоваться по умолчанию.

1. Постановка задачи

Разработать приложение My WordPad для работы с текстовыми документами и документами, содержащими форматирование. В программе предусмотреть сохранение текстовых документов, файлов в формате RTF, текстовых документов MS-DOS или документов в формате Юникод, а также открытие уже существующих текстовых файлов.

В приложении реализовать возможность добавления в документ даты или/и времени, выделенного фрагмента текста из буфера обмена, а также копирование или удаление его в буфер. Чтобы увидеть, как будет выглядеть напечатанный документ в программе, в программе должно присутствовать средство «Предварительный просмотр».

2. Разработка проекта

.1 Диаграмма классов

Диаграмма классов служит для предоставления статистической структуры модели системы в терминологии классов объектно-ориентированного программирования. Диаграмма может отражать, в частности, различные взаимосвязи между отдельными сущностями предметной области, такими как объекты и подсистемы, а также описание их внутренней структуры и типа отношений.

Данная программа реализована на Visual Basic Net. Программным способом удобнее будет реализовать проект, если создать главную форму, на которой с помощью команд будут выбираться операции, производимые в программе и текстовый файл, который будет фиксировать и отображать эти действия.

Рис 1.2.1 - Диаграмма классов для приложения «My WordPad»

2.2 Диаграмма последовательностей

Диаграмма последовательностей используется для точного определения логики сценария. Основными элементами диаграммы являются объекты, у которых указывается линия жизни, фокус управления или активности, показаны все сигналы или потоки управления между объектами системы.

После загрузки формы пользователю предстоит возможность выбрать действие, которое он хочет выполнить. Для этого в программе реализовано меню. В зависимости от того, какие команды будет выполнять пользователь, будет производится отображение данных, сохранение данных.

Пользователь может воспользоваться не только командами меню но и командами на панели инструментов.

Рисунок 1.2.2 Диаграмма последовательности для приложения «My WordPad»2

3. Описание выполнения задания

.1 Создание формы

Первый этап включает в себя создание формы Windows Forms.

1.В меню Файл выделяем пункт Создать, а затем выбираем команду Проект.

2.В области Типы проектов выбираем Проекты Visual Basic.

.В области Шаблоны выберите Приложение Windows для проектов Visual Basic.

.Присваиваем проекту уникальное имя.

.После присвоения имени и указания нового решения нажимаем кнопку ОК. Studio создаст проект и откроет новую форму в конструкторе форм Windows Forms.

В данном проекте существуют 7 форм: frmГлавная, frmНайти, frmЗамена, frmСправка, frmДата_Время, frmО-программе, frmНовый-документ.

.2 Добавление объектов

Для ввода и редактирования текста располагаем на форме элемент RichTextBox - поле форматированного текста и устанавливаем свойство Text - пустой (empty), Anchor - Top, Bottom, Left, Right. Для выполнения различных действий располагаем на форме элемент MenuStrip, который содержит пункты: Файл, Правка, Вид, Вставка, Формат и Справка. Под меню располагаем панель инструментов - ToolStrip, позволяющую осуществить быстрый доступ к наиболее часто используемым пунктам меню, командам и функциям.

В нижней части формы создаем элемент - StatusStrip (строка состояния), для отображения различной информации для пользователя, а также для информирования о текущем состоянии приложения. Когда курсор находится над каким-либо элементом меню или панели инструментов, т.е. происходит событие MouseHover, в строке состояния появляется текст, содержащий информацию об этом элементе и его функциях.

Также рсполагаем на форме диалоговые окна: PrintDialog (для задания параметров печати), PrintPreviewDialog, PageSetupDialog, SaveFileDialog, OpenFileDialog, FontDialog(для выбора шрифтов, установленных операционной системой). - элемент управления, который отображает диалоговое окно предварительный просмотр.- отображает диалоговое окно параметры страницы.и OpenFileDialog - элементы, предназначенные для отображения стандартных диалоговых окон открытия и сохранения файла. Как и другие невизуальные обьекты, данные элементы управления во время разработки отображаются в специальной области по формой. Для вызова того или иного диалогового окна используется метод Show Dialog().

.3 Программный код

System.Drawing.PrintingClass Form1

Процедура Otkr осуществляет открытие текстового файла.

Form1.OpenFileDialog1.FilterIndex = 1

Отображаем диалоговое окно, которое запрашивает у пользователя путь. Если пользователь не отменит операцию в диалоговом окне, то с помощью функции FileOpen открываем файл и перехватываем все ошибки с помощью обработчика, очищаем текстовое поле.

If Form1.OpenFileDialog1.ShowDialog() = .Forms.DialogResult.OK Then+= 1(i, Form1.OpenFileDialog1.FileName, OpenMode.Input)= Form1.OpenFileDialog1.FileName.Text = ""

В зависимости от быбранного типа файла изменяем свойство WordWrap текстового поля, а текст формы меняем на название открываемого файла.

If Form1.OpenFileDialog1.FilterIndex = 1 Then.RichTextBox1.WordWrap = TrueForm1.OpenFileDialog1.FilterIndex = 2 Then.RichTextBox1.WordWrap = FalseIf= Len(MyNameFile)Until Mid(MyNameFile, m, 1) = "\".Text = Mid(MyNameFile, m, 1) + Form1.Text= m - 1.RichTextBox1.Text = ""

Далее происходит считывание строки из файла и добавленеи каждой строки в текстовое поле до тех пор, пока не достигнем конца файла, удаление выделения текста и закрытие файла.

Do Until EOF(i).RichTextBox1.Text = Form1.RichTextBox1.Text & LineInput(i) & vbCrLf.RichTextBox1.Select(1, 0)= Falseex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIf

Внесенные изменения можно сохранить при помощи команд меню Сохранить и Сохранить как, либо во время закрытия документа. Для этого используется процедура Sohr.

If i = 0 ThenForm1.SaveFileDialog1.ShowDialog() = .Forms.DialogResult.OK Then+= 1= Form1.SaveFileDialog1.FileName.Text = ""= Len(MyNameFile)Until Mid(MyNameFile, m, 1) = "\".Text = Mid(MyNameFile, m, 1) + Form1.Text= m - 1(i, Form1.SaveFileDialog1.FileName, OpenMode.Output)(i, Form1.RichTextBox1.Text)= Falseex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIf(i, MyNameFile, OpenMode.Output)(i, Form1.RichTextBox1.Text)(i)= FalseIf

Для печати документа используется команда Печать.

Try.DefaultPageSettings = PrintPageSettings= RichTextBox1.Text.Document = PrintDocument1result As DialogResult = PrintDialog1.ShowDialogresult = Windows.Forms.DialogResult.OK Then.Print()Ifex As Exception.Show(ex.Message)Try

Эта процедура события устанавливает параметры принтера по умолчанию для документа и , если пользователь изменил текст в объекте форматированного текста, присваивает содержимое объекта RichTextBox строковой переменной StringToPrint. Затем она открывает диалоговое окно Print и позволяет пользователю настроить любые параметры печати, которые можно изменить (принтер, число копий, опцию печати в файл и т.д.). если пользователь щелкнет на кнопке Ок, процедура события посылает задание печати на принтер, вызывая следующий оператор PrintDocument1.Print().

В процедуре события PrintDocument1_PrintPage содержится код:

Dim strFormat As New StringFormatrectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics)).Trimming = StringTrimming.Word.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strformat, numChars, numLines)= StringToPrint.Substring(0, numChars).Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)numChars < StringToPrint.Length Then= StringToPrint.Substring(numChars).HasMorePages = True.HasMorePages = False= RichTextBox1.TextIf

Эта процедура события выполняет печать текстового документа, и делает она это, точно определяя область печати (прямоугольник области печати) на основе параметров диалогового окна Page Setup. Весь текст, который помещается в этой области, может быть распечатан обычным образом. Текст, который выходит за границы этой области, должен быть разбит на несколько строк или страниц.

Область печати определяется с помощью переменной rectDraw, которая основана на классе RectangleF. Для обрезания строк, которые выходят за границу правого поля печати, испоьзуется переменная strFormat и метод Trimming. Готовая текстовая строка печатается методом DrawString. Свойство e.HasMorePages используется для указания того, есть ли еще страницы для печати. Если страниц для печати нет, свойство HasMorePages устанавливается на значение False, и содержимое переменной StringToPrint становится равным содержимому объекта RichTextBox.

Код для создания окна Параметры страницы:

Try .PageSettings = PrintPageSettings.ShowDialog()ex As Exception.Show(ex.Message)Try

Переменная PrintPageSettings хранит информацию об определении текущей страницы. Когда она присваивается свойству PageSettings объекта PageSetupDialog1, метод ShowDialog автоматически загружает диалоговое окно, которое позволяет пользователю изменить ориентацию страницы, поелей и другие параметры страницы.

Код для создания окна Предварительный просмотр:

Try.DefaultPageSettings = PrintPageSettings= RichTextBox1.Text.Document = PrintDocument1.ShowDialog()ex As Exception.Show(ex.Message)Try

Процедура присваивает переменную PrintPageSettings свойству DefaultPageSettings объекта PrintDocument1, а затем копирует текст из объекта форматированного текста в переменную StringToPrint и открывает диалоговое окно Предварительный просмотр. Предварительный просмотр автоматически использует данные параметров страницы для отображения визуального представления документа так, как он будет напечатан - не требуется отображать эту информацию вручную.

программный код файл документ wordpad

4. Верификационные требования

При загрузке формы команда «Найти далее» меню Правка должна быть недоступна, так как она не может выполняться, пока не будет выполнена команда «Найти». При щелчке по этой команде меню вызывается форма frmНайти, которая содержит текстовое поле и две кнопки: «Отмена» и «Найти далее». При щелчке по кнопке «Найти далее» выполняется код:

txt = Form8.TextBox1.Text.НайтиДалееToolStripMenuItem.Enabled = True

При закрытии приложения, создании нового документа или открытии другого, если внесенные изменения не были сохранены, появляется диалоговое окно, предлагающее пользователю сохранить изменения. Если пользователь нажал кнопку Yes, то выполняется следующий код:

If k = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)Try.Cancel = TrueIf

При открытии, сохранении файла происходит перехват ошибок. Если происходит исключение, то появляется сообщение об ошибке.

Заключение

В результате проделанной работы было создано приложение для работы с текстовыми документами. Текстовый редактор My WordPad позволяет создавать и редактировать как простые текстовые документы, так и документы со сложным форматированием. Имеется возможность вставлять данные из других документов в документ My WordPad, добавлять текущие дату или время.

Рекомендуемые системные требования:

ОС Microsoft Windows XP Professional SP2

Процессор AMD Sempron 1,1 ГГц

ОЗУ 256 Мб

Видеоадаптер RADEON 7000 Series

Минимальные системные требования:

ОС Windows NT

Процессор AMD Celeron 700 Гц

Видеоадаптер GeForce 5200

ОЗУ 64 Мб

Список использованных источников

1.Майкл Хальворсон Visual Basic.NET: Шаг за шагом/ Майкл Хальворсон - Москва: СП ЭКОМ, 2004 - 672 с.

2.Ляхович В.Ф. Основы информатики

3.Рудаков А.В., Технология разработки программных продуктов: Учебное пособие для студентов среднего профессионального образования. - М.: Издательский цент «Академия», 2005г. - 208с.

4.Культин Н. «Visual Basic: Освой на примерах », Санкт - Петербург, 2004г. - 325с.

5.Разработка Windows приложений на Microsoft Visual Basic .NET и Microsoft Visual C# .NET. Учебный курс MCAD/MCSD/ Пер. с англ. - М.: "Русская редакция", 2003 - 512 с.

.Джеймс Фокселл Освой самостоятельно Visual Basic.NET за 24 часа/ Джеймс Фокселл - Москва: Вильямс, 2002 - 416 с.

7.Интернет - ресурс www 5balov.ru.

8.Литвиненко Т.В Visual Basic 6.: учебное пособие для студентов вузов.

.Симонович С.,Евсеев Г., Алексеев А. Специальная информатика. Практическая информатика. Учебное пособие.

10.Рамбо Дж., Якобсон А., Буч Г., UML: специальный справочник. - СПб.: Питер, 2002.-656 с.: ил.

Приложение

Программный код

Imports System.Drawing.PrintingClass Form1data As IDataObject = Clipboard.GetDataObject()PrintPageSettings As New PageSettingsStringToPrint As StringPrintFont As New Font("Arial", 10)numChars As IntegernumLines As IntegerstringForPage As Stringrez As MsgBoxResultSub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosingk = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)Try.Cancel = TrueIfi <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)Ifrez = MsgBoxResult.Cancel Then.Cancel = TrueIfIfSubSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.OpenFileDialog1.Filter = "Файлы RTF(*.rtf)|*rtf|Текстовые документы(*.txt)|*.txt|Документ Word для Windows(*.doc)|*.doc|Windows Write(*.wri)|*.wri|Текстовые документы MS-DOS(*.txt)|*.txt|Текстовый документ в Юникоде(*.txt)|txt|Все документы(*.*)|*.*".SaveFileDialog1.Filter = "Файлы RTF(*.rtf)|*rtf|Текстовые документы(*.txt)|*.txt|Текстовый документ в Юникоде(*.txt)|txt".Text = "Document".WordWrap = True= 0 : k = Falsedata As IDataObject = Clipboard.GetDataObject()

НайтиДалееToolStripMenuItem.Enabled = FalseSubSub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Clickk = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TrySubIfi <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)Ifrez = MsgBoxResult.Cancel ThenSubrez = MsgBoxResult.No ThenIfIfSub

Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)= TrueSub

Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Clickk = False Then Otkr()k = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIfi <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)If()rez = MsgBoxResult.No Then()IfIfSub

Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click()Sub

Sub СохранитьКакToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьКакToolStripMenuItem.Click.SaveFileDialog1.Filter = "Файлы RTF(*.rtf)|*rtf|Текстовые документы(*.txt)|*.txt|Текстовый документ в Юникоде(*.txt)|txt".FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

+= 1= SaveFileDialog1.FileName.Text = ""= Len(MyNameFile)Until Mid(MyNameFile, m, 1) = "\".Text = Mid(MyNameFile, m, 1) + Me.Text= m - 1

(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIfSubSub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click.ShowDialog()Sub

Sub ПанельИнструментовToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПанельИнструментовToolStripMenuItem.ClickПанельИнструментовToolStripMenuItem.CheckState = CheckState.Checked Then.Visible = TrueПанельИнструментовToolStripMenuItem.CheckState = CheckState.Unchecked Then.Visible = FalseIfSub

Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.ClickFontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then.SelectionFont = FontDialog1.Font.SelectionColor = FontDialog1.ColorIf= TrueSub

Sub ПечатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem.Click.DefaultPageSettings = PrintPageSettings= RichTextBox1.Text.Document = PrintDocument1result As DialogResult = PrintDialog1.ShowDialogresult = Windows.Forms.DialogResult.OK Then.Print()Ifex As Exception.Show(ex.Message)TrySub

Sub ПредварительныйПросмотрToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредварительныйПросмотрToolStripMenuItem.Click

'Указываем текущие параметры страницы.DefaultPageSettings = PrintPageSettings

'Указываем документ для диалогового окна предварительного просмотра

'и показываем его= RichTextBox1.Text.Document = PrintDocument1.ShowDialog()ex As Exception

'Отображаем сообщение об ошибке.Show(ex.Message)TrySubSub ВырезатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click.SetDataObject(RichTextBox1.SelectedText).SelectedText = ""= TrueSub

Sub КопироватьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click.SetDataObject(RichTextBox1.SelectedText)Sub

Sub ВсToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВсToolStripMenuItem.Click(data.GetDataPresent(DataFormats.Text)) ThenRichTextBox1.SelectedText = "" Then.Text = RichTextBox1.Text + " " + data.GetData(DataFormats.Text).ToString()RichTextBox1.SelectedText <> "" Then.SelectedText = data.GetData(DataFormats.Text).ToString()IfIf= TrueSub

Sub МаркерToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles МаркерToolStripMenuItem.Click.Text = RichTextBox1.Text + Chr(149) + " "= TrueSub

Sub ДатаИВремяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ДатаИВремяToolStripMenuItem.Click.ShowDialog()Form5.DialogResult = Windows.Forms.DialogResult.OK ThenRichTextBox1.SelectedText = "" Then.Text = RichTextBox1.Text + Form5.ListBox1.SelectedItem

RichTextBox1.SelectedText <> "" Then.SelectedText = Form5.ListBox1.SelectedItem.Close()IfIf= TrueSub

Sub ВызовСправкиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВызовСправкиToolStripMenuItem.Click.ShowDialog()Sub

Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.Clickk = False Then Otkr()k = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIfi <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)If()rez = MsgBoxResult.No Then()IfIfSub

Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click()Sub

Private Sub CopyToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripButton.Click.SetDataObject(RichTextBox1.SelectedText)= TrueSub

Sub PasteToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripButton.Click(data.GetDataPresent(DataFormats.Text)) ThenRichTextBox1.SelectedText = "" Then.Text = RichTextBox1.Text + " " + data.GetData(DataFormats.Text).ToString()RichTextBox1.SelectedText <> "" Then.SelectedText = data.GetData(DataFormats.Text).ToString()IfIf= TrueSub

Sub HelpToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.Click.ShowDialog()Sub

Sub ОчиститьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click.SelectedText = ""SubSub ВыделитьВсеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыделитьВсеToolStripMenuItem.Click.SelectAll()Sub

Sub НайтиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НайтиToolStripMenuItem.Click.Show()Sub

Sub ЗаменитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗаменитьToolStripMenuItem.Click.Show()Sub

Sub НайтиДалееToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НайтиДалееToolStripMenuItem.Clickl = True Then

: If j <= Len(RichTextBox1.Text) ThenMid(RichTextBox1.Text, j, Len(txt)) = txt Then.Select(j - 1, Len(txt))= j + Len(txt)Until j > Len(RichTextBox1.Text) Or Mid(RichTextBox1.Text, j, Len(txt)) = txt= j + 1.Select(j - 1, Len(txt))= j + Len(txt)Ifj > Len(RichTextBox1.Text) Then("Поиск завершен,начать снова?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11IfIf

: ElseIf l = False Thenj <= Len(RichTextBox1.Text) ThenStrComp(Mid(RichTextBox1.Text, j, Len(txt)), txt, CompareMethod.Text) = 0 Then.Select(j - 1, Len(txt))= j + Len(txt)Until j > Len(RichTextBox1.Text) Or StrComp(Mid(RichTextBox1.Text, j, Len(txt)), txt, CompareMethod.Text) = 0= j + 1.Select(j - 1, Len(txt))= j + Len(txt)Ifj > Len(RichTextBox1.Text) Then("Поиск завершен,начать снова?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 12IfIfIf

Sub

Sub PrintToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripButton.Click.DefaultPageSettings = PrintPageSettings= RichTextBox1.Text.Document = PrintDocument1result As DialogResult = PrintDialog1.ShowDialogresult = Windows.Forms.DialogResult.OK Then.Print()Ifex As Exception.Show(ex.Message)TrySub

Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPagestrFormat As New StringFormatrectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics)).Trimming = StringTrimming.Word.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strformat, numChars, numLines)= StringToPrint.Substring(0, numChars).Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)numChars < StringToPrint.Length Then= StringToPrint.Substring(numChars).HasMorePages = True.HasMorePages = False= RichTextBox1.TextIfSub

Sub ПараметрыСтраницыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПараметрыСтраницыToolStripMenuItem.Click

'Загружаем параметры страницы и отображаем диалоговое окно

'параметров страницы.PageSettings = PrintPageSettings.ShowDialog()ex As Exception

'Отображаем сообщение об ошибке.Show(ex.Message)TrySubSub ОткрытьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.MouseHover

.Text = "Открытие существующего документа"Sub

Sub СохранитьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.MouseHover.Text = "Сохранение активного документа"Sub

Sub СохранитьКакToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles СохранитьКакToolStripMenuItem.MouseHover.Text = "Сохранение активного документа под новым именем"Sub

Sub ПечатьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem.MouseHover.Text = "Печать активного документа"Sub

Sub ПредварительныйПросмотрToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ПредварительныйПросмотрToolStripMenuItem.MouseHover.Text = "Просмотр документа в полностраничном режиме"Sub

Sub ПараметрыСтраницыToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ПараметрыСтраницыToolStripMenuItem.MouseHover.Text = "Изменение параметров страницы"Sub

Sub ВыходToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.MouseHover.Text = "Завершение работы приложения; сохранение документов"Sub

Sub RichTextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.MouseHover.Text = "Для вывода справки нажмите F1"Sub

Sub ВырезатьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.MouseHover.Text = "Удаление выделенного фрагмента в буфер обмена"Sub

Sub КопироватьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.MouseHover.Text = "Копирование выделенного фрагмента в буфер обмена"Sub

Sub ВсToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВсToolStripMenuItem.MouseHover.Text = "Вставка содержимого буфера обмена"Sub

Sub ОчиститьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.MouseHover.Text = "Удаление выделенного фрагмента"Sub

Sub ВыделитьВсеToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВыделитьВсеToolStripMenuItem.MouseHover.Text = "Выделение всего текста"Sub

Sub НайтиToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles НайтиToolStripMenuItem.MouseHover.Text = "Поиск заданного образца текста"Sub

Sub НайтиДалееToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles НайтиДалееToolStripMenuItem.MouseHover.Text = "Повторение поиска"Sub

Sub ЗаменитьToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ЗаменитьToolStripMenuItem.MouseHover.Text = "Замена одного текста другим"Sub

Sub ПанельИнструментовToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ПанельИнструментовToolStripMenuItem.MouseHover.Text = "Вывод и скрытие панели инструментов"Sub

Sub СтрокаСостоянияToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles СтрокаСостоянияToolStripMenuItem.MouseHover.Text = "Вывод и скрытие строки состояния"Sub

Sub ДатаИВремяToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ДатаИВремяToolStripMenuItem.MouseHover.Text = "Вставка в текст текущих даты и/или времени"Sub

Sub ШрифтToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.MouseHover.Text = "Выбор шрифта для выделенного фрагмента текста"Sub

Sub ВызовСправкиToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВызовСправкиToolStripMenuItem.MouseHover.Text = "Вывод содержимого встроенной справки"Sub

Sub ОПрограммеToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.MouseHover.Text = "Вывод сведений о программе, ее версии и авторских правах"Sub

Sub OpenToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.MouseHover.Text = "Открытие существующего документа"Sub

Sub SaveToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.MouseHover.Text = "Сохранение активного документа"Sub

Sub PrintToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PrintToolStripButton.MouseHover.Text = "Печать активного документа"Sub

Sub CutToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CutToolStripButton.MouseHover.Text = "Удаление выделенного фрагмента в буфер обмена"Sub

Sub CopyToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CopyToolStripButton.MouseHover.Text = "Копирование выделенного фрагмента в буфер обмена"Sub

Sub PasteToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PasteToolStripButton.MouseHover.Text = "Вставка содержимого буфера обмена"Sub

Sub HelpToolStripButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.MouseHover.Text = "Вывод содержимого встроенной справки"Sub

Sub СтрокаСостоянияToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СтрокаСостоянияToolStripMenuItem.ClickСтрокаСостоянияToolStripMenuItem.CheckState = CheckState.Checked Then

.Visible = TrueСтрокаСостоянияToolStripMenuItem.CheckState = CheckState.Unchecked Then.Visible = FalseIfSub

Sub RichTextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged= TrueSubSub ОтменитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОтменитьToolStripMenuItem.Click.Undo()Sub

Sub АбзацToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles АбзацToolStripMenuItem.Click.ShowDialog()Form10.DialogResult = Windows.Forms.DialogResult.OK ThenCase v0.SelectionAlignment = HorizontalAlignment.Left1.SelectionAlignment = HorizontalAlignment.Right2.SelectionAlignment = HorizontalAlignment.CenterSelectIf= TrueSub

Sub СоздатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоздатьToolStripMenuItem.Clickk = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIf

i <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)Ifrez = MsgBoxResult.Cancel ThenSubIfIf.ShowDialog()Form11.DialogResult = Windows.Forms.DialogResult.OK ThenCase Form11.ListBox1.SelectedIndex0.SaveFileDialog1.FilterIndex = 1.WordWrap = True1.SaveFileDialog1.FilterIndex = 2.WordWrap = False2.SaveFileDialog1.FilterIndex = 3.WordWrap = FalseSelect.Text = ""= FalseIfSub

Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Clickk = True Then= MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)rez = MsgBoxResult.Yes Theni = 0 Then.FileName = Me.TextSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, SaveFileDialog1.FileName, OpenMode.Output)(i, RichTextBox1.Text)ex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIfi <> 0 Then(i, MyNameFile, OpenMode.Output)(i, RichTextBox1.Text)(i)

Ifrez = MsgBoxResult.Cancel ThenSubIfIf.ShowDialog()Form11.DialogResult = Windows.Forms.DialogResult.OK ThenCase Form11.ListBox1.SelectedIndex0.SaveFileDialog1.FilterIndex = 1.WordWrap = True1.SaveFileDialog1.FilterIndex = 2.WordWrap = False2.SaveFileDialog1.FilterIndex = 3.WordWrap = FalseSelect.Text = ""= FalseIfSubClassModule1i As Integer = 0k As Boolean = Falsej As Integer = 1txt As Stringl As BooleanMyNameFile As Stringm As Integerv As ShortSub Otkr().OpenFileDialog1.FilterIndex = 1Form1.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1(i, Form1.OpenFileDialog1.FileName, OpenMode.Input)= Form1.OpenFileDialog1.FileName.Text = ""Form1.OpenFileDialog1.FilterIndex = 1 Then.RichTextBox1.WordWrap = TrueForm1.OpenFileDialog1.FilterIndex = 2 Then.RichTextBox1.WordWrap = FalseIf= Len(MyNameFile)Until Mid(MyNameFile, m, 1) = "\".Text = Mid(MyNameFile, m, 1) + Form1.Text

= m - 1.RichTextBox1.Text = ""Until EOF(i).RichTextBox1.Text = Form1.RichTextBox1.Text & LineInput(i) & vbCrLf.RichTextBox1.Select(1, 0)= Falseex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIfSubSub Sohr()i = 0 ThenForm1.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then+= 1= Form1.SaveFileDialog1.FileName.Text = ""= Len(MyNameFile)Until Mid(MyNameFile, m, 1) = "\".Text = Mid(MyNameFile, m, 1) + Form1.Text= m - 1(i, Form1.SaveFileDialog1.FileName, OpenMode.Output)(i, Form1.RichTextBox1.Text)= Falseex As Exception("Ошибка открытия файла", MsgBoxStyle.Critical)(i)TryIf(i, MyNameFile, OpenMode.Output)(i, Form1.RichTextBox1.Text)(i)= FalseIfSubSub Found()

: txt = Form8.TextBox1.Text.НайтиДалееToolStripMenuItem.Enabled = Truej <= Len(Form1.RichTextBox1.Text) ThenMid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)) = txt Then.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)) = txt= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11MsgBoxResult.No Then.Close()IfIfSub

Sub Found1()

: txt = Form8.TextBox1.Text.НайтиДалееToolStripMenuItem.Enabled = Truej <= Len(Form1.RichTextBox1.Text) ThenStrComp(Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)), txt, CompareMethod.Text) = 0= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11MsgBoxResult.No Then.Close()

IfIfSubModuleClass Form8Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.Close()Sub

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickCheckBox2.CheckState = CheckState.Checked Then Found() : l = TrueCheckBox2.CheckState = CheckState.Unchecked Then Found1() : l = FalseSub

Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text <> "" Then Button1.Enabled = TrueTextBox1.Text = "" Then Button1.Enabled = False.Text = txtSub

Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedTextBox1.Text <> "" Then Button1.Enabled = TrueTextBox1.Text = "" Then Button1.Enabled = FalseSubClassClass Form9

Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click.Close()Sub

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click= Me.TextBox1.Text

: If CheckBox2.CheckState = CheckState.Checked Thenj <= Len(Form1.RichTextBox1.Text) ThenMid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt

= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11MsgBoxResult.No Then.Close()IfIf

: ElseIf CheckBox2.CheckState = CheckState.Unchecked Thenj <= Len(Form1.RichTextBox1.Text) ThenStrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 12MsgBoxResult.No Then.Close()IfIfIfSub

Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickForm1.RichTextBox1.SelectedText = "" Then

: If CheckBox2.CheckState = CheckState.Checked Then= Me.TextBox1.Textj <= Len(Form1.RichTextBox1.Text) ThenMid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))= j + Len(Form8.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11MsgBoxResult.No Then.Close()IfIfCheckBox2.CheckState = CheckState.Unchecked Then= Me.TextBox1.Textj <= Len(Form1.RichTextBox1.Text) ThenStrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0= j + 1.Focus().RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))= j + Len(Me.TextBox1.Text)Ifj > Len(Form1.RichTextBox1.Text) Then("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11MsgBoxResult.No Then

.Close()IfIfIfForm1.RichTextBox1.SelectedText <> "" Then.RichTextBox1.SelectedText = Me.TextBox2.TextIfSub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click= 1= Me.TextBox1.TextWhile j <= Len(Form1.RichTextBox1.Text)Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text)).RichTextBox1.SelectedText = Me.TextBox2.Text= j + Len(Me.TextBox1.Text)Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt= j + 1If("Поиск завершен", MsgBoxStyle.Information)Sub

Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedTextBox1.Text <> "" Then Button1.Enabled = True : Button2.Enabled = True : Button3.Enabled = TrueTextBox1.Text = "" Then Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = FalseSubClassClass Form5

Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.Items.Clear().Items.Add(System.DateTime.Now.ToLongDateString).Items.Add(System.DateTime.Now.ToShortDateString).Items.Add(System.DateTime.Now.ToLongTimeString).Items.Add(System.DateTime.Now.ToShortTimeString).Items.Add(System.DateTime.Now.DayOfWeek.ToString).Items.Add(System.DateTime.Now.Day.ToString).Items.Add(System.DateTime.Now.Month.ToString).Items.Add(System.DateTime.Now.Year.ToString).SelectedIndex = 0Sub

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.DialogResult = Windows.Forms.DialogResult.OKSub

Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.DialogResult = Windows.Forms.DialogResult.CancelSubClassClass Form11Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.DialogResult = Windows.Forms.DialogResult.OKSub

Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.DialogResult = Windows.Forms.DialogResult.CancelSub

Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.Items.Clear().Items.Add("Документ в формате RTF").Items.Add("Текстовый документ").Items.Add("Документ в Юникоде").SelectedIndex = 0SubClass