Hi,
My name is Alvaro, I'm new user the forum,
I have a Problem with the select the same entity in different selectionbox.
I have two SelectionBox, and I want select points in both,
and I would like to have the Possibility to repeat the same entity in the two selection boxes
I'm using the property, AllowMultipleSelectOfSameEntity, AllowSelectInMultipleBoxes and SingleEntityOnly, but don't select the entity.
Any ideas?
This is my example:
In the declaration, is a PageControl, However in the code,
I changed the type to SelectionBox
'Declaration:
Public SelBoxA As PropertyManagerPageControl
Public SelBoxB As PropertyManagerPageControl
'SelBoxA
controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
CtrlSelBoxA = GrColum.AddControl(SelBoxAID, controlType, "Select points", leftAlign, options, "Select points")
If Not CtrlSelBoxA Is Nothing Then
Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).Height = 40
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).AllowSelectInMultipleBoxes = True
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).AllowMultipleSelectOfSameEntity = True
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).SingleEntityOnly = False
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).Style = swPropMgrPageSelectionBoxStyle_e.swPropMgrPageSelectionBoxStyle_MultipleItemSelect
CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).SetSelectionFilters(filter)
End If
'SelBoxB
controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
CtrlSelBoxB = GrColum2.AddControl(SelBoxBID, controlType, "Select points", leftAlign, options, "Select points")
If Not CtrlSelBoxB Is Nothing Then
Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).Height = 40
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).AllowSelectInMultipleBoxes = True
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).AllowMultipleSelectOfSameEntity = True
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).SingleEntityOnly = False
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).Style = swPropMgrPageSelectionBoxStyle_e.swPropMgrPageSelectionBoxStyle_MultipleItemSelect
CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).SetSelectionFilters(filter)
End If
Thanks in advance.