[VB.NET] إنشاء فورم على شكل صورة PNG - نسخة قابلة للطباعة

كود :

Dim a As Integer

    Dim b As Integer

    Private Sub planel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown



        a = Panel.MousePosition.X - Me.Location.X

        b = Panel.MousePosition.Y - Me.Location.Y



    End Sub

    Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove



        Dim newPoint As New System.Drawing.Point()

        If e.Button = MouseButtons.Left Then



            newPoint = Panel.MousePosition

            newPoint.X = newPoint.X - (a)

            newPoint.Y = newPoint.Y - (b)

            Me.Location = newPoint

        End If

    End Sub

كود :

Dim x, y As Integer

 Dim newpoint As New Point



    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        x = Control.MousePosition.X - Me.Location.X

        y = Control.MousePosition.Y - Me.Location.Y

    

    End Sub



    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        'في الماوس موف للفورم نكتب الكود التالي

        If e.Button = Windows.Forms.MouseButtons.Left Then

            newpoint = Control.MousePosition

            newpoint.X -= x

            newpoint.Y -= y

            Me.Location = newpoint

            Application.DoEvents()

        End If

    End Sub

كود :

Private MouseOffset As Point

    Private IsLeftButtonDown As Boolean = False

Private Sub PlayerPanel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PlayerPanel.MouseDown

        If e.Button = MouseButtons.Left Then

            IsLeftButtonDown = False

        End If

        Dim xOffset As Integer

        Dim yOffset As Integer

        If e.Button = MouseButtons.Left Then

            xOffset = -e.X - SystemInformation.FrameBorderSize.Width

            yOffset = -e.Y - SystemInformation.CaptionHeight - SystemInformation.FrameBorderSize.Height

            MouseOffset = New Point(xOffset, yOffset)

            IsLeftButtonDown = True

        End If

    End Sub





    Private Sub PlayerPanel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PlayerPanel.MouseMove

        If IsLeftButtonDown Then

            Dim MousePosition As Point = Control.MousePosition

            MousePosition.Offset(MouseOffset.X, MouseOffset.Y)

            Location = MousePosition - PlayerPanel.Location

        End If

    End Sub



    Private Sub PlayerPanel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PlayerPanel.MouseUp

        If e.Button = MouseButtons.Left Then

            IsLeftButtonDown = False

        End If

    End Sub

كود :

    Private Property MoveForm As Boolean



    Private Property MoveForm_MousePos As Point

كود :

       

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown

        If e.Button = MouseButtons.Left Then

            MoveForm = True

            Me.Cursor = Cursors.Hand

            MoveForm_MousePos = e.Location

        End If

    End Sub



    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

        If MoveForm Then

            Me.Location = Me.Location + (e.Location - MoveForm_MousePos)

        End If

    End Sub



    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp

        If e.Button = MouseButtons.Left Then

            MoveForm = False

            Me.Cursor = Cursors.Default



        End If

    End Sub