Три вопроса

[A.A.Z.]

1. Как сделать так, чтобы при нажатии "Отмена" в InputBox не появлялось ошибок? При этом vbNullString не подходит.
2. Как пользоваться свойством Cancel в событии Unload?
3. Как сделать форму не только поверх всех остальных, но и постоянно активную, т.е. чтобы переключения на любые другие окна не работали?

Спасибо всем ответившим.

[mad_Max]

вопрос #1:

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

dim strString as string
strString = InputBox("Enter string","InputBox")
if strString="" then msgbox("User clicked CANCEL")

Но следующий момент отловить невозможно: юзер ввел пустую строку ("") и нажал OK или просто нажал Cancel - разницы никакой.
вопрос #2:
Cancel = 1 блокирует Unload
вопрос #3:
вряд ли возможно, или я просто не знаю.

[GSerg]

Насчёт №3: обсуждается регулярно. Предлагались варианты типа "ставить себе фокус по таймеру", "отлавливать событие потери фокуса и ставить оный", "запретить курсору покидать окно" и т.д., но нафига это?

[Хой]

"запретить курсору покидать окно"

...прошаренный перец, нажмёт Alt+Tab :-)

[amda]

да и вообще такие вещи, как отключение кнопки закрытия диалога, запрет покидать форму и прочие, ограничивающие "права" пользователя... Всё это очень грубые и нежелательные методы. Пользователь может и обидеться, плюнуть на такую вредную и упрямую программу и найти себе другую - более дружественную.

[Aleksej]

#3:

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

Form.Show vbModal

[A.A.Z.]

да и вообще такие вещи, как отключение кнопки закрытия диалога, запрет покидать форму и прочие, ограничивающие "права" пользователя... Всё это очень грубые и нежелательные методы. Пользователь может и обидеться, плюнуть на такую вредную и упрямую программу и найти себе другую - более дружественную.

Не-ет, у меня в программе (БД) при нажатии "Новая запись" открывается новая форма, просто нужно сделать её поверх всех остальных, чтобы глюков не было.

[A.A.Z.]

#3:

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

Form.Show vbModal

Спасибо большое!

[A.A.Z.]

вопрос #1:

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

dim strString as string
strString = InputBox("Enter string","InputBox")
if strString="" then msgbox("User clicked CANCEL")

Но следующий момент отловить невозможно: юзер ввел пустую строку ("") и нажал OK или просто нажал Cancel - разницы никакой.

Нет, насчёт ""-то я знаю, а как в CommonDialog нельзя сделать, т.е. ""+ОК не равно Cancel?

вопрос #2:
Cancel = 1 блокирует Unload

Значит, так:

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

Sub Form_Unload (Cancel As Integer)
msg = MsgBox("Точно?", vbQuestion+vbYesNo, "Выход")
If msg = vbYes Then End Else Cancel = 1
End Sub


[amda]

Нет, насчёт ""-то я знаю, а как в CommonDialog нельзя сделать, т.е. ""+ОК не равно Cancel?

я этот контрол никогда не юзаю. А чистый и надёжный API. Если в нём использовать такой набор флагов, то никаких проблем не бывает. Все неожиданные действия юзера учтены.

OFN_CREATEPROMPT Or OFN_EXPLORER Or OFN_FILEMUSTEXIST _
Or OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST

там если нажато OK при пустом имени файла - ничего не происходит. Только кнопка топчется впустую.
А Cancel закрывает диалог.

[A.A.Z.]

Не в ComDlg дело... Дело в InputBox...