Разработка приложения My WordPad
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
n + 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
Sub CutToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripButton.Click.SetDataObject(RichTextBox1.SelectedText).SelectedText = ""= TrueSub
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) Then("Поиск завершен,начать снова?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")MsgBoxResult.Yes Then= 11IfIf
: ElseIf l = False Thenj 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,