On Error не перехватывает ошибку

[NightStorm]

Чё-то я никак понять не могу:
есть форма, на ней DriveListBox (Drive1 в примере).

Код: Выделить всё

On Error GoTo driveErr
Drive1.ListIndex = <число>

Если попадается диск "А:\" (а дисковода в компе нету впринципе), то всё нормально, ошибка перехватывается, а если попадается СД-ром, в котором нету диска, то ошибка не перехватывается и прога помирает с "Runtime error 68. Устройство недоступно".

При это заметил, что если написать

Код: Выделить всё

On Error Resume Next
Drive1.ListIndex = <число>

то перехватываются все ошибки.

Никак не могу понять, почему так? помогите плиз?

[alibek]

Что в driveErr?

[NightStorm]

Что в driveErr?

просто сообщение типа "Ошибка диска" обычным msgbox'ом и Exit Sub

[alibek]

Покажи код.

[NightStorm]

Код: Выделить всё

Private Sub SelectDrive(drvLI As Integer)
On Error GoTo driveErr
Drive1.ListIndex = drvLI
Dir1.Path = Drive1.Drive
Exit Sub
driveErr:
MsgBox "Drive error: " & Error
Exit Sub
End If
End Sub


Dir1 - список папок стандартный

[alibek]

Зачем End If? Зачем второй Exit Sub? Что такое Error?
Этот код в принципе некорректен.

[jangle]

Никак не могу понять, почему так? помогите плиз?

Что не можешь понять? Твой вообще не компилируется, сразу указывается где ошибки.

[NightStorm]

Зачем End If? Зачем второй Exit Sub? Что такое Error?
Этот код в принципе некорректен.

End if извиняюсь, случайно попал, на самом деле в проге его там нет
Error - собстна пишет чего за ошибка случилась (по дефолту же возвращает текст ошибки, если она произошла)
Exit Sub - согласен, может быть и лишний, но работе абсолютно не мешает. Суть-то не в нём, если убрать, то всё равно не работает как надо.

А какой код тогда "впринципе корректен"?

Что не можешь понять? Твой вообще не компилируется, сразу указывается где ошибки.

Если не компилируется из-за End If, то см. выше, это я случайно в пример приписал, торопился.

Извиняюсь, конечно, но, народ, вы хоть вопрос читаете? Там ясно написано в чём проблема и она не "У меня не стартует прога, ругается при компиляции, чё делать?". Можно ж додуматься, что End If там лишнее...

[alibek]

Error - это глупость. Текст ошибки - это Err.Description. Кроме того, смысла в таком обработчике мало. Надо смотреть код ошибки и в определенных случаях делать Resume.

[NightStorm]

Error - это глупость. Текст ошибки - это Err.Description. Кроме того, смысла в таком обработчике мало. Надо смотреть код ошибки и в определенных случаях делать Resume.

Блин... издеваетесь чтоли?
Я не про Error вопрос задавал, а про "почему перехвата ошибки не происходит". "Обработчик" (если то, что у меня написано можно так назвать) висит просто для того, чтоб прога не помирала при неправильном значении Drive1.ListIndex

[alibek]

Не происходит, потому что у тебя обработчик некорректный. Например, в самом обработчике происходит ошибка. Возможно, из-за того, что ты там зачем-то используешь Error.

[NightStorm]

Не происходит, потому что у тебя обработчик некорректный. Например, в самом обработчике происходит ошибка. Возможно, из-за того, что ты там зачем-то используешь Error.

Неа. Иначе бы писал не "Устройство не готово", а ошибку, которая произошла в обработчике. Можно даже это понять, расставив стоп-точки и увидев, что до обработчика вообще дело не доходит.

[alibek]

Попробуй в обработчике сделать Err.Clear. Или добавить Resume Next.
А еще проверь, может ошибка у тебя возникает уже в другой процедуре.

[iGrok]

Короче. Попробуй для начала то, что советуют. Если не поможет - выкладывай кусок проекта, по которому видно, что и как глючит.

З.Ы. У меня приведённый тобой код работает, и нормально обрабатывает ошибки. Впрочем, Error - это действительно какой-то "пережиток прошлого". Используй лучше Msgbox "Error: " & Err.Number & " " & Err.Description...

З.З.Ы. А что у тебя в Dir1_Change?