|
Вообщем пишу я по статье прогу(записную книжку, там есть адреса и-мейлов, телефоны, адреса...) а прога использует какие-то txt файлы(в статье так написано) но где же эти файлы возьмутся? Или визуал бейсик их сам создает? код такой 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 Sub Command2_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 Sub Command3_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 Sub Form_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 Sub Timer1_Timer()
Me.Caption = "Время: " & Time
End Sub
короче если что пишите мне на xman14@rambler.ru
Ответить
|
X-Man
