CHECK color of shape 2

[2009luca]

i have a series of shape, similar shp(0), shp(1)... shp(N) on label 1.

Possible to check with mouse move on restricted area of label1 the color of shape and the index of single shape shp?

note:
i can have only tree color:

'VERDE &H0000C000&
'ARANCIONE &H000080FF&
'ROSSO &H000000FF&

https://files.engineering.com/getfi...c48-413c-9bfe-610a355c3b87&file=Immagine1.jpg

 

[strongm]

The easiest way of doing this might be to use a picturebox control instead of a shape control

 

[strongm]

Still, if you insist on using shapes, then something like the following:

[COLOR=blue]Option Explicit

Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long 'pt As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    CLicktest x, y
End Sub

Private Sub CLicktest(x As Single, y As Single)
    Dim ShapeRect As RECT
    Dim myShape As Shape
    Dim myPoint As POINTAPI
    
    For Each myShape In Shape1 [COLOR=green]' Shape1 is our control array of shapes[/color]
        With ShapeRect
            .Bottom = myShape.Top + myShape.Height
            .Right = myShape.Left + myShape.Width
            .Top = myShape.Top
            .Left = myShape.Left
        End With
        myPoint.x = x
        myPoint.y = y
        If PtInRect(ShapeRect, x, y) = 1 Then
            ShapeClicked myShape
            Exit For
        End If
    Next
End Sub


Private Sub ShapeClicked(myShape As Shape)
    Debug.Print "Clicked Shape " & myShape.Index
    Debug.Print "Backcolour is &H" & Hex(myShape.BackColor)
End Sub
[/color]

 

[2009luca]

Hi strongm,
i sse te code use down click, possible with mouse move?

Note:
all shape are in array, similar:

shp(0)
shp(1)
ecc...

 

[Andrzejek]

possible with mouse move?

Here is a crazy idea - TRY IT!

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[strongm]

You can just drop the same code into the MouseMove event. But it may not be the most efficient way, depending on your actual end requirement ..