Description
Allows to click to define the point and then calls the script, specified in AddressOf.
Syntax
Designer.SelectArea(New SelectAreaProc(AddressOf name)) |
designer
Page designer, defined by Dim designer = TryCast(idesigner, IPageDesigner) or by Protected Designer As IPageDesigner (in page.vb)
name
name of the script to call when you release the mouse button.
Example
<ShellCommand(CanExecute:="Ena_HasSelection")> _
Public Sub ObjSetHotSpot()
If SystemUserOptions.F_Confirm = True Then MsgBox(My.Resources.IDS_ClickNewHotSpot, vbInformation, My.Resources.IDS_APPFred)
Page.ViewHotSpot(1)
Page.RifSnap(0)
Designer.SelectPoint(New SelectPointProc(AddressOf OnHotSpot))
End Sub
See also