Occurs when a TreeView item is collapsing.
Event ID |
Objects |
|---|---|
pbm_tvnitemcollapsing |
TreeView |
Argument |
Description |
|---|---|
handle |
Long by reference (the handle of the collapsing item) |
Long. Return code choices (specify in a RETURN statement):
0 Continue processing
The ItemCollapsing event occurs before the ItemCollapsed event.
This example changes the picture for the collapsing item:
TreeViewItem l_tvi
integer li_level
This.GetItem(handle, l_vti)
CHOOSE CASE l_tvi.level
CASE 1
l_tvi.PictureIndex = 1
l_tvi.SelectedPictureIndex = 1
CASE 2
l_tvi.PictureIndex = 2
l_tvi.SelectedPictureIndex = 2
CASE 3
l_tvi.PictureIndex = 3
l_tvi.SelectedPictureIndex = 3
CASE 4
l_tvi.PictureIndex = 4
l_tvi.SelectedPictureIndex = 4
END CHOOSE
This.SetItem(handle, l_tvi)
