قابل جابجایی فرم در vb.net

[ooje_asman]

من یه فرم طراحی کردم که هیچ کدام از دکمه های مینیمم و ماکزیمم و همچنین نوار بالایی را نداره حال چطور می تونم فرم رو قابل جابجایی کنم تا بتوان با موس آنرا در صفحه جابجا کرد . مرسی

[مهمان]

سلام
دوست عزيز به جاي برداشتن قسمت بالاي فرم بهتر است خاصيت controlbox مربوط به فرم را false کنيد.
اما اگر مي خواهيد که اين کار را انجام ندهيد مي توانيد از کد زير براي حرکت دادن فرم استفاده کنيد:
ابتدا معرفي چند متغير:
Dim newPoint As New System.Drawing.Point
Dim a As Integer
Dim b As Integer
در قسمت event مربوط به MouseMove فرم کد زير را بنويسيد:
If e.Button = MouseButtons.Left Then
newPoint = Me.MousePosition
newPoint.X = newPoint.X - (a)
newPoint.Y = newPoint.Y - (b)
Me.Location = newPoint
End If
در قسمت event مربوط به MouseDown فرم کد زير را بنويسيد:
a = Me.MousePosition.X - Me.Location.X
b = Me.MousePosition.Y - Me.Location.Y

[ooje_asman]

با سلام و مرسی ، رامبد جان نمی شه این نوار قسمت بالا را هم False کرد مثله همون ControlBox

[مهمان]

سلام
من متوجه سوالتون نشدم!
منظور شما کدام نوار قسمت بالا هست؟؟؟

[ooje_asman]

با سلام و تشکرات فراوان
همین نوار آبی رنگی که دکمه های مینیمم و ... روی آن قرار می گیرند همین قسمت بالایی تمام پنجره های ویندوز که معمولا به رنگ آبی هستش

[مهمان]

سلام دوست عزيز
شما مي توانيد فرم مورد نظر خود را انتخاب کنيد و سپس در پنجره properties در قسمت FormBorderStyle مقدار آن را none قرار هيد. با اين کار مي توان قسمت بالاي فرم که مد نظر شما مي باشد را حذف نمود.
موفق باشيد :wink: