Cel.CelListSelectionChanged



CelListSelectionChanged(obItem As CelItem)

Parameters

obItem As CelItem
Returns the added CelItem as Object...
ED
not used
RT
read only

Remarks

Event is fired, when a new item in the List is selected...

Sample:


Dim WithEvents zCELPIC As DynPicture
Dim WithEvents zCEL As Cel
Dim bCEL As Boolean

'##########################################################
'### Procedures/Events of the Project				 ###
'##########################################################
Private Sub Project_Active()
	'set this object to get the Picture Open/Close Events...
	Set zCELPIC = thisProject.DynPictures.Item("CELPICTURENAME")
End Sub

Private Sub Project_Inactive()
	'release object
	Set zCELPIC = Nothing
End Sub

'##########################################################
'### Procedures/Events for the CEL DynPicture		 ###
'##########################################################
Private Sub zCELPIC_Open()
	'boolen flag to remember the open event
	bCEL = True
	'init CEL Object to get the CelListSelectionChanged event
	Set zCEL = thisProject.Cel
End Sub

Private Sub zCELPIC_Close()
	'release object
	Set zCEL = Nothing
End Sub

'##########################################################
'### Procedures/Events for the ChronologicalEventList   ###
'##########################################################
Private Sub zCEL_CelListSelectionChanged(ByVal obItem As ICelItem)
	'If the boolen is TRUE, the first events can be ignored
	'because in this case the events returns the default
	'selection on opening the picture
	If bCEL = True Then
		bCEL = False
	Else
		Debug.Print "SelectionChanged - " & obItem.Text
	End If
End Sub


See Also

Cel, CelItem