Coordinates Χ, Υ

[Αντώνης]

Good evening


I would like the BoxPos to move within the boundaries of the BoxPic with the mouse, and with a double click to be able to save the position I choose.




Also, when I reopen the form, I want the BoxPos to go to the position it was saved to.

[jojowhite]

here try this.

[Αντώνης]

Ευχαριστώ πολύ αλλά στον υπολογιστή μου δεν κάνει τίποτα
Χρειάζεται να κάνω κάτι;

[CJ_London]

translation:

Thank you very much, but it's not doing anything on my computer. Do I need to do anything?

[jojowhite]

You need to Click and Drag the BoxPos (Red marker) around the form.

Πρέπει να κάνετε κλικ και να σύρετε το BoxPos (κόκκινος δείκτης) γύρω από τη φόρμα.

[Αντώνης]

Good evening
I modified the code a little and managed to move the red dot.
I found that the Red dot can only move right and down,
it would be easy if the red dot could move in different directions, (i.e. Up – Down – Right – Left – Diagonal) I hope I didn't get too tired.
Thanks



Private Sub BoxPos_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim dX As Single, dY As Single

' If m_Moving Then
dX = x - pX
dY = y - pY
With Me.BoxPos
If .Left + dX >= m_LimitL And .Left + .Width + dX <= m_LimitR Then
Me!Posx = Me.BoxPos.Left + dX
End If
If .Top + dY >= m_LimitT And .Top + .Height + dY <= m_LimitB Then
Me!PosY = Me.BoxPos.Top + dY
End If
End With
Me.Dirty = False

With Me.BoxPos
.Top = Me!PosY
.Left = Me!Posx
End With
' End If
End Sub

[Welshgasman]

Please post code within code tags. Use the # button.
It keeps indentation then, which I hope you are using?
I would have thought the red dot can go whether it is allowed to within the constrains of the code?

[jojowhite]

it was fine moving left, right, top, bottom or diagonal
and I don't see any problem. When you close and re-open
the form, it the "red box" stays where you left it when
you last closed the form.

[Αντώνης]

Καλησπέρα
Τροποποίησα λίγο τον κωδικό και κατάφερα να μετακινήσω την κόκκινη κουκκίδα.
Ανακάλυψα ότι η κόκκινη κουκκίδα μπορεί να κινηθεί μόνο δεξιά και κάτω,
θα ήταν εύκολο αν η κόκκινη κουκκίδα μπορούσε να κινηθεί προς διαφορετικές κατευθύνσεις, (π.χ. Πάνω – Κάτω – Δεξιά – Αριστερά – Διαγώνια)
Ελπίζω να μην σας κούρασα πολύ.
Ευχαριστώ

Private Sub BoxPos_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim dX As Single, dY As Single
    
'    If m_Moving Then
        dX = x - pX
        dY = y - pY
        With Me.BoxPos
            If .Left + dX >= m_LimitL And .Left + .Width + dX <= m_LimitR Then
                Me!Posx = Me.BoxPos.Left + dX
            End If
            If .Top + dY >= m_LimitT And .Top + .Height + dY <= m_LimitB Then
                Me!PosY = Me.BoxPos.Top + dY
            End If
        End With
        Me.Dirty = False
        
        With Me.BoxPos
            .Top = Me!PosY
            .Left = Me!Posx
        End With
'    End If
End Sub

[Αντώνης]

Ναι μένει εκεί που το άφησα
αλλά στον υπολογιστή μου κινείστε μόνο δεξιά και κάτω

[isladogs]

It works perfectly for me

У меня это работает идеально.

[Αντώνης]

Σας ευχαριστώ