Selecting Square

[BShadow]

Hi,

I have a form on wich I place some objects. These objects can get the focus. I want to create a selecting square that can select those objects. So a user should be able to draw a square on the form selecting the object within. How is this possible?

Thank you for your time and effort.

[BShadow]

Anybody?

[Bodwad]

Why not use the On mouse down event and on mouse up events to establish a rectangle then check all objects in the space creates

so if the click at 10,10 and release on 20,20 then you have a rectangle now check all objects to see if they are in this area

[BShadow]

Than you wont see the selecting square on the form right?
I though, maybe ther's a way to get such a thing in visual Basic, but I think this is not possible...



Thx anyway, maybe I'll use your methode instead.

[BShadow]

This is how I've created a selecting square with your tip.

Create a form and place on it a shape. Make the shape transparant, set the borderstyle as dot and place the folowing code.

Dim shpX As Integer
Dim shpY As Integer
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    shpX = X
    shpY = Y
    
    shpSelect.Top = shpY
    shpSelect.Left = shpX
    shpSelect.Width = 100
    shpSelect.Height = 100
    shpSelect.Visible = True
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If shpX > 0 And shpY > 0 Then
        If X - shpX > 0 Then
            shpSelect.Width = X - shpX
        Else
            shpSelect.Width = shpX - X
            shpSelect.Left = shpX - (shpX - X)
        End If
        If Y - shpY > 0 Then
            shpSelect.Height = Y - shpY
        Else
            shpSelect.Height = shpY - Y
            shpSelect.Top = shpY - (shpY - Y)
        End If
    End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    shpX = 0
    shpY = 0
    shpSelect.Visible = False
End Sub

Remember, I've named by shape shpSelect and my form's scalemode is vbTwip.

The selecting is not yet done, but this should be inserted in the Mouse_up event.

Good luck...

[CornedBee]

You should add a boolean variable that indicates whether the mouse is down at the moment. Only adjust the shape when the boolean is true. This way you save a little time on every mouse move.

[BShadow]

Well setting the shpX and shpY to zero is like a boolean right?
If they are zero, than don't do the shape thing...
If their not zero, than the Mouse_Down has set them to a value...