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