powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка ошибок
3 сообщений из 3, страница 1 из 1
Обработка ошибок
    #34436512
LJack
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброго времени суток

Проблема следующая:
есть фрагмент кода
Код: plaintext
1.
2.
3.
4.
   Dim s1, s2 As String
   s1 = control.TextBox2.Value
   s2 = control.TextBox3.Value
   pDate = CDate(s1)
   pDateE = CDate(s2)
если пользователь вводит билиберду в TextBox, имеет место ошибка с номером 13(type mismatch).
Как отловить эту ошибку и вывести сообщение?

--------------------------------------------------------
Если на планирование нет времени - самое время заняться планированием.
...
Рейтинг: 0 / 0
Обработка ошибок
    #34438003
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text1) Then
    MsgBox "Please type date in correct format: " & Date, vbCritical, "error"
    Cancel = True
End If
End Sub
2:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
on error goto err_exit
Dim s1, s2 As String
s1 = control.TextBox2.Value
s2 = control.TextBox3.Value
pDate = CDate(s1)
pDateE = CDate(s2)
exit sub
err_exit:
MsgBox err.number & vbcrlf & err.description, vbCritical, "error"
exit sub
...
Рейтинг: 0 / 0
Обработка ошибок
    #34438065
LJack
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Премного благодарен
--------------------------------------------------------
Если на планирование нет времени - самое время заняться планированием.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка ошибок
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]