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

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

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

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

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

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

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

کد:

---

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_MouseUp(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

---

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

کد:

---

Dim x1 As Integer
Dim y1 As Integer
Private Sub Form_Load()
y1 = -1000
x1 = -1000
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    If x1 <> -1000 Then
        If Abs((X - x1)) > 100 Then
        Me.Left = Me.Left + (X - x1)
        x1 = X
        End If
    End If
    If y1 <> -1000 Then
        If Abs((Y - y1)) > 100 Then
        Me.Top = Me.Top + (Y - y1)
        y1 = Y
        End If
    End If
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
y1 = -1000
x1 = -1000
End Sub

---

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

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

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

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

به این ترتیب که شما می تونید تکه کدی رو که در قسمت 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

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

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