.NET (Core and Framework)

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben

<br />
' This is where on the item the user clicked the mouse.<br />
    Dim Xstart As Integer<br />
    Dim Ystart As Integer<br />
    ' This is whether or not the user has the mouse down on<br />
    ' The items<br />
    Dim movin As Boolean<br />
    ' This controls if the panel moves in increments or<br />
    ' straight 1x1 pixels<br />
    Const Increment As Integer = 10<br />
    Const TrueMotion As Boolean = False<br />
    ' MOE (Margin Of Error) is the number of pixels the user<br />
    ' Can be off for a event to trigger (check the OnMouseUp event)<br />
    Const MOE As Integer = 5<br />
    Private Sub Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlMain.MouseMove<br />
        If movin Then<br />
            ' This gets what panel the event fired for<br />
            ' (So you can use the AddHandler function)<br />
            Dim ThisPanel As Panel = CType(sender, Panel)<br />
            Dim moveX As Integer<br />
            Dim moveY As Integer<br />
            If TrueMotion Then<br />
                moveX = Me.MousePosition.X - Xstart<br />
                moveY = Me.MousePosition.Y - Ystart<br />
            Else<br />
                ' This rounds the position to the nearest<br />
                ' multiple of Increment.<br />
                ' It works fine, just is complicated<br />
                moveX = Me.MousePosition.X - Xstart - ((Me.MousePosition.X - Xstart) Mod Increment)<br />
                moveY = Me.MousePosition.Y - Ystart - ((Me.MousePosition.Y - Ystart) Mod Increment)<br />
            End If<br />
            ThisPanel.Top = moveY<br />
            ThisPanel.Left = moveX<br />
            ' pnlWhite is above pnlMain, and pnlBlack is <br />
            ' INSIDE pnlWhite, so pnlBlack makes it look like<br />
            ' pnlMain is changing colors to black.<br />
            pnlBlack.Left = ThisPanel.Left - pnlWhite.Left<br />
            pnlBlack.Top = ThisPanel.Top - pnlWhite.Top<br />
            ' If ThisPanel is close enough to pnlWhite<br />
            ' (with MOE), show the close label.<br />
            If ThisPanel.Top + MOE >= pnlWhite.Top And ThisPanel.Top - MOE <= pnlWhite.Top And ThisPanel.Left + MOE >= pnlWhite.Left And ThisPanel.Left - MOE <= pnlWhite.Left Then<br />
                Label1.Visible = True<br />
            Else<br />
                Label1.Visible = False<br />
            End If<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlMain.MouseDown<br />
        ' Start movin'<br />
        movin = True<br />
        Dim ThisPanel As Panel = CType(sender, Panel)<br />
        ThisPanel.BorderStyle = BorderStyle.FixedSingle<br />
        Xstart = Me.MousePosition.X - ThisPanel.Left<br />
        Ystart = Me.MousePosition.Y - ThisPanel.Top<br />
    End Sub<br />
<br />
    Private Sub Panel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlMain.MouseUp<br />
        movin = False<br />
        Dim ThisPanel As Panel = CType(sender, Panel)<br />
        ThisPanel.BorderStyle = BorderStyle.None<br />
        ' Pretty much, if the close label is shown, quit.<br />
        If ThisPanel.Top + MOE >= pnlWhite.Top And ThisPanel.Top - MOE <= pnlWhite.Top And ThisPanel.Left + MOE >= pnlWhite.Left And ThisPanel.Left - MOE <= pnlWhite.Left Then<br />
            Me.Close()<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub btnNewPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewPanel.Click<br />
        ' This makes the new panel.<br />
        Dim Newpanel As System.Windows.Forms.Panel<br />
        Newpanel = New System.Windows.Forms.Panel()<br />
        Newpanel.Location = New System.Drawing.Point(50, 50)<br />
        Newpanel.BackColor = System.Drawing.Color.FromArgb(255, 192, 192)<br />
        Newpanel.Size = New System.Drawing.Size(40, 40)<br />
        Me.Controls.Add(Newpanel)<br />
        ' And this gives it the events it needs.<br />
        AddHandler Newpanel.MouseUp, AddressOf Panel_MouseUp<br />
        AddHandler Newpanel.MouseDown, AddressOf Panel_MouseDown<br />
        AddHandler Newpanel.MouseMove, AddressOf Panel_MouseMove<br />
    End Sub<br />