miwuawen - Professional Profile

Imports System.Runtime.InteropServices

Public Class Form1

    '先引入API函数ReleaseCapture、SendMessage
    <DllImport("user32.dll")> _
    Public Shared Function ReleaseCapture() As Boolean
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
    End Function
    Private Const WM_SYSCOMMAND As Integer = &H112
    '点击窗口左上角那个图标时的系统信息
    Private Const WM_MOVING As Integer = &H216
    '鼠标移动消息
    Private Const SC_MOVE As Integer = &HF010
    '移动信息
    Dim HTCAPTION As IntPtr = New IntPtr(&H2)
    '表示鼠标在窗口标题栏时的系统信息
    Private Const WM_NCHITTEST As Integer = &H84
    '鼠标在窗体客户区（除了标题栏和边框以外的部分）时发送的消息
    Dim HTCLIENT As IntPtr = New IntPtr(&H1)
    '表示鼠标在窗口客户区的系统消息
    Private Const SC_MAXIMIZE As Integer = &HF030
    '最大化信息
    Private Const SC_MINIMIZE As Integer = &HF020
    '最小化信息

    '再override 一下WindProc函数
    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_MOVING
                '如果鼠标移
                MyBase.WndProc(m)
                '调用基类的窗口过程——WndProc方法处理这个消息
                If m.Result = DirectCast(HTCLIENT, IntPtr) Then
                    '如果返回的是HTCLIENT
                    m.Result = DirectCast(HTCAPTION, IntPtr)
                    '把它改为HTCAPTION
                    '直接返回退出方法
                    Return
                End If
                Exit Select
        End Select
        MyBase.WndProc(m)
        '如果不是鼠标移动或单击消息就调用基类的窗口过程进行处理
    End Sub

    '再override一下OnMouseMove函数
    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
        End If
        MyBase.OnMouseMove(e)
    End Sub

    '实现窗体类似于QQ最小化的动画效果
    Public Const IDANI_OPEN As System.Int32 = 1
    Public Const IDANI_CAPTION As System.Int32 = 3

    <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)> _
    Private Structure RECT
        Public Sub New(ByVal rectangle As System.Drawing.Rectangle)
            Left = rectangle.Left
            Top = rectangle.Top
            Right = rectangle.Right
            Bottom = rectangle.Bottom
        End Sub
        Public Sub New(ByVal location As System.Drawing.Point, ByVal size As System.Drawing.Size)
            Left = location.X
            Top = location.Y
            Right = location.X + size.Width
            Bottom = location.Y + size.Height
        End Sub
        Public Left As System.Int32
        Public Top As System.Int32
        Public Right As System.Int32
        Public Bottom As System.Int32
    End Structure

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function DrawAnimatedRects(ByVal hwnd As System.IntPtr, ByVal idAni As Integer, <System.Runtime.InteropServices.In()> ByRef lprcFrom As RECT, <System.Runtime.InteropServices.In()> ByRef lprcTo As RECT) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As System.IntPtr
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function FindWindowEx(ByVal hwndParent As System.IntPtr, ByVal hwndChildAfter As System.IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As System.IntPtr
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetWindowRect(ByVal hWnd As System.IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    ''' <summary>
    ''' 动画隐藏/显示窗口
    ''' </summary>
    ''' <param name="form">form窗口</param>
    ''' <param name="show">true显示、false隐藏</param>
    Public Shared Sub ShowHideAnimated(ByVal form As System.Windows.Forms.Form, ByVal show As System.Boolean)
        Dim from As New RECT(form.Location, form.Size)
        Dim [to] As RECT
        Dim hWnd As System.IntPtr = FindWindowEx(FindWindow("Shell_TrayWnd", Nothing), System.IntPtr.Zero, "TrayNotifyWnd", Nothing)

        If hWnd <> System.IntPtr.Zero Then
            GetWindowRect(hWnd, [to])
        Else
            [to].Left = System.Windows.Forms.SystemInformation.VirtualScreen.Right - form.Width
            [to].Top = System.Windows.Forms.SystemInformation.VirtualScreen.Bottom - System.Windows.Forms.SystemInformation.CaptionHeight - (System.Windows.Forms.SystemInformation.FrameBorderSize.Height * 2)
            [to].Right = System.Windows.Forms.SystemInformation.VirtualScreen.Right
            [to].Bottom = System.Windows.Forms.SystemInformation.VirtualScreen.Bottom
        End If

        If show Then
            DrawAnimatedRects(form.Handle, IDANI_CAPTION, [to], from)
            form.Show()
        Else
            form.Hide()
            DrawAnimatedRects(form.Handle, IDANI_CAPTION, from, [to])
        End If
    End Sub

    '外加让textbox内容改变后自动滚动到最底端：
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.AppendText(DateTime.Now.ToString() & "/r/n")
        TextBox1.SelectionStart = TextBox1.Text.Length
        'textBox1.SelectionLength = 0;
        TextBox1.ScrollToCaret()
    End Sub
End Class

Public Class Form1

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        Dim n As Double
        For i = -1 To 1 Step 0.0005
            Me.Opacity = System.Math.Abs(i)
            Me.Refresh()
        Next i
    End Sub
End Class