[Visual Basic]
Private Sub GrabRectMouseMove( _ 
   ByVal sender As Object, _ 
   ByVal e As MouseEventArgs _ 
)

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub GrabRectMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) 
        Dim CurrControl As Control = CType(sender, Control) 
        Dim Index As Integer = GetCurrIndex(sender) 
        Dim MousePos As Point 
        Static Right As Integer 
        Static Bottom As Integer 
 
        Select Case Index 
            Case 0 : CurrControl.Cursor = Cursors.SizeNWSE 
            Case 1 : CurrControl.Cursor = Cursors.SizeNS 
            Case 2 : CurrControl.Cursor = Cursors.SizeNESW 
 
            Case 3 : CurrControl.Cursor = Cursors.SizeWE 
            Case 4 : CurrControl.Cursor = Cursors.SizeWE 
 
            Case 5 : CurrControl.Cursor = Cursors.SizeNESW 
            Case 6 : CurrControl.Cursor = Cursors.SizeNS 
            Case 7 : CurrControl.Cursor = Cursors.SizeNWSE 
        End Select 
 
        If InResizeMode = True Then 
            MousePos = mOwnerForm.PointToClient(Cursor.Position) 
            CurrControl.Left = mOwnerForm.PointToClient(Cursor.Position).X 'CurrControl.Left + e.X 
            CurrControl.Top = mOwnerForm.PointToClient(Cursor.Position).Y 'CurrControl.Top + e.Y 
 
            Dim TmpHeigth As Integer 
            Dim TmpWidth As Integer 
 
            Select Case Index 
                Case 0 'TopLeft GrabButton 
 
                Case 1 'TopMiddle GrabButton 
 
                Case 2 'TopRight GrabButton 
 
                Case 3 'MiddleLeft GrabButton 
 
                Case 4 'MiddleRight GrabButton 
                    TmpWidth = GrabRects(4).Left - mControl.Left 
                    If TmpWidth < mMinWidth Then TmpWidth = mMinWidth 
                    mControl.Width = TmpWidth 
 
                Case 5 'BottomLeft GrabButton 
 
                Case 6 'BottomMiddle GrabButton 
                    TmpHeigth = CurrControl.Top - mControl.Top 
                    If TmpHeigth < mMinHeigth Then TmpHeigth = mMinHeigth 
                    mControl.Height = TmpHeigth 
 
                Case 7 'BottomRight GrabButton 
                    TmpHeigth = CurrControl.Top - mControl.Top 
                    TmpWidth = CurrControl.Left - mControl.Left 
 
                    If TmpHeigth < mMinHeigth Then TmpHeigth = mMinHeigth 
                    If TmpWidth < mMinWidth Then TmpWidth = mMinWidth 
 
                    mControl.Size = New Size(TmpWidth, TmpHeigth) 
            End Select 
            mOwnerForm.Refresh() 
        Else 
            Right = mControl.Right 
            Bottom = mControl.Bottom 
        End If 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

clsResizeControl