主题：求助 窗口最小化最大化问题

全局代码

Default

Public myform As Windows.Forms.Form

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean

Public Declare Function ReleaseCapture Lib "user32" () As Integer

Public Const BorderWidth As Integer = 6

Public _resizeDir As ResizeDirection = ResizeDirection.None

Public Enum ResizeDirection

None = 0

Left = 1

TopLeft = 2

Top = 3

TopRight = 4

Right = 5

BottomRight = 6

Bottom = 7

BottomLeft = 8

End Enum

Public Property resizeDir() As ResizeDirection

Get

Return _resizeDir

End Get

Set(ByVal value As ResizeDirection)

_resizeDir = value

'Change cursor

Select Case value

    Case ResizeDirection.Left

        myform.Cursor = System.Windows.Forms.Cursors.SizeWE

    Case ResizeDirection.Right

        myform.Cursor = System.Windows.Forms.Cursors.SizeWE

    Case ResizeDirection.Top

        myform.Cursor = System.Windows.Forms.Cursors.SizeNS

    Case ResizeDirection.Bottom

        myform.Cursor = System.Windows.Forms.Cursors.SizeNS

    Case ResizeDirection.BottomLeft

        myform.Cursor = System.Windows.Forms.Cursors.SizeNESW

    Case ResizeDirection.TopRight

        myform.Cursor = System.Windows.Forms.Cursors.SizeNESW

    Case ResizeDirection.BottomRight

        myform.Cursor = System.Windows.Forms.Cursors.SizeNWSE

    Case ResizeDirection.TopLeft

        myform.Cursor = System.Windows.Forms.Cursors.SizeNWSE

    Case Else

        myform.Cursor = System.Windows.Forms.Cursors.Default

End Select

End Set

End Property

Public Const WM_NCLBUTTONDOWN As Integer = &HA1

Public Const HTBORDER As Integer = 18

Public Const HTBOTTOM As Integer = 15

Public Const HTBOTTOMLEFT As Integer = 16

Public Const HTBOTTOMRIGHT As Integer = 17

Public Const HTCAPTION As Integer = 2

Public Const HTLEFT As Integer = 10

Public Const HTRIGHT As Integer = 11

Public Const HTTOP As Integer = 12

Public Const HTTOPLEFT As Integer = 13

Public Const HTTOPRIGHT As Integer = 14

Public Sub MoveForm()

ReleaseCapture()

SendMessage(myform.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)

End Sub

Public Sub ResizeForm(ByVal direction As ResizeDirection)

Dim dir As Integer = -1

Select Case direction

    Case ResizeDirection.Left

        dir = HTLEFT

    Case ResizeDirection.TopLeft

        dir = HTTOPLEFT

    Case ResizeDirection.Top

        dir = HTTOP

    Case ResizeDirection.TopRight

        dir = HTTOPRIGHT

    Case ResizeDirection.Right

        dir = HTRIGHT

    Case ResizeDirection.BottomRight

        dir = HTBOTTOMRIGHT

    Case ResizeDirection.Bottom

        dir = HTBOTTOM

    Case ResizeDirection.BottomLeft

        dir = HTBOTTOMLEFT

End Select

If dir <> -1 Then

    ReleaseCapture()

    SendMessage(myform.Handle, WM_NCLBUTTONDOWN, dir, 0)

End If

End Sub

Public Sub myform_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

If e.Button = Windows.Forms.MouseButtons.Left And myform.WindowState <> Windows.Forms.FormWindowState.Maximized Then

    ResizeForm(resizeDir)

End If

End Sub

Public Sub myform_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

'Calculate which direction to resize based on mouse position

If e.Location.X < BorderWidth And e.Location.Y < BorderWidth Then

    resizeDir = ResizeDirection.TopLeft

ElseIf e.Location.X < BorderWidth And e.Location.Y > myform.Height - BorderWidth Then

    resizeDir = ResizeDirection.BottomLeft

ElseIf e.Location.X > myform.Width - BorderWidth And e.Location.Y > myform.Height - BorderWidth Then

    resizeDir = ResizeDirection.BottomRight

ElseIf e.Location.X > myform.Width - BorderWidth And e.Location.Y < BorderWidth Then

    resizeDir = ResizeDirection.TopRight

   谢谢老师!

老师:

您好!

我加着 

e.Form.BaseForm.ShowInTaskBar = True

窗口最大化都是挡住任务栏

此主题相关图片如下：1.png

这是窗口最大化,看不到任务栏

请老师指教!

谢谢!