movable نشدن فرم

[samiasoft]

سلام

من در فرمم خاصیت BorderStyle را none کردم و فقط یک عکس گذاشتم به عنوان پشت زمینه

ولی هرکاری مکنم هنگام اجرا ثابت هست فرم و جابه جا نمیشه!

با این که خاصیت Moveable = True فرم هم فعاله!

[samiasoft]

در پروژه ای دیدم که اینطور استفاده شده

Dim x1 As Single, y1 As Single, m As Boolean



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
m = True
x1 = X
y1 = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If m = True Then
Me.Left = Me.Left + X - x1
Me.Top = Me.Top + Y - y1
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
m = False

End Sub




این کد به نظرتون درسته؟یا راه حل بهتری هم داره؟

[سید حمید حق پرست]

سلام علیکم
در سورس ضمیمه از api برای حرکت دادن فرم استفاده شده که در دو حالت براتون آماده کردم.
موفق باشید.

یا علی (ع)