Лабораторная работа № 21
СОЗДАНИЕ ОРГАНАЙЗЕРА
Цель работы: познакомить с компонентами ComboBox, Frame , Microsoft Common Dialog , Timer и их свойствами.
Задачи: создавать органайзер. Его функции: блокнот, напоминания на день, адресные книжки (e-mail и телефоны/адреса), часы.
Ход работы:
Компонент ComboBox с именем Combo1 (в свойстве List пишите "Адресная книжка E-Mail"ов", на след. строке "Телефоны и адреса" и последнее "Блокнот")
Два текстовых поля с именами TextB и Text1
Шесть кнопок с именами: Command1("Записать в планы"), Command2("Прочитать планы на сегодня"), B_Open("Открыть"), B_Save("Сохранить"), B_Print("Печать"),B_Clean("Отчистить")
Frame с именем AddDayTip, а в нем кнопка Command3, текстовое поле Text2 иLabel с именем Label1.
Компонент Microsoft Common Dialog с name"ом CD1
И таймер с именем Timer1 и интервалом 1000
Примерно, у вас должно получиться следующее:
Т
еперь
приступим
к
коду:
Private Sub B_Clean_Click()
TextB.Text = ""
End Sub
Private Sub B_Open_Click()
CD1.ShowOpen
On Error GoTo error4
Open CD1.FileName For Input As #4
TextB.Text = Input(LOF(4), 4)
Close
error4: If Err <> 0 Then
MsgBox "Неизвестная ошибка!", vbCritical, "Ошибка при открытии текста" End If
End Sub
Private Sub B_Print_Click()
Printer.Print TextB.Text
Printer.EndDoc
End Sub
Private Sub B_Save_Click()
CD1.ShowSave
On Error GoTo error4
Open CD1.FileName For Output As #4
Print #4, TextB.Text
Close
error4: If Err <> 0 Then
MsgBox "Неизвестная ошибка!", vbCritical, "Ошибка при записи текста"
End If
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Combo1.Text = "Адресная книжка E-Mail"ов" Then
On Error GoTo error5
Open "e-mail/address.txt"For Input As #5
TextB.Text = Input(LOF(5), 5)
Close
error5: If Err <> 0 Then
MsgBox "Произошла ошибка. Возможно вы удалили файл address.txt из папки E-Mail!!!", vbCritical, "Ошибка при просмотре e-mail адресов" End If
End If
If KeyCode = 13 Then
If Combo1.Text = "Телефоны и адреса" Then
On Error GoTo error6
Open "TelAdr/address&tel.txt" For Input As #6
TextB.Text = Input(LOF(6), 6)
Close
error6: If Err <> 0 Then
MsgBox "Произошла ошибка. Возможно вы удалили файл address&tel.txt из папки TelAdr!!!", vbCritical, "Ошибка при просмотре e-mail адресов" End If
End If
End If
End If
If KeyCode = 13 Then
If Combo1.Text = "Блокнот" Then
TextB.Text = ""
End If
End If
End Sub
Private Sub Command1_Click()
AddDayTip.Visible = True
End Sub
Private SubCommand2_Click()
On Error GoTo error2
Open "rememdaytip/" & Date & ".txt"For Input As #3
TextB.Text = Input(LOF(3), 3)
Close
error2: If Err <> 0 Then
TextB.Text = "Планов на сегодня у вас нет !"
End If
End Sub
Private SubCommand3_Click()
On Error GoTo error3
Open "rememdaytip/" & Text2.Text & ".txt" For Output As #2
Print #2, TextB.Text
Close
error3: If Err <> 0 Then
MsgBox "Произошла неизвестная ошибка !", vbCritical, "Ошибка при записи напоминания в планы"
End If
AddDayTip.Visible = False
End Sub
Private SubForm_Load()
Text1.Text = Date
On Error GoTo error1
Open "rememdaytip/" & Date & ".txt" For Input As #1
TextB.Text = Input(LOF(1), 1)
Close
error1: If Err <> 0 Then
TextB.Text = "Планов на сегодня у вас нет !"
End If
End Sub
Private SubTimer1_Timer()
Me.Caption = "Время: " & Time
End Sub