日期:2014-05-18 浏览次数:21315 次
            SetStyle(ControlStyles.UserPaint, true);
            SetStyle(ControlStyles.AllPaintingInWmPaint, true); // 禁止擦除背景.
            SetStyle(ControlStyles.DoubleBuffer, true); // 双缓冲
Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case &H5
                ' 为避免加载窗体或还原窗体时绘制出现黑框,处理Windows消息
                'change size: WM_SIZE
                If True Then
                    Dim newState As FormWindowState = FormWindowState.Normal
                    Select Case m.WParam.ToInt32()
                        Case 0
                            'SIZE_RESTORED
                            Me.Timer1.Enabled = True
                        Case 1
                            'SIZE_MINIMIZED
                            Me.Opacity = 0
                        Case 2
                            'SIZE_MAXIMIZED
                        Case Else
                            Exit Select
                    End Select
                End If
                Exit Select
            Case Else
                Exit Select
        End Select
        MyBase.WndProc(m)
    End Sub