Как запрограммировать Кнопку отмены в inputbox

@parkito · Регистрация: 22.03.2010

Студворк — интернет-сервис помощи студентам

Вот написал программу но у нее есть один недостаток когда пользователь нажимает Cancel В исполняющимся inputBox , то вместо того чтобы завершиться (или перейти на предыдущий шаг) программа выполняет следующий ! Что можно сделать чтоб при нажатии прога или закрывалась или переходила на предыдущий шаг???

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim vrt1, vrt2, vrt3, vrt4, vrt5, vrt6, vrt7, vrt8, vrt9, vrt10, vrt11, vrt12 As Variant
Private Sub Command1_Click()
vrt1 = InputBox("Введите ваши ФИО:", "Регестрация")
 
vrt2 = MsgBox("Уважаемый(ая)" + vrt1 + "вы готовы к проверке знаний ? ", 32 + 4, "Конец регестрации")
If vrt2 = 7 Then End
vrt3 = MsgBox("Уважаемый(ая)" + vrt1 + "Взможно вы неправельно ввели свои ФИО ! Если вы ввели правильно намите OK, если вы допустили ошибку нажмите ОТМЕНА:", 48 + 1, "Уточнение данных")
If vrt3 = 2 Then
 
 
 
 
vrt4 = InputBox("Заново введите ваши ФИО:", "Повторная регестрация")
If vrt4 = 7 Then End
vrt5 = MsgBox("Уважаемый(ая)" + vrt4 + "вы готовы к проверке знаний ?", 32 + 4, "Конец регестрации")
 
vrt6 = InputBox("Сколько бит в одном байте ?", "Вопрос №1")
If vrt6 = "8" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt7 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
vrt10 = InputBox("Может ли картинка быть инфецированна вирусом ?:", "Вопрос №2")
If vrt10 = "да" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt11 = MsgBox("Неправильно", 0, "Ой"): vrt9 = vrt9 + 1
MsgBox "Уважаемый(ая) " + vrt1 + "пройдя тест вы сделали " + Str(vrt9) + " ошибок и дали " + Str(vrt8) + " правельных ответов", 0, "Конец"
 
 
 
 
Else: vrt6 = InputBox("Сколько бит в одном байте ?:", "Вопрос №1")
If vrt6 = "8" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt7 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
vrt10 = InputBox("Может ли картинка быть инфецированна вирусом ?:", "Вопрос №2")
If vrt10 = "да" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt11 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
MsgBox "Уважаемый(ая) " + vrt1 + "пройдя тест вы сделали " + Str(vrt9) + " ошибок и дали " + Str(vrt8) + " правельных ответов", 0, "Конец"
End If
End
End Sub
 
Private Sub Command2_Click()
End
End Sub

@parkito · 17.07.2010, 21:33 **[ТС]**

Короче вот такая проблема : ближе к зиме в нашем городе проводят научную конференцию Старт в науку. И вот на ней люди блещут своими талантами в различных дисциплинах : математика, физика, литература, экономика, информатика ! Так вот мне нужно будет участвовать в этой конференции в разделе информатика ! В этой дисциплине есть два подраздела это программирование и социальные технологии(соц инженерия проще говоря) . Так вот люди делаю различные проекты от программирования калкульятора на бейзике до создания офисных приложений на более сложных языках ! не посоветуете вы мне что-нибудь? Мои сильные стороны это HTML Visual basic photoshop до конца лето планирую выучить javascript и php ! Посоветуйте плиз ! мож вы чем то подобном участововали ?

@Teslenko_EA · 17.07.2010, 22:36

Здравствуйте parkito.

Сообщение от parkito

Мои сильные стороны это HTML Visual basic..

не могу судить о познаниях в HTML но даже судя по этой теме ("..не слишком понял..") делать подобные заявления о VB я бы не стал.

если Вы планируете участвовать в конференции (и даже если не планируете), хорошим тоном является знание языка (не только языка программирования), в коде присутствует опечатка : "Повторная регистрация".
Но не будем о грустном

, "..Посоветуйте.." - Вы создали конструкцию для тестирования, это направление безгранично(!). Развивайте эту тему, создайте полноценное приложение с изменяемым набором вопросов/ответов по темам Вашего образовательного учреждения и победа на конференции гарантирована.

Успехов Вам.
Евгений.

@Abu · 18.07.2010, 01:46

Прошу прощения, что вклиниваюсь, но

parkito, В том и проблема: никак нельзя отличить Отмену от ввода пустой строки.

Значит действительно, отличить Отмену от ввода пустой строки никак нельзя.

Можно!!!
Вот код:

Visual Basic
1
2
3
4
vrt4 = InputBox("Введите свои ФИО:", "Регестрация")
If (StrPtr(vrt4) <> 0) And (vrt4 = "") Then
    MsgBox "Вы оставили пустое поле", vbCritical + vbOKOnly, "Упс"
End If

В случае пустой строки будет предупреждение, в случае отмены - ничего. Дальше сами настраивайте условие, как удобно, например - выход из процедуры вообще, если пользователь передумал что-то вводить.
P.S.

vbInformation - это константа. Выше у Вас написано 16 + 1, что на самом деле есть vbCritical + vbOkCancel.

Вообще я бы не советовала parkito юзать цифры, точнее Вы можете их юзать когда пишете для себя, если вам так удобней, но когда выкладываете код - лучше всё-таки константы, их же специально для удобства и понимания придумали! vbCritical и vbOKCancel гораздо понятней, чем 1 и 16!

@parkito · 18.07.2010, 11:16 **[ТС]**

Вообще я бы не советовала parkito юзать цифры, точнее Вы можете их юзать когда пишете для себя, если вам так удобней, но когда выкладываете код - лучше всё-таки константы, их же специально для удобства и понимания придумали! vbCritical и vbOKCancel гораздо понятней, чем 1 и 16!

Я бы с радостью, но по учебнику которому я учусь меня учат цифрами !

Добавлено через 22 минуты
Прежде чем опробовать и вставить код я хочу в нем разобраться ! Что это такое (StrPtr(vrt1) <> 0 ? дальше по коду идет логическое умножение на пустую строку (Если пользователь ее оставит) ! Я маненько переписал код и он стал таким

Visual Basic
1
2
3
4
5
vrt1 = InputBox("ВВедите ваши ФИО:", "Регистрация")
If (StrPtr(vrt1) <> 0) And (vrt1 = "") Then
    MsgBox "Вы оставили пустое поле", vbCritical + vbOKOnly, "упс"
    Else: End
End If

теперь когда я нажимаю отмену происходит выход из программы !!!ура хоть это получилось !!! !!! а если оставляю пустую строку то возникает ошибка которую я написал и программа дальше продолжает выполняться !! Как мне сделать так чтоб она к регистрации возвращалась ??

@Teslenko_EA · 18.07.2010, 13:26

parkito,

Сообщение от parkito

Что это такое (StrPtr(vrt1) <> 0

при нажатии Cancel (Отмена) возвращается vbNullString, при подтверждении ввода возвращается - "" (строка нулевой длины). VB(A) приравнивает эти два значения и потому простыми средствами задача действительно неразрешима.
Но недокументированная функция StrPtr (любезно предоставленная Abu) возвращает указатель памяти в котором размещается результат при подтверждении ввода, соответственно если выбрана Отмена он равен нулю.

Сообщение от parkito

...чтоб она к регистрации возвращалась ?

поставьте в коде метку и при условии... возвращаете обработку кода на неё:

Visual Basic
1
2
3
4
5
6
7
8
9
10
....
100
....
Label1:
...
If A = A Then
    Goto 100
ElseIf B = B Then
    Goto Label1
....

Евгений.

@Abu · 18.07.2010, 14:08

Сообщение от parkito

Что это такое (StrPtr(vrt1) <> 0 ?

Про StrPtr можно тпрочитать в документации (ну или просто отгуглить), а если на вскидку, то функция StrPtr возвращает указатель на адрес строки в памяти, т.е. если пользователь жмёт в InputBox-е Ok, то в памяти резервируется место для строки, даже для пустой (если пользователь ничего не ввёл), а если он нажал Cancel, то память под строку не выделяется, и возращаемое значение функции StrPtr будет равно нулю. Примерно как-то так.

End лучше не использовать, ибо он просто грохает программу, в замен ему лучше Unload Me (если нужно программу завершить), или лучше Exit Sub (выход из процедуры).

Сообщение от parkito

Как мне сделать так чтоб она к регистрации возвращалась ??

Я бы сделала так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim vrt1 As String, ret As Long
'перевенная для получения имени, и переменная для получения указателя указателя
Do While (vrt1 = "")
'цикл, который будет выполняться, пока vrt1 равен пустой строке
    ret = Registration(vrt1)
    'вызываем функцию, чтоб получить указатель на строку и саму строку
    If ret = 0 Then Exit Sub
    'если указатель равен нулю, значит пользователь нажал отмену, выходим из процедуры
Loop
'дальше работаем с полученным vrt1, например
MsgBox vrt1
End Sub
 
Private Function Registration(ByRef FIO As String) As Long
'функция для получения данных от пользователя, которая возвращает указатель на строку
'и передаёт в FIO полученные данные
FIO = InputBox("ВВедите ваши ФИО:", "Регистрация")
'спрашиваем что-то у пользователя
Registration = StrPtr(FIO)
'возвращае6м указатель на строку-ответ
End Function

Чтобы полностью понять код, стоит почитать какую-нибудь справку про передачу аргументов по ссылке и по значению (ByRef и ByVal).

Добавлено через 1 минуту
Блин, не успела...

@parkito · 19.07.2010, 11:08 **[ТС]**

Спасибо ! Сейчас попробую !

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

@parkito 15 / 14 / 10 Регистрация: 22.03.2010 Сообщений: 695
	17.07.2010, 21:33 [ТС]
	Короче вот такая проблема : ближе к зиме в нашем городе проводят научную конференцию Старт в науку. И вот на ней люди блещут своими талантами в различных дисциплинах : математика, физика, литература, экономика, информатика ! Так вот мне нужно будет участвовать в этой конференции в разделе информатика ! В этой дисциплине есть два подраздела это программирование и социальные технологии(соц инженерия проще говоря) . Так вот люди делаю различные проекты от программирования калкульятора на бейзике до создания офисных приложений на более сложных языках ! не посоветуете вы мне что-нибудь? Мои сильные стороны это HTML Visual basic photoshop до конца лето планирую выучить javascript и php ! Посоветуйте плиз ! мож вы чем то подобном участововали ? 0

@parkito 15 / 14 / 10 Регистрация: 22.03.2010 Сообщений: 695
	19.07.2010, 11:08 [ТС]
	Спасибо ! Сейчас попробую ! 0