Returns True if the concept selecting process was cancelled.
object.Cancelled
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISTermSelector interface |
bool
Display Cancelled for the termselector.
Dim aTermSelector
Dim aConcept
Dim aTermset
Dim aMessage
Set aTermSelector = Profile.ShowTermSelector
if aTermSelector.Cancelled then
Profile.MsgBox("No concept is selected")
exit sub
end if
set aConcept = aTermSelector.SelectedConcept
aMessage =_
"The code of the concept: " & vbTab & vbTab & aConcept.Code & vbNewLine &_
"The description of the concept: " & vbTab & aConcept.Description & vbNewLine
set aTermset = aTermSelector.SelectedTermset
aMessage = aMessage &_
"The code of the termset: " & vbTab & vbTab & aTermset.Code & vbNewLine &_
"The description of the termset: " & vbTab & aTermset.Description
Profile.MsgBox(aMessage)