Common Dialog Control (Что нажал юзер (OK Or Cancel)) ???

В таких случаях я поступаю так. Если у диалога свойство Filename="", тогда пользователь нажал Cancel, а если оно чему-то ровно то это скорее всего имя файла, но мы можем проверить это следующим кодом:

[SIZE="3"]
KAT=dir(commondialog1.Filename)
if kat="" then
msgbox "cancel"
else
msgbox "Ok"
end if
[/SIZE]

Конечно этот способ мягко говоря далёк от совершенства, но какой никакой алгоритм.:eek: :eek: :D

К сожелению твой <алгоритм> прокатывает только первый раз, на второй вызов баг остаеться. Но я нашел выход!!!! перед вызовом пишем

On Error Goto 1
CammonDialog1.CancelError = True

...Caling...

MsgBox "OK"
Exit Sub
1
MsgBox "Cancel"
End Sub

Катит во всех случаях!

Я за тебя очень рад:) :) :D

cancelerror=true
а в процедуре обработки не забудь ошибку сбросить: err.clear :eek:

В VBA и VB5 я использовал так

...
usk=MsgBox("текст",vbOKCancel,"заголовок")
if usk=vbOk THEN
/* здесь код на Да(Yes)*/
ELSE
/* здесь код на Нет(cancel)*/
end if
...

а вообщето есть волшебная клавиша F1.

[QUOTE=_ZaliZo]
...а вообщето есть волшебная клавиша F1.[/QUOTE]

Для тех, у кого есть MSDN...

[QUOTE=Bard]Для тех, у кого есть MSDN...[/QUOTE]

А офис у тебя стоит?
Наверняка, ну тогда заходишь либо в Excel, или в Word и нажимаешь Alt+F11, тут появляется VBA и тут можно нажать F1, конечно полной информации ты тут не найдешь, но основы есть.(Волшебная клавиша F1 есть почти всегда, только надо знать места, где она находится )

Вообще в ворде грубый MSDN. Мне по душе родной, бейсиковский, которого у меня нет:(

[QUOTE=ace lighting]Мне по душе родной, бейсиковский, которого у меня нет[/QUOTE]

Хорошо сказано :) У меня такая же проблема.
Сори за офтоп :)

Ну тогда бери деньгу и вперёд, за MSDN, или жирный кабель в ентернет и лей наздоровье :D , ну в крайнем случае можно и сюда зайти http://msdn.microsoft.com/library/