Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > MessageBox при закрытии формы


Автор: draCOOLa 27.7.2008, 17:43
Народ при закрытии формы должен спрашивать, действительно ли хотите закрыть приложение, вот написал такой код:

Код

Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Dim dg As DialogResult = MessageBox.Show("Вы действительно хотите выйти?", "Подтверждение", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If dg = DialogResult.Yes Then
        Else

        End If

    End Sub



If dg = DialogResult.Yes Then вот после этой строчки ни каких действий не производится и поэтому форма закрывается, потому что событие
FormClose, а вот что поставить после ELse т.е. в противном случае (чтобы не закрывалось) ни соображу, подскажите пож-ста...

Автор: I_Am_Rock 27.7.2008, 22:57
Вот как я обычно делаю в этом случае... Если что-то не понятно - могу пояснить

Код

Private Sub Form_Unload(Cancel As Integer)
pipec = MsgBox("Вы хотите выйти?", vbOKCancel)
If pipec = 2 Then Cancel = 1
End Sub

Автор: draCOOLa 28.7.2008, 12:25
спасибо!!!

модератор, повысьте пож-ста I_Am_Rock репутацию, он мне помог

Автор: Akina 28.7.2008, 12:55
Цитата(draCOOLa @  28.7.2008,  13:25 Найти цитируемый пост)
повысьте пож-ста I_Am_Rock репутацию

ок 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)