VBNet - Форум

Вопрос: MsgBox Добавлено: 20.05.04 19:17

Автор вопроса: Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361

Dim Answer As Integer
Dim Cancel As Integer
Answer = MsgBox("Вы действительно хотите удалить ", vbQuestion + vbYesNo, "Кабинет")
If Answer = vbNo Then Cancel = -1
Подскажите как при ответе "нет" просто закрыть этот диалог, у меня при любом ответе программа продолжает по коду то есть удаляет все.

Ответить

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

Номер ответа: 1
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #1

Добавлено: 20.05.04 20:07

попробуй так:

Dim Answer As Variant
Answer = MsgBox("Вы действительно хотите удалить ", vbQuestion + vbYesNo, "Кабинет")

select case Answer

Case vbYes

'твой код удаления и прочих необходимых операции

case vbNo

Exit Sub/Function либо Goto xxx/yyy

End Select
If Answer = vbNo Then Cancel = -1

Ответить

Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #2	Добавлено: 20.05.04 20:14
	Ты просто гений!!! Огромное спасибо!!!!!!!!! Работает Ответить

Номер ответа: 3
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #3

Добавлено: 20.05.04 20:18

Не за что...

Всё гениальное просто...

Ответить

Номер ответа: 4
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #4

Добавлено: 21.05.04 08:57

Или чуть проще

Private Sub Command1_Click()

Dim Ret As Long

Ret = MsgBox("Delete file?", vbQuestion + vbYesNo, "Deleting file")

If Not Ret - 7 Then Exit Sub

'Дальнейший код

End Sub

Ответить

Номер ответа: 5
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #5

Добавлено: 21.05.04 09:04

Прикольно я написал

If Not Ret - 7 вместо if Ret=7 или if Ret=vbNo. Видать, еще не проснулся...

Кстати, а на кой Dim Answer As Variant?

Ответить

Номер ответа: 6 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #6	Добавлено: 22.05.04 11:01
	if msgbox("Грохнуть?",vbyesno)=vbyes then ' Гроханье файлов end if Ответить

Номер ответа: 7
Автор ответа:

Andrey999

ICQ: 30852361

Вопросов: 73
Ответов: 168

Web-сайт: www.radio-device.narod.ru
Профиль | | #7

Добавлено: 22.05.04 13:52

Спасибо всем за ответы. А Dim Answer As Variant? я нашел такой пример в инете, оттуда и взял.

Ответить

Страница: 1 |