VPF::Как сделать когда нажимаю крестик в главной форме?

kentaro

Дата 8.6.2009, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Чтоб при событии close она выводила собщение желаете ли вы сохранить если да то пробегалась в цикле по дочерним окнам и если в них есть текст то сохраняла их? желатьльно код тоже ))

diadiavova

Дата 8.6.2009, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Код


    Private Sub Form_Closing(ByVal sender As Object, ByVal e As CancelEventArgs) Handles Me.Closing
        If MsgBox("Вы действительно хотите закрыть форму?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            For Each ch As Form In Me.MdiChildren
                'здесь код сохранения каждой формы
                'предварительно надо выполнить приведение типов привести 
            Next
        Else
            e.Cancel = True    'в случае ответа нет закратие формы отменяется
        End If
    End Sub

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

kentaro

Дата 8.6.2009, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

diadiavova,

Код


Private Sub frmMain_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        ' Private Sub Form_Closing(ByVal sender As Object, ByVal e As CancelEventArgs) Handles Me.Closing
        'Dim ch As Form = Me.ActiveMdiChild
        If MsgBox("Вы действительно хотите закрыть форму?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Dim ch As ChildForm
            Dim theBox As RichTextBox = _
                CType(ch.ActiveControl, RichTextBox)
            If (Not theBox Is Nothing) Then


                For Each ch In Me.MdiChildren
                    If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                        System.IO.File.WriteAllText(SaveFileDialog1.FileName, theBox.Text)
                    End If
                Next
            End If
        Else
            e.Cancel = True    'в случае ответа нет закратие формы отменяется
        End If
    End Sub

ch.ActiveControl даёт ошибку

kentaro

Дата 8.6.2009, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Всем спасибо сделал

Код


 Private Sub frmMain_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

        If MsgBox("Вы действительно хотите закрыть форму?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Dim ch As ChildForm
            For Each ch In Me.MdiChildren
                If (ch.rtbText.Text <> Nothing) Then
                    If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                        System.IO.File.WriteAllText(SaveFileDialog1.FileName, ch.rtbText.Text)
                    End If
                End If
            Next ch

        Else
            e.Cancel = True    'в случае ответа нет закратие формы отменяется
        End If
    End Sub

diadiavova

Дата 9.6.2009, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Приведение надо выполнять для форм

Код


         Dim chf As ChildForm = CType(ch, ChildForm)

Это сообщение отредактировал(а) diadiavova - 9.6.2009, 01:04

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »