Properties   Methods   Events Example

TestControl(ByVal xcontrol As Object, ByVal x As Single, ByVal y As Single) As Long


            Normally you will add the marker in the MousDown or Click Event of an object.
            But not all object have events to add. (Line, Shape)
            In this way you can use the Form_MouseDown or click event to check if the object was                                     clicked.

            ico_syntax Syntax:

                        RETVAL= sizer1.TestControl (object,x,y)

            ico_einstellungen Adjustments:                        


the object you will test


the Mouse x and y click position

            ico_weitere Return Values:

            1 if the object was clicked.


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

Dim i As Integer
' Hide all visible Marker
If Button = vbLeftButton Then
    If sizer1.Visible = True Then sizer1.HideMarker
End If
' test Objects with no mousedown event
i = sizer1(aktualsizer).TestControl(Shape1, x, Y)
If i = 1 Then
  sizer1.ShowMarker(Shape1, 0,0)
End If
End Sub