Компонент drive1 и пустой дисковод - VB

Узнай цену своей работы

Формулировка задачи:

здраствуйте,подскажите как обработать такое исключение, чтоб мое приложение не закрывалось когда пытаешься компнентом drive открыть дисковод в котором нет диска. юзаю visual basic 6

Решение задачи: «Компонент drive1 и пустой дисковод»

textual
Листинг программы 
Option Explicit
Private Sub Диск1_Change()
On Error GoTo ER
Дир1.Path = Диск1.Drive
Exit Sub
ER:
If Err.Number = 68 Then MsgBox "Вставь диск", vbCritical, ""
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы