حرکت دادن فرم با خصوصیت formborderstyle=none

[hamidhws]

با سلام دوستان
من یه فرم دارم که روی اون panel گذاشتم و خصوصیت formborderstyle فرم هم برابر none هست و نمیشه اونو حرکت داد
سوالم اینه چطوری میشه این حرکتو شبیه سازی کرد
اینو هم بگم روی فرم من تماما panel هست یعنی نمیتونم روی فرم کلیک کنم چون روش panel هست و میخوام با کلیک و تکون دادن موس روی panel فرم حرکت کنه (شبیه سازی عمل حرکت دادن فرم بوسیله نوار آبی بالای فرم)

امیدوارم تونسته باشم منظورو برسونم
اگه کمکم کنید یه دنیا ممنون آخه خیلی فوریه!

با تشکر

[ACorvinus]

سلام .

در قسمت Declarations اینارو بنویس:

Private ClickedX As Integer

Private ClickedY As Integer

این کد MouseDown مربوط به Panel شما:

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

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

        ClickedX = e.X

        ClickedY = e.Y

    End If

End Sub

اینم کد MouseMove مربوط به Panel شما:

 

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

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

        Dim X As Integer = Windows.Forms.Cursor.Position.X

        Dim Y As Integer = Windows.Forms.Cursor.Position.Y

 

        Me.Location = New Point(X - ClickedX, Y - ClickedY)

    End If

End Sub

موفق باشی رفیق، البته اگه روش دیگه ای هم بود که بهتر از این باشه، دوست دارم بهم بگی . ممنون .

[hamidhws]

بینهایت ممنون دوست عزیز
به جای mouse_up از mouse_move هم میشه استفاده کرد

باز هم ممنون دوست خوبم