samiasoft
شنبه 02 آذر 1392, 20:30 عصر
سلام
من در فرمم خاصیت BorderStyle را none کردم و فقط یک عکس گذاشتم به عنوان پشت زمینه
ولی هرکاری مکنم هنگام اجرا ثابت هست فرم و جابه جا نمیشه!
با این که خاصیت Moveable = True فرم هم فعاله!
samiasoft
شنبه 02 آذر 1392, 20:41 عصر
در پروژه ای دیدم که اینطور استفاده شده
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
این کد به نظرتون درسته؟یا راه حل بهتری هم داره؟
سید حمید حق پرست
شنبه 02 آذر 1392, 22:30 عصر
سلام علیکم
در سورس ضمیمه از api برای حرکت دادن فرم استفاده شده که در دو حالت براتون آماده کردم.
موفق باشید.
یا علی (ع)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.