| Вопрос: Отловить нажатие "Cancel" | Добавлено: 19.06.07 17:08 |
Автор вопроса:  Andrew_nik
|
| Кто знает как можно отловить нажатие кнопки "Отмена" в Inputbox? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #1 | Добавлено: 19.06.07 18:09 |
|
Я точно не знаю, я бы делал так
Sub Макрос1()
Dim iNumber As Variant iNumber = Application.InputBox("Введите что-нибудь", "Ввод" 
If iNumber = False Then MsgBox "Пользователь нажал кнопку Отмена! ", vbOKOnly, "Ошибка" End End If MsgBox "Пользователь ввёл число: " & iNumber End Sub или Sub Макрос2()
Dim iNumber As Long On Error Resume Next iNumber = Application.InputBox("Введите число", "Ввод"
If iNumber = 0 Then MsgBox "Вы ничего не ввели! ", vbOKOnly, "Ошибка" End End If MsgBox "Пользователь ввёл число: " & iNumber End Sub |
||
|
Номер ответа: 2 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #2 | Добавлено: 19.06.07 18:14 |
|
Тут ещё зависит, какой InputBox используется:
1) Если просто InputBox, то If the user clicks Cancel, the function returns a zero-length string ("" .
т.е. Если пользователь нажимает Отмета, то функция возвращает строку с нулевой длинной. 2)А если Expression.InputBox, то If you click the Cancel button, InputBox returns False. т.е. если вы нажали Отмена, InputBox возвратит ЛОЖЬ Вот от этого можно и плясать |
||
|
Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #3 | Добавлено: 19.06.07 18:18 |
| На VB6 если нажали Cancel он тупо выдает пустую строку. | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 19.06.07 20:30 |
| В поиск "StrPtr" | ||
|
Номер ответа: 5 Автор ответа: Andrew_nikВопросов: 15 Ответов: 30 |
Профиль | | #5 | Добавлено: 20.06.07 09:56 |
|
2 Pavel:
Спасибо за совет. Все работает. |
||
Страница: 1 |