Как программно свернуть форму? Не WindowState

[viter.alex]

С помощью WndProc я отлавливаю сворачивание формы и показываю иконку в трее.

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

  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    Select Case m.Msg
      Case WM_ACTIVATE And m.WParam = &H200000 And My.Settings.MinToTray
        Me.Hide()
        DisplayIcon()
    End Select
    MyBase.WndProc(m)
  End Sub

Если кликнуть на кнопке сворачивания формы, то все работает.
А как ее свернуть при старте программы?
Понимаю, что можно просто скрыть форму и показать иконку, но это не совсем то. Ведь я уже ловлю сворачивание в одном месте, зачем его писать еще в одном? Установка WindowState в значение FormWindowState.Minimized не подходит, т.к. при этом не генерируется событие сворачивания формы

[FireFenix]

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub


И правильнее вроде проверку заводить на событие Resize, типа

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

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Select Case Me.WindowState
            Case FormWindowState.Normal
                MsgBox("Мну вернули!")
            Case FormWindowState.Maximized
                MsgBox("Мну развернули!")
            Case FormWindowState.Minimized
                MsgBox("Мну свернули!")
        End Select
    End Sub


[Денис]

Просто делай иконку при старте, а форму и не показывай вовсе.

[viter.alex]

Ага, так это Resize! Пробовал писать в загрузку формы Me.Hide, но ведь форма еще не показана! Поэтому не срабатывает. Записал в Paint:

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

  Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    If My.Settings.MinToTrayAtStart Then Me.WindowState = FormWindowState.Minimized
  End Sub

Работает, но форма на мгновение появляется

Просто делай иконку при старте, а форму и не показывай вовсе.

Т.е. ставить Visible = False?

[viter.alex]

И при реакции на Paint у меня форма сворачивается в трей всегда, а не только при старте. Даже когда я ее вызываю из контекстного меню иконки в трее.

И еще проблема. Когда я показываю форму из контекстного меню, то она почему-то остается свернутой на панели задач

[FireFenix]

И еще проблема. Когда я показываю форму из контекстного меню, то она почему-то остается свернутой на панели задач

эм....

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

Me.WindowState = FormWindowState.Normal
Me.Show()


?

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

И при реакции на Paint у меня форма сворачивается в трей всегда

ну блин... Paint вызывается при отрисовки формы, где единичный случай - изменение размера. Естественно если что-то заставляет перерисовывать, то всегда будет обработка этого события => лучше поместить в Resize

[viter.alex]

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

Me.WindowState = FormWindowState.Normal
Me.Show()


?

Наоборот!

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

  Me.Show()
  Me.WindowState = FormWindowState.Normal


[1Steps]

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

    Private m_startInVisible As Boolean = True
    Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)
        If m_startInVisible Then
            MyBase.SetVisibleCore(False)
            m_startInVisible = False
        Else
            MyBase.SetVisibleCore(value)
        End If
    End Sub

При старте невидима. А иконка уже в трэйе.

[viter.alex]

1Steps, то, что надо!