Кнопка закрытия формы

[kroskros]

Подскажите, как сделать чтобы нажатие на конпку закрытия формы приводила к сворачиванию приложения в трей?
Сворачивать-то я умею,
а как перехватить нажатие мышью на кнопку [Х]?

[temur]

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

  Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Me.Hide()
    End Sub

А для выхода из приложения используй Application.exit

[kroskros]

Спасибо!

[Dmitriy Solomnikov]

простите что встряю - а как в случае чего отменить закрытие формы (или выход из приложения)?

[GSerg]

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

e.Cancel = True

[kroskros]

Хмммм..
теперь по нажатию кнопки [х] приложенеи действительно сворачивается в трей,
только, когда я его пытаюсь поднять обратно двойным щелчком на иконке в трее приложение закрывается.. ((
на всякий случай:
Сворачиваю так:

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

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            TrayIcon.Visible = True
        End If
    End Sub


понимаю из трея:

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

Private Sub NotifyIcon_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrayIcon.DoubleClick
        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
        TrayIcon.Visible = False
    End Sub


обрабатываю нажатие [Х]:

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

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Me.Hide()
        TrayIcon.Visible = True
    End Sub


вооот...
и ЧЕ Я НЕ ПРАВИЛЬНО ДЕЛАЮ??

[kroskros]

исправил.

закрыто.