Разработка приложения My WordPad
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
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) 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) 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) 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) 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) 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) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt= j + 1If("Поиск завершен", MsgBoxStyle.Information)Sub
Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.TopMost = TrueTextBox1.Text <> "" Then Button1.Enabled = True : Button2.Enabled = True : Button3.Enabled = TrueTextBox1.Text = "" Then Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = False.Text = txtSub
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 = FalseSubClassClas