[Visual Basic]
Public Sub New( _ 
   ByVal NewControl As Control, _ 
   ByVal OwnerForm As Form _ 
)

Parameter

NewControl

OwnerForm

Quellcode

[Visual Basic]
    Sub New(ByVal NewControl As Control, ByVal OwnerForm As Form) 
        mControl = NewControl 
        mOwnerForm = OwnerForm 
 
        AddHandler mOwnerForm.Paint, AddressOf Paint 
 
        AddHandler mControl.MouseDown, AddressOf ControlMouseDown 
        AddHandler mControl.MouseMove, AddressOf ControlMouseMove 
        AddHandler mControl.MouseUp, AddressOf ControlMouseUp 
 
        mControl.Cursor = Cursors.SizeAll 
 
        For i As Integer = 0 To GrabRects.Length - 1 
            AddHandler GrabRects(i).Paint, AddressOf GrabRectPaint 
            AddHandler GrabRects(i).MouseClick, AddressOf GrabRectMouseClick 
            AddHandler GrabRects(i).MouseMove, AddressOf GrabRectMouseMove 
            AddHandler GrabRects(i).MouseDown, AddressOf GrabRectMouseDown 
            AddHandler GrabRects(i).MouseUp, AddressOf GrabRectMouseUp 
            AddHandler GrabRects(i).Move, AddressOf GrabRectMove 
        Next 
 
        mOwnerForm.Refresh() 
    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