VBNet - Форум - Ребят, помогите.

Вопрос: Ребят, помогите. Добавлено: 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

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

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

Номер ответа: 1 Автор ответа: Dully ICQ: 229882730 Вопросов: 19 Ответов: 51	Профиль \| \| #1	Добавлено: 10.08.09 14:32
	так попробуй.... Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Уверенн?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then e.Cancel = True End If End Sub Ответить

Номер ответа: 2 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #2	Добавлено: 10.08.09 14:36
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Уверенн?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then e.Cancel = True End If End Sub Ответить

Номер ответа: 3 Автор ответа: Starkiller ICQ: 123123 Вопросов: 3 Ответов: 14	Web-сайт: google.ru/ Профиль \| \| #3	Добавлено: 10.08.09 14:39
	Dim close_flag As Boolean 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 close_flag = True Me.Close() End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If close_flag = True Then GoTo cls If MsgBox("Уверенн?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then e.Cancel = True End If cls: End Sub Как то так Ответить

Номер ответа: 4 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #4	Добавлено: 10.08.09 14:44
	нет не так) какой ужас, мои глаза ааа Ответить

Номер ответа: 5 Автор ответа: Dully ICQ: 229882730 Вопросов: 19 Ответов: 51	Профиль \| \| #5	Добавлено: 10.08.09 16:03
	за GoTo обычно по рукам бьют... Ответить

Номер ответа: 6 Автор ответа: Dully ICQ: 229882730 Вопросов: 19 Ответов: 51	Профиль \| \| #6	Добавлено: 10.08.09 16:03
	за GoTo обычно по рукам бьют... Ответить

Номер ответа: 7 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #7	Добавлено: 10.08.09 21:42
	Не хватай человека за GoTo :D Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #8	Добавлено: 11.08.09 09:10
	Ну блин, а почему за джамп не бьют по рукам? Ну еси хоцца человеку пусть делает как хочет, хоцца пусть строки нумерует как на спектруме было. Ответить

Страница: 1 |