Разработка приложения My WordPad
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ngToPrint становится равным содержимому объекта 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 & "?", vbQuestio