VB6 - nefunkční On error – Visual Basic – Fórum – Programujte.com

Dobrý den,

poslední dobou "mám pocit", že mi nefunguje konstrukce On Error [goto neco | resume next] program projede řádkem s On Error, ale na řádku s chybou vyhodí chybu, program spadne. Například kód níže:

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive

End Sub

formulář neobsahuje žádný jiný kód, a obsahuje dva ovládací prvky: Dir1 - DirListBox a Drive1 - DriveListBox.

Všimnul jsem si, že konstrukce On Error selže i u jiných případů např. LoadPicture nebo dělení nulou a další... Používám Visual Basic 6 - a Windows Vista.

Děkuju za každý nápad.

Tak nevím, udělal jsem to přesně tak - jden DirListBox a jeden DriveListBox a stejný kód (ovšem mám VB6 na Win XP) a funguje to perfektně. Např. když vyberu CD a CD není založeno, projede to v pohodě a nekončí chybou. Totéž s výběrem prázdné disketové mechaniky. Zkusil jsem dát On Error GoTo ZobrazChybu a chybu to zachytilo a zobrazil se správný text a číslo chyby.

Stejný případ u simulovaného dělení nulou nebo LoadPicture na neexistující soubor na disku.

V jednom projektu využívám důsledně On Error (obsahuje ho každá procedura - případné chyby loguji) a nikdy jsem nepozoroval nefunkčnost.

Že by ta Vista? Nevím, nemám zkušenost.