Capture click on screen

[Phailak]

Hi,
I drew onto the form, a map of hexagons that fills the whole form. What I wish to do is to know which Hexagon the user clicked. I used a loop of createPolygon api to create the Hexagons and stored each region in a variable Hex(I).
I also use the event Form_MouseMove to capture the location of the mouse when the Form_Click event is launched but I have no way to compare those coordinates with those of each hexagon region I created previously...
Any one have any suggestions, maybe I'm going about this all wrong???

Thanx

Phailak

[YoungBuck]

Did you use the CreatePolygonRgn API call to store that handles of the hexagon's in the Hex() array that you speak of? If so you can use the PtInRegion API call to check if the user has clicked inside the polygon. Also you are going to need to use the Form_MouseDown event rather than the Form_Click event, here's some sample code....

Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 Dim iCt As Integer
 Dim lX As Long, lY As Long
 
    If Button = vbLeftButton Then ' if user clicked the left mouse button
        
        'Must convert coordinates from Twips to Pixels
        lX = x / Screen.TwipsPerPixelX
        lY = y / Screen.TwipsPerPixelY
        
        For iCt = LBound(hex) To UBound(hex) ' Loop through each region handle
        
            If Not PtInRegion(hex(iCt), lX, lY) = 0 Then ' Are coordinates within Hexagon
            
                Debug.Print "Region Number " & iCt & " Selected!"
                
            End If
            
        Next iCt
        
    End If

End Sub

[Phailak]

Thanx,

Didn't get a chance to try it yet, but seems logical to me, I had found a long run around that did not work effectivly, thanx again.

Phailak