VBNet - Форум - Новичок. Помогите с простым вопросом!

Вопрос: Новичок. Помогите с простым вопросом! Добавлено: 31.01.10 01:16

Автор вопроса: muxa555 | Web-сайт: crackfind.com | ICQ: 445608319

Итак, вот в чем суть: необходимо при выходе из формы запросить пароль и в случае, если он правильный (в pw лежит правильный пароль), разрешить (продолжить) выход. в противном случае остановить выход и остаться в форме. вот так я это сделал:

Private Sub form_unload(pw As String)
Dim ps As String
ps = InputBox("dd")
If ps <> pw Then Exit Sub
End Sub

НЕ ПАШЕТ! Пишет, что SUBина не правильно объявлена. ХЕЛП!
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #1	Добавлено: 31.01.10 02:36
	Dim PW As String Private Sub Form_Load() PW = InputBox("PW") End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) QP = InputBox("Enter Password for exit", "Exiting?") If QP <> PW Then Cancel = True End Sub Ответить

Номер ответа: 2 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #2	Добавлено: 31.01.10 02:37
	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 'Или можно так, в одну строку If InputBox("Enter Password for exit", "Exiting?") <> PW Then Cancel = True End Sub Ответить

Номер ответа: 3 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #3	Добавлено: 31.01.10 14:02
	СПАСИБО! Помогло! Еще туда поставлю cancelerror=true и все будет)) Ответить

Номер ответа: 4 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #4	Добавлено: 31.01.10 14:05
	Люди, а подскажите плз чем отличается событие _Unload от _QueryUnload? Ответить

Номер ответа: 5 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #5	Добавлено: 31.01.10 14:44
	еще вопрос если можно. как сделать так, чтобы, например, если oblom=true то нельзя менять содержимое текстбокса, а если oblom=falce - то можно? заранее спасибо Ответить

Номер ответа: 6 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #6	Добавлено: 31.01.10 14:51
	все, с текстбоксом разобрался. сделал так: его значение пишется в переменную, txtsave, а в text1_change записано, что если облом, то текст1.текст = текстсейв Ответить

Номер ответа: 7 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #7	Добавлено: 31.01.10 18:20
	Query - это запрос. Unload просиходит после QueryUnload. Т.е. для таких ситуаций с которым столкнулся ты. 'если oblom as boolean if txtText.locked = oblom Ответить

Номер ответа: 8 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #8	Добавлено: 31.01.10 18:34
	Query - это запрос. Unload просиходит после QueryUnload. Т.е. для таких ситуаций с которым столкнулся ты. 'если oblom as boolean if txtText.locked = oblom Ответить

Номер ответа: 9 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #9	Добавлено: 31.01.10 18:35
	Без IF. txtText.Locked = oblom Ответить

Номер ответа: 10 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #10	Добавлено: 31.01.10 18:55
	СПАСИБО! .Locked помогло, но для другого)) Ответить

Номер ответа: 11 Автор ответа: muxa555 ICQ: 445608319 Вопросов: 3 Ответов: 22	Web-сайт: crackfind.com Профиль \| \| #11	Добавлено: 31.01.10 19:10
	модеры НЕ СПАТЬ!!!!! тема закрыта Ответить

Страница: 1 |