حرکت دادن فرم با خصوصیت 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 هم میشه استفاده کرد

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