Positioning Tool

[Chrissie]

I'd like to create a positioning tool...which can position object by dragging them around in a box...

I've added a screenshot...as you see it list the X and Y position value of the box...

Can somebody tell me what's the best way to create this thing? And probably give me a piece of examle code..thanks

[cyborg]

something like this

in mousedown
firstx = x
firsty = y

in mousemove
object.left = object.left + (x - firstx)
object.top = object.top + (y - firsty)

[Chrissie]

uhm...probably not what I mean...
I mean what's the best way to drag the objects over a certain area...

[cyborg]

yes...
start new project and add a commandbox to it...

then add this code:

Option Explicit
Dim FirstX As Single
Dim FirstY As Single
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FirstX = X
FirstY = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Command1.Left = Command1.Left + (X - FirstX)
    Command1.Top = Command1.Top + (Y - FirstY)
End If
End Sub

[cyborg]

if you want to lock it inside the form, do this instead:

If Command1.Left < 0 Then Command1.Left = 0
    If Command1.Left > Me.ScaleWidth - Command1.Width Then Command1.Left = Me.ScaleWidth - Command1.Width
    If Command1.Top < 0 Then Command1.Top = 0
    If Command1.Top > Me.ScaleHeight - Command1.Height Then Command1.Top = Me.ScaleHeight - Command1.Height
    
    If Command1.Left > 0 And Command1.Left < Me.ScaleWidth - Command1.Width Then Command1.Left = Command1.Left + (X - FirstX)
    
    If Command1.Top > 0 And Command1.Top < Me.ScaleHeight - Command1.Height Then Command1.Top = Command1.Top + (Y - FirstY)
    
    If Command1.Left <= 0 And X - FirstX >= 0 Then Command1.Left = Command1.Left + (X - FirstX)
    If Command1.Left = Me.ScaleWidth - Command1.Width And X - FirstX <= 0 Then Command1.Left = Command1.Left + (X - FirstX)
    
    If Command1.Top = 0 And Y - FirstY >= 0 Then Command1.Top = Command1.Top + (Y - FirstY)
    If Command1.Top = Me.ScaleHeight - Command1.Height And Y - FirstY <= 0 Then Command1.Top = Command1.Top + (Y - FirstY)

[Chrissie]

UHm..you've probably not seen my screenshot?

[cyborg]

yes i've seen it!
my code makes it possible to click an object and move it around...

wasn't that what you wanted?

[Chrissie]

Yeah sorry...but I misread it.. I thought it said Commandbox...

Is there a way of resizing aswell?? So I can just drag it a little bigger...

[cyborg]

'change this part
Command1.Left = Command1.Left + (X - FirstX)
Command1.Top = Command1.Top + (Y - FirstY)
 
'to
 
Command1.width = Command1.width + (X - FirstX)
Command1.height = Command1.height + (Y - FirstY)

[cyborg]

try this piece of code:

Option Explicit
Dim FirstX As Single
Dim FirstY As Single
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FirstX = X
FirstY = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    If X <> FirstX Then Command1.Width = Command1.Width + (X - FirstX)
    If Y <> FirstY Then Command1.Height = Command1.Height + (Y - FirstY)
    
    Me.Refresh
    
    FirstX = X
    FirstY = Y
End If
 
If Button = 2 Then
    If Command1.Left < 0 Then Command1.Left = 0
    If Command1.Left > Me.ScaleWidth - Command1.Width Then Command1.Left = Me.ScaleWidth - Command1.Width
    If Command1.Top < 0 Then Command1.Top = 0
    If Command1.Top > Me.ScaleHeight - Command1.Height Then Command1.Top = Me.ScaleHeight - Command1.Height
    
    If Command1.Left > 0 And Command1.Left < Me.ScaleWidth - Command1.Width Then Command1.Left = Command1.Left + (X - FirstX)
    
    If Command1.Top > 0 And Command1.Top < Me.ScaleHeight - Command1.Height Then Command1.Top = Command1.Top + (Y - FirstY)
    
    If Command1.Left <= 0 And X - FirstX >= 0 Then Command1.Left = Command1.Left + (X - FirstX)
    If Command1.Left = Me.ScaleWidth - Command1.Width And X - FirstX <= 0 Then Command1.Left = Command1.Left + (X - FirstX)
    
    If Command1.Top = 0 And Y - FirstY >= 0 Then Command1.Top = Command1.Top + (Y - FirstY)
    If Command1.Top = Me.ScaleHeight - Command1.Height And Y - FirstY <= 0 Then Command1.Top = Command1.Top + (Y - FirstY)
End If
 
End Sub

left mouse button scales, right moves.