Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Ребят, помогите. Добавлено: 10.08.09 13:56  

Автор вопроса:  Not андерстен
На форме есть кнопка "Выход", при нажатии на нее выскакивает диалоговое окно типо "уверенн или нет?" с двумя кнопками "да и нет"
Вот код:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If MsgBox("Точно??! ", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Information, "Уверенн?!") = MsgBoxResult.No Then
            Exit Sub
        End If
        Me.Close()
    End Sub

Мне Нужно чтобы такое окно выскакивало и при обычном клике по крестику формы(или так - альт+ф4).
Вот код для формы сделал:

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosed
        If MsgBox("Уверенн?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Exit Sub
        End If
        Me.Close()
    End Sub


И кароче какая то фигня..после того как кликнул по кнопке "выход" выскакивает сначала соответственно диалоговое окно для кнопки "выход"- жму "да" и выскакивает окно которое предназначалось если бы я нажал по крестику формы. Когда просто кликаю по крестику формы - на "да" сразу закрывается форма, а если жму "нет" то это диалоговое окно висит и не исчезает до тех пор пока не нажмешь "да". Наверно заморочено изложил, ну как то так)
Помогите, что не так????? Может я вообще не то че то делаю..

Ответить

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

Номер ответа: 1
Автор ответа:
 Сергей



Вопросов: 1
Ответов: 8
 Web-сайт: werti.org
 Профиль | | #1
Добавлено: 11.08.09 08:14
Код кнопки
  1. Me.Close()

Код закрытия
меняем FormClosed на FormClosing и
  1.     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  2.         Dim ntemp As Integer
  3.         ntemp = MessageBox.Show("Уверенн?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
  4.         If ntemp = DialogResult.Yes Then
  5.             End
  6.         Else
  7.             e.Cancel = True
  8.         End If
  9.     End Sub

Исправь "Уверенн"

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам