مشکل Mousemove فرم های وی بی 6

[tarfand4u]

دوستان همونطوریکه می دونید خصوصیت BorderStyle فرم های وی بی 6 مربوط به نماش نوع فرم هست...

حالا اگر مقدار این خصوصیت برابر 0 قرار بگیره یعنی (None) بشه دیگه نمیشه فرم رو حرکت داد.

حالا راهی هست که فرم رو بتونیم در محیط ویندوز حرکت بدیم یا نه

در ضمن خواهشا اکتیو ایکس SkinControl رو معرفی نکنید

دوستان مشکل دارم بسیار شدید کمک کنید

[بهرام_62]

روش اول و ساده تر که یکم بی کلاسیه
منظورم از بی کلاسی اینه که طرف فرم رو که میگیره وقتی درگ می کنه فرم حرکت نمی کنه و وقتی دکمه ماوس رو ول می کنه فرم جابه جا میشه
کد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینم روش دوم که مثلا با کلاسه ولی یکم سریع بخوای فرم رو تکون بدی قاتی می کنه

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

همون روش اولی عالی ترینه

[tarfand4u]

سلام دوست عزیز آقا بهرام

اول ازتون بسیار متشکرم که مشکل من رو حل کردین

دوم من تونستم این مشکل رو حل کنم با استفاده از کد برنامه نویسی روش اول:

به این ترتیب که شما می تونید تکه کدی رو که در قسمت MouseUp قرار دادین رو در قسمت MouseMove قرار بدین مشکل حل میشه

این طوری:

Dim xx As Integer
Dim yy As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
xx = X
yy = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Me.Left = Me.Left + X - xx
Me.Top = Me.Top + Y - yy
End Sub

خیلی ممنونم اگر شما نبودین مشکل من حل نمی شد

خیلی زحمت کشیدین