Keskustelu: Ohjelmointikysymykset: VB6: formin liikuttaminen mistä tahansa

yritin tehdä sellaista että formia voisi raahata kun klikkaisi formin sisältä, mutta se rupesi vain tärisemään ja kun liikutti lisää niin se keikkui ja liikkui liian vähän. Mikä meni väärin:

Private mx, my, sx, sy

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mx = X
    my = Y
    sx = Left
    sy = Top

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then Move sx - mx + X, sy - my + Y

End Sub

Koitas tämmöstä koodia

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X0 = X
    Y0 = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
      Me.Move Left + X - X0, Top + Y - Y0
    End If
End Sub

Formin scalemode oltava 1 eli Twip

Sedän koodi toimii mainiosti, kunhan X0 ja Y0 on määritelty formin alussa.

tänkketänkketänkke! mainiosti todella!