Отмена закрытия формы

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Achiles
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 3
Зарегистрирован: 26.06.2005 (Вс) 12:26

Отмена закрытия формы

Сообщение Achiles » 26.06.2005 (Вс) 12:34

Есть форма. При ее закрытии выводится диалог с кнопками OK и Cansel
При выборе ОК форма закрывается, при Cansel - нет.
Подскажите как отменить закрытие формы при выборе Cansel?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 26.06.2005 (Вс) 12:42

OMG!

Может, просто ничего по нажатию кнопки не делать? :)

Achiles
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 3
Зарегистрирован: 26.06.2005 (Вс) 12:26

Сообщение Achiles » 26.06.2005 (Вс) 12:45

Для программы это необходимо

a_mayor
Новичок
Новичок
 
Сообщения: 41
Зарегистрирован: 02.06.2005 (Чт) 21:44

Сообщение a_mayor » 26.06.2005 (Вс) 12:46

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

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Close Me?", vbQuestion Or vbYesNo) = vbNo Then Cancel = True
End Sub

Achiles
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 3
Зарегистрирован: 26.06.2005 (Вс) 12:26

Сообщение Achiles » 26.06.2005 (Вс) 13:01

Спасибо за ответ, но я уже рзобрался

Private Sub BaseForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If (MsgBox("Вы действительно хотите закончить работу с программой?", vbOKCancel + vbExclamation, "Внимание") = MsgBoxResult.OK) Then
e.Cancel = False
Else
e.Cancel = True
End If

End Sub

Kovu
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 26.06.2005 (Вс) 17:59

Achiles писал(а):Спасибо за ответ, но я уже рзобрался

Private Sub BaseForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If (MsgBox("Вы действительно хотите закончить работу с программой?", vbOKCancel + vbExclamation, "Внимание") = MsgBoxResult.OK) Then
e.Cancel = False
Else
e.Cancel = True
End If

End Sub

Это что VB.NET :?: Если даа то тема не туда написана.
если нет способ a_mayor намного легче :P
Если всё делать своими ручками, они скоро отвалятся !


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 171

    TopList