منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جربت هذا الكود

كود :

#Region " ClientAreaMove Handling "

    Const WM_NCHITTEST As Integer = &H84

    Const HTCLIENT As Integer = &H1

    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        Select Case m.Msg

            Case WM_NCHITTEST

                MyBase.WndProc(m)

                If m.Result = HTCLIENT Then m.Result = HTCAPTION

                'If m.Result.ToInt32 = HTCLIENT Then m.Result = IntPtr.op_Explicit(HTCAPTION) 'Try this in VS.NET 2002/2003 if the latter line of code doesn't do it... thx to Suhas for the tip.

            Case Else

                'Make sure you pass unhandled messages back to the default message handler.

                MyBase.WndProc(m)

        End Select

    End Sub

#End Region

لكن لاسف هذا الكود لايعمل الى على الفروم فقط

السلام عليكم،
إليك هذا الكود لتحريك Form1 عن طريق Panel1

كود :

Public Class Form1

    Private canMove As Boolean = False

    Private mousePT As Point

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

        mousePT = Me.Location - Cursor.Position

        canMove = True

    End Sub

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

        If canMove Then

            Me.Location = Cursor.Position + mousePT

        End If

    End Sub

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

        canMove = False

    End Sub

End Class

كيف اكبر الفورم بسحبه من الجانب بلفئرة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد

Aly El-Haddad

sippar