Разработка приложения My WordPad
Сущность текстовых файлов последовательного и произвольного доступа. Вывод документа WordPad на печать, возможности добавления в документ даты, времени, фрагмента текста. Понятие диаграмм классов и последовательностей, создание формы. Программный код.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 14.10.2011 |
| Размер файла | 38,2 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Finally
FileClose(i)
End Try
End If
ElseIf i <> 0 Then
FileOpen(i, MyNameFile, OpenMode.Output)
PrintLine(i, RichTextBox1.Text)
FileClose(i)
End If
ElseIf rez = MsgBoxResult.Cancel Then
Exit Sub
End If
End If
Form11.ShowDialog()
If Form11.DialogResult = Windows.Forms.DialogResult.OK Then
Select Case Form11.ListBox1.SelectedIndex
Case 0
Me.SaveFileDialog1.FilterIndex = 1
RichTextBox1.WordWrap = True
Case 1
Me.SaveFileDialog1.FilterIndex = 2
RichTextBox1.WordWrap = False
Case 2
Me.SaveFileDialog1.FilterIndex = 3
RichTextBox1.WordWrap = False
End Select
RichTextBox1.Text = ""
k = False
End If
End Sub
Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click
If k = True Then
rez = MsgBox("Сохранить изменеия файла " & Me.Text & "?", vbQuestion + vbYesNoCancel)
If rez = MsgBoxResult.Yes Then
If i = 0 Then
SaveFileDialog1.FileName = Me.Text
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
i += 1
FileOpen(i, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(i, RichTextBox1.Text)
Catch ex As Exception
MsgBox("Ошибка открытия файла", MsgBoxStyle.Critical)
Finally
FileClose(i)
End Try
End If
ElseIf i <> 0 Then
FileOpen(i, MyNameFile, OpenMode.Output)
PrintLine(i, RichTextBox1.Text)
FileClose(i)
End If
ElseIf rez = MsgBoxResult.Cancel Then
Exit Sub
End If
End If
Form11.ShowDialog()
If Form11.DialogResult = Windows.Forms.DialogResult.OK Then
Select Case Form11.ListBox1.SelectedIndex
Case 0
Me.SaveFileDialog1.FilterIndex = 1
RichTextBox1.WordWrap = True
Case 1
Me.SaveFileDialog1.FilterIndex = 2
RichTextBox1.WordWrap = False
Case 2
Me.SaveFileDialog1.FilterIndex = 3
RichTextBox1.WordWrap = False
End Select
RichTextBox1.Text = ""
k = False
End If
End Sub
End Class
Module Module1
Public i As Integer = 0
Public k As Boolean = False
Public j As Integer = 1
Public txt As String
Public l As Boolean
Public MyNameFile As String
Public m As Integer
Public v As Short
Public Sub Otkr()
Form1.OpenFileDialog1.FilterIndex = 1
If Form1.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
i += 1
FileOpen(i, Form1.OpenFileDialog1.FileName, OpenMode.Input)
MyNameFile = Form1.OpenFileDialog1.FileName
Form1.Text = ""
If Form1.OpenFileDialog1.FilterIndex = 1 Then
Form1.RichTextBox1.WordWrap = True
ElseIf Form1.OpenFileDialog1.FilterIndex = 2 Then
Form1.RichTextBox1.WordWrap = False
End If
m = Len(MyNameFile)
Do Until Mid(MyNameFile, m, 1) = "\"
Form1.Text = Mid(MyNameFile, m, 1) + Form1.Text
m = m - 1
Loop
Form1.RichTextBox1.Text = ""
Do Until EOF(i)
Form1.RichTextBox1.Text = Form1.RichTextBox1.Text & LineInput(i) & vbCrLf
Form1.RichTextBox1.Select(1, 0)
Loop
k = False
Catch ex As Exception
MsgBox("Ошибка открытия файла", MsgBoxStyle.Critical)
Finally
FileClose(i)
End Try
End If
End Sub
Public Sub Sohr()
If i = 0 Then
If Form1.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
i += 1
MyNameFile = Form1.SaveFileDialog1.FileName
Form1.Text = ""
m = Len(MyNameFile)
Do Until Mid(MyNameFile, m, 1) = "\"
Form1.Text = Mid(MyNameFile, m, 1) + Form1.Text
m = m - 1
Loop
FileOpen(i, Form1.SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(i, Form1.RichTextBox1.Text)
k = False
Catch ex As Exception
MsgBox("Ошибка открытия файла", MsgBoxStyle.Critical)
Finally
FileClose(i)
End Try
End If
Else
FileOpen(i, MyNameFile, OpenMode.Output)
PrintLine(i, Form1.RichTextBox1.Text)
FileClose(i)
k = False
End If
End Sub
Public Sub Found()
1: txt = Form8.TextBox1.Text
Form1.НайтиДалееToolStripMenuItem.Enabled = True
If j <= Len(Form1.RichTextBox1.Text) Then
If Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)) = txt Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)) = txt
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 1
ElseIf MsgBoxResult.No Then
Form8.Close()
End If
End If
End Sub
Public Sub Found1()
1: txt = Form8.TextBox1.Text
Form1.НайтиДалееToolStripMenuItem.Enabled = True
If j <= Len(Form1.RichTextBox1.Text) Then
If StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Form8.TextBox1.Text)), txt, CompareMethod.Text) = 0
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 1
ElseIf MsgBoxResult.No Then
Form8.Close()
End If
End If
End Sub
End Module
Public Class Form8
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox2.CheckState = CheckState.Checked Then Found() : l = True
If CheckBox2.CheckState = CheckState.Unchecked Then Found1() : l = False
End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TextBox1.Text <> "" Then Button1.Enabled = True
If TextBox1.Text = "" Then Button1.Enabled = False
TextBox1.Text = txt
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text <> "" Then Button1.Enabled = True
If TextBox1.Text = "" Then Button1.Enabled = False
End Sub
End Class
Public Class Form9
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txt = Me.TextBox1.Text
1: If CheckBox2.CheckState = CheckState.Checked Then
If j <= Len(Form1.RichTextBox1.Text) Then
If Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 1
ElseIf MsgBoxResult.No Then
Me.Close()
End If
End If
2: ElseIf CheckBox2.CheckState = CheckState.Unchecked Then
If j <= Len(Form1.RichTextBox1.Text) Then
If StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 2
ElseIf MsgBoxResult.No Then
Me.Close()
End If
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Form1.RichTextBox1.SelectedText = "" Then
1: If CheckBox2.CheckState = CheckState.Checked Then
txt = Me.TextBox1.Text
If j <= Len(Form1.RichTextBox1.Text) Then
If Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Form8.TextBox1.Text))
j = j + Len(Form8.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 1
ElseIf MsgBoxResult.No Then
Me.Close()
End If
End If
ElseIf CheckBox2.CheckState = CheckState.Unchecked Then
txt = Me.TextBox1.Text
If j <= Len(Form1.RichTextBox1.Text) Then
If StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0 Then
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or StrComp(Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)), txt, CompareMethod.Text) = 0
j = j + 1
Loop
Form1.Focus()
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
j = j + Len(Me.TextBox1.Text)
End If
ElseIf j > Len(Form1.RichTextBox1.Text) Then
MsgBox("Поиск завершен. Начать заново?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "My WordPad")
If MsgBoxResult.Yes Then
j = 1
GoTo 1
ElseIf MsgBoxResult.No Then
Me.Close()
End If
End If
End If
ElseIf Form1.RichTextBox1.SelectedText <> "" Then
Form1.RichTextBox1.SelectedText = Me.TextBox2.Text
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
j = 1
txt = Me.TextBox1.Text
Do While j <= Len(Form1.RichTextBox1.Text)
If Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt Then
Form1.RichTextBox1.Select(j - 1, Len(Me.TextBox1.Text))
Form1.RichTextBox1.SelectedText = Me.TextBox2.Text
j = j + Len(Me.TextBox1.Text)
Else
Do Until j > Len(Form1.RichTextBox1.Text) Or Mid(Form1.RichTextBox1.Text, j, Len(Me.TextBox1.Text)) = txt
j = j + 1
Loop
End If
Loop
MsgBox("Поиск завершен", MsgBoxStyle.Information)
End Sub
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True
If TextBox1.Text <> "" Then Button1.Enabled = True : Button2.Enabled = True : Button3.Enabled = True
If TextBox1.Text = "" Then Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = False
TextBox1.Text = txt
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text <> "" Then Button1.Enabled = True : Button2.Enabled = True : Button3.Enabled = True
If TextBox1.Text = "" Then Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = False
End Sub
End Class
Public Class Form5
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
ListBox1.Items.Add(System.DateTime.Now.ToLongDateString)
ListBox1.Items.Add(System.DateTime.Now.ToShortDateString)
ListBox1.Items.Add(System.DateTime.Now.ToLongTimeString)
ListBox1.Items.Add(System.DateTime.Now.ToShortTimeString)
ListBox1.Items.Add(System.DateTime.Now.DayOfWeek.ToString)
ListBox1.Items.Add(System.DateTime.Now.Day.ToString)
ListBox1.Items.Add(System.DateTime.Now.Month.ToString)
ListBox1.Items.Add(System.DateTime.Now.Year.ToString)
ListBox1.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
End Class
Public Class Form11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
ListBox1.Items.Add("Документ в формате RTF")
ListBox1.Items.Add("Текстовый документ")
ListBox1.Items.Add("Документ в Юникоде")
ListBox1.SelectedIndex = 0
End Sub
End Class
Размещено на Allbest.ru
Подобные документы
Программа WordPad. Технология работы. Типы файлов, используемые редактором WordPad. WordPad представляет собой текстовый редактор для работы с небольшими документами. Он допускает несложное форматирования абзацев, а также использование различных шрифтов.
реферат [11,1 K], добавлен 10.04.2005Общее название программных средств, предназначенных для создания, редактирования и форматирования простых и комплексных текстовых документов - системы обработки текста. Текстовый редактор MS-DOS Editor. Текстовый процессор WordPad, Microsoft Word.
презентация [58,5 K], добавлен 06.01.2014Создание нового документа. Редактирование текстовых файлов типа TXT и RTF. Сохранение измененного документа. Изменение шрифта, начертания и размера символов. Отмена последнего действия. Оформление нового текста, форматирование абзаца, удаление текста.
реферат [158,6 K], добавлен 25.10.2013Функции графического редактора Paint, создание рисунка (задание размера, изменение цвета). Возможности программы "Калькулятор". Работа с блокнотом, ввод текста с помощью клавиатуры. Текстовый процессор WordPad: простейшие приемы форматирования документов.
контрольная работа [434,3 K], добавлен 17.11.2011Использование мастеров Word. Сохранение, закрытие, создание, редактирование документа. Ввод, добавление нового, удаление, выделение, копирование, выравнивание и перемещение текста. Проверка, печать документа. Дополнительные возможности. Создание таблицы.
контрольная работа [137,9 K], добавлен 01.06.2008Редактирование текста как очень важная часть оформления документов. Разработка программы по работе с текстом "Текстовый редактор" в среде разработки C++Builder 6 как приложения, использующегося в качестве замены встроенного редактора "WordPad".
курсовая работа [256,7 K], добавлен 08.12.2010Принципы создания последовательных и файлов произвольного доступа. Формирование файлов, в одном из которых помещены фамилии пяти знакомых, а в другой номера их телефонов. Составление программы, которая по фамилии знакомого определяет номер его телефона.
контрольная работа [17,9 K], добавлен 25.12.2010Разработка приложения, которое будет выполнять функции показа точного времени и точной даты. Определение дополнительных функций разработанного приложения. Рассмотрение основных этапов создания программного продукта. Результаты тестирования приложения.
курсовая работа [2,2 M], добавлен 14.04.2019Создание сложных текстовых документов с помощью шаблонов и мастеров Word. Разработка собственных шаблонов. Разоаботка общей структуры документа, настройка параметров страницы, перемещение по тексту с помощьюпанели схемы документа. Внешний вид текста.
методичка [30,1 K], добавлен 14.02.2009Использование гипертекстовой разбивки текстового документа в современных информационных системах. Вложенность тэгов в XML. Запись, чтение файлов XML. Создание приложения в Visual Studio.Net. Трансформация и привязка данных, проверка достоверности.
курсовая работа [40,7 K], добавлен 09.01.2014
