Конференция VBStreets

**Adolf** » 16.03.2005 (Ср) 19:51

Вот я тут с помощью CommonDialog сохраняю файлы, делаю распечатки, меняю шрифт, но существует одна проблема, когда запустишь окно и вдруг передумаешь сохранять файл или распечатовать и так далее - жмешь "отмена" или "крест (закрыть окно)", то выскакивает одна и таже ошибка, "Run-time error '32755'" - как от нее избавится, какой код нужно написать или это ошибка из-за чего-то другого?

**Alexander N. Samarin** » 16.03.2005 (Ср) 20:02

Надо это отслеживать, например
CommonDialog1.CancelError = True
On Error GoTo ...

**Adolf** » 16.03.2005 (Ср) 20:55

On Error GoTo...

А куда дальше? На примере полного кода напиши пожалуйста, так будет легче понять.

**dimix** » 16.03.2005 (Ср) 21:24

А куда угодно

Например, в начале процедуры пишешь:
On Error Goto Oshibka

а в конце:

Oshibka:
MsgBox("Отловили ошибку!")

вот туда оно и придет...

**dimix** » 16.03.2005 (Ср) 21:27

А еще, наверное, можно:
On Error Resume Next

**Ruslan Demidow** » 16.03.2005 (Ср) 22:07

dimix писал(а):А еще, наверное, можно:
On Error Resume Next

Не можно, потому что после выбора файла у тебя в процедуре могут быть указаны действия делающие что-либо с выбранным файлом.
А так как файл на самом деле не выбрали - то ты напорешся на другую ошибку.

**dimix** » 16.03.2005 (Ср) 22:10

Напорюсь. И таким же макаром перейду дальше

А вообще, согласен. Просто подзабыл, с чего начинали

**Adolf** » 16.03.2005 (Ср) 23:07

Спасибо за помощь.

**alibek** » 17.03.2005 (Чт) 8:11

Ruslan Demidow писал(а):
dimix писал(а):А еще, наверное, можно:
On Error Resume Next

Не можно, потому что после выбора файла у тебя в процедуре могут быть указаны действия делающие что-либо с выбранным файлом.
А так как файл на самом деле не выбрали - то ты напорешся на другую ошибку.

Можно. А чтобы убедится, что ошибка именно та, что соответствует кнопке отмены, проверяется Err.Number.

**dimix** » 17.03.2005 (Чт) 12:17

Ну вот, оказывается можно... А я уже почти признался, что был не прав

**Ruslan Demidow** » 17.03.2005 (Чт) 15:02

alibek
А сколько же тогда надо написать строк проверки ошибки, чтобы не напороться на них?
Лично я стараюсь избегать On Error Resume Next - ещё та козявка!

dimix
А вот такой я... провокатор. :lol:

**alibek** » 17.03.2005 (Чт) 15:27

Всего три строки, на 0 (успешно), на номер ошибки Cancel и на все остальные. Делается элементарно Select Case.

**Ruslan Demidow** » 17.03.2005 (Чт) 19:28

alibek
Сдаюсь. Ты прав.

**Dex** » 18.03.2005 (Пт) 19:29

А разве

Код: Выделить всё: If Len(CommonDialog.FileName) = 0 Then Exit Sub

не катит?

**alibek** » 18.03.2005 (Пт) 20:18

Не катит.
Если до этого файл выбирался, то после нажатия на кнопку "Отмена" в буфере будет предыдущий выбранный файл.

**Adolf** » 19.03.2005 (Сб) 11:38

Кстати, а как сделать отмену последнего действия с текстом, как например в том же WordPad-e?

**GSerg** » 19.03.2005 (Сб) 11:57

EM_UNDO послать.

**Adolf** » 19.03.2005 (Сб) 12:11

Как это сделать? На примере покажи, пожалуйста.

**GSerg** » 19.03.2005 (Сб) 15:01

А почему не хочется самому найти?

Код: Выделить всё: Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Private Const EM_UNDO As Long = &HC7 ... sendmessage text1.hwnd, EM_UNDO,0, byval 0& ...

**iwand** » 13.05.2005 (Пт) 0:46

Несколько запоздалое сообщение, но все же... Я сам подобный вопрос задавал, но сам и разобрался... Код на кнопку "Отмена" для диалоговых окон CommonDialog:

Private Sub ... название процедуры
On Error GoTo Terminate
CommonDialog1.CancelError=True
CommonDialog1.ShowPrinter
Terminate:
If Err.Number=32755 Then
Exit Sub
End If
... какой-то оператор
End Sub

Вот, может, кому и прогодится, у меня все работает

**GSerg** » 13.05.2005 (Пт) 11:45

http://bbs.vbstreets.ru/viewtopic.php?p=104276#104276

**Alex_2005** » 13.05.2005 (Пт) 15:12

честно говоря всё можно значительно упростить, а именно перед использованием CommonDialog вставить строку
CommonDialog.CancelError = False

**tyomitch** » 13.05.2005 (Пт) 20:38

Alex_2005, ты чужие посты-то прочитал, прежде чем свой постить? :evil:

**alibek** » 14.05.2005 (Сб) 7:57

Нет, зачем читать? Чукча не читатель, чукча писатель

**NIC** » 15.05.2005 (Вс) 5:56

dimix писал(а):А еще, наверное, можно:
On Error Resume Next

А как быть с переменными которые там играют?

**Alex_2005** » 17.05.2005 (Вт) 9:26

tyomitch писал(а):Alex_2005, ты чужие посты-то прочитал, прежде чем свой постить?

2 tyomitch
да, если тебя это интересует то читал, поэтому и решил написать, так как iwand своим ответом только запутал. Так что не злись зря. :wink:

**tyomitch** » 17.05.2005 (Вт) 18:55

Alex_2005 писал(а):да, если тебя это интересует то читал, поэтому и решил написать, так как iwand своим ответом только запутал. Так что не злись зря.

В самом первом ответе в топике уже было написано то же самое.

**Alex_2005** » 18.05.2005 (Ср) 9:25

tyomitch писал(а):В самом первом ответе в топике уже было написано то же самое.

Но при чём тут GOTO оператор? ..Ладно, по большому счёту ты прав, это мелочь, извени, если тебя это как - то обидело или может раздражало. :oops:

Конференция VBStreets

CommonDialog - отмена

CommonDialog - отмена

Кто сейчас на конференции