| Вопрос: Пытаюсь обработать ситуацию с ошибкой... | Добавлено: 18.05.05 08:01 |
Автор вопроса:  Diz | Web-сайт: www.TS-Group.fatal.ru
|
|
On Error GoTo ErrorOpenPicture imgFrame.Picture = LoadPicture(Path + "Thumbs\" + cbxFrame.Text + ".jpg") ErrorOpenPicture: imgFrame.Picture = LoadPicture(Path + "Thumbs\" + "Error.jpg") Resume Next Задумка такая, я выбираю в комбобоксе запись и в image загружается рисунок. а если файла с рисунком нет, то загружается картинка с соответствующей записью. Но вот беда, независимо от того есть файл или нет, всё равно загружается файл с картинкой об ошибке :( что делать? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #1 | Добавлено: 18.05.05 09:05 |
|
Между
On Error GoTo ErrorOpenPicture
imgFrame.Picture = LoadPicture(Path + "Thumbs\" + cbxFrame.Text + ".jpg"  и ErrorOpenPicture:
imgFrame.Picture = LoadPicture(Path + "Thumbs\" + "Error.jpg"
Resume Next Вставлено Exit Sub, чтобы обойти ErrorOpenPicture:? Или после загрузки правильного рисунка загружается еще и неправильный ? |
||
|
Номер ответа: 2 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #2 | Добавлено: 18.05.05 09:06 |
|
Перед меткой поставь exit sub или чё тем у тебя
Код после метки у тебя в любом случае выполняется была ошибка или нет |
||
|
Номер ответа: 3 Автор ответа: Diz Вопросов: 24 Ответов: 38 |
Web-сайт: Профиль | | #3 | Добавлено: 18.05.05 10:07 |
|
т.е. я не понял, вы написали что надо вставить End Sub и всё заработает, или то, что в любом случае этот код будет выполняться и это никак не решить??? |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 18.05.05 10:26 |
|
Это и есть ответ:
On Error GoTo ErrorOpenPicture
imgFrame.Picture = LoadPicture(Path + "Thumbs\" + cbxFrame.Text + ".jpg"
Exit Sub ErrorOpenPicture: imgFrame.Picture = LoadPicture(Path + "Thumbs\" + "Error.jpg"
Resume Next А лучше возьми и по F8 посмотри что происходит с использованием и без использования совета... |
||
|
Номер ответа: 5 Автор ответа: DizВопросов: 24 Ответов: 38 |
Web-сайт: Профиль | | #5 | Добавлено: 18.05.05 11:06 |
| я почему спросил то, теперь как доходит до этого места, мне пишется: Label Not Defined | ||
|
Номер ответа: 6 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #6 | Добавлено: 18.05.05 11:11 |
|
Ты точно вставил именно Exit Sub? И не забыл ли End Sub в конце процедуры? Мог их перепутать.
Кстати, Resume Next тут не слишком нужно. Для суммирования строковых переменных принято использовать символ &. И проверь что у тебя в Path - может не хватать \. |
||
|
Номер ответа: 7 Автор ответа: DizВопросов: 24 Ответов: 38 |
Web-сайт: Профиль | | #7 | Добавлено: 18.05.05 11:33 |
| Мда, извиняюсь за глупость но так и есть... перепутал. Спасибо всем! | ||
Страница: 1 |