none
[VB 2013] Intercettare l'ingrandimento del form RRS feed

  • Domanda

  • Buonasera a tutti, non riesco a trovare il modo per intercettare la pressione del button in alto a dx del form che ingrandisce il form, qualcuno sa come posso fare?

    Grazie Guido

    sabato 3 maggio 2014 21:48

Risposte

  • Ciao Guido,

    in verità nella gran parte dei casi ti basta scrivere:

        Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
            If Me.WindowState = FormWindowState.Minimized Then MsgBox("Minimized")
            If Me.WindowState = FormWindowState.Maximized Then MsgBox("Maximized")
        End Sub

    Ciao


    Renato Marzaro  MVP Visual Basic

    http://community.visual-basic.it/renato

    • Proposto come risposta System_ domenica 4 maggio 2014 11:47
    • Contrassegnato come risposta Guido.G domenica 4 maggio 2014 14:13
    domenica 4 maggio 2014 08:29
    Moderatore

Tutte le risposte

  • Ciao Guido,

    ti basta inserire questo codice nella Form

        Const WM_SYSCOMMAND As Integer = &H112
        Const SC_MINIMIZE As Integer = &HF020
        Const SC_MAXIMIZE As Integer = &HF030
        Protected Overloads Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            MyBase.WndProc(m)
            If m.Msg = WM_SYSCOMMAND Then
                If m.WParam.ToInt32() = SC_MAXIMIZE Then MessageBox.Show("Maximize")
                If m.WParam.ToInt32() = SC_MINIMIZE Then MessageBox.Show("Minimize")
            End If
        End Sub
    

    Ciao


    Renato Marzaro  MVP Visual Basic

    http://community.visual-basic.it/renato

    domenica 4 maggio 2014 05:21
    Moderatore
  • Ciao Guido,

    in verità nella gran parte dei casi ti basta scrivere:

        Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
            If Me.WindowState = FormWindowState.Minimized Then MsgBox("Minimized")
            If Me.WindowState = FormWindowState.Maximized Then MsgBox("Maximized")
        End Sub

    Ciao


    Renato Marzaro  MVP Visual Basic

    http://community.visual-basic.it/renato

    • Proposto come risposta System_ domenica 4 maggio 2014 11:47
    • Contrassegnato come risposta Guido.G domenica 4 maggio 2014 14:13
    domenica 4 maggio 2014 08:29
    Moderatore
  • Grazie Renato, la seconda va meglio per me...questa la riesco a capire, l'altra è troppo tecnica.. :-)

    Grazie 

    Guido

    domenica 4 maggio 2014 14:14