فرم بدونه header

[mohammadjavad]

سلام
دو تا سوال داشتم اگه جواب بدین ممنون میشم
1-فرم من header نداره که بتونم به حرکت در بیارمش فکر کنم با یه تابع API بشه اگه ممکن یه نمونه بزارید
2-جه طور میتونم با راست کلیک روی فرم یه منو مثل راست کلیک رویه desktop ویندوز ایجاد کنم

[Alireza_Salehi]

1. API نیازی نیست ، با استفاده رویداد MouseDown و MouseMove و MouseUp میشه حلش کرد.


Dim mLocation As Point
Dim Moving As Boolean
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMe.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
mLocation = e.Location
Moving = True
End If
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Moving Then
Me.Location = New Point(Me.Location.X + e.X - mLocation.X, Me.Location.Y + e.Y - mLocation.Y)
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Moving = False
End Sub

آیا میخواهید دقیقا منوی Desktop رو با گزینه های موجود در آن در اختیار داشته باشید؟
اگر نه :
2. از ContextMenuStrip استفاده کنید.

[mohammadjavad]

سلام
ممنون از این که جواب دادین

آیا میخواهید دقیقا منوی Desktop رو با گزینه های موجود در آن در اختیار داشته باشید؟

نه میخواستم یه منو خودم درست کنم که شما گفتین به جوابم رسیدم