Description

Creates a list accessing to all elements of the current layer (see example).

Available in 1.5 or newer.

Syntax

Context

Page designer

Example

Dim list = Page.LayerElementList()

Dim frm=0, pic=0

For Each e As ElementProp In list  

 If e.Kind = Pok.oFrame Then frm+=1  

 If e.Kind = pok.oBitmap Then pic+=1

Next

MsgBox ("Frames: "+CStr(frm)+" - Pictures: "+CStr(pic)+" - Others: "+CStr(list.Count-frm-pic))

All layers related commands

GetCurLayer, GetLayerId, GetLayerLockLevel, GetLayerName, GetLayersCount, GetLayerTypeId

IsLayerChecked, IsLayerFrozen, IsLayerListChecked, IsLayerVisible

LayerAdd, LayerDelete, LayerEditDlg, LayerExport, LayerJumpTo, LayerListToggleCheck, LayerMerge, LayerNoJumpTo, LayerSelect, LayerTest, LayerSelectIdName, LayerToBack, LayerToFront, LayerToggleCheck, LayerToggleFreeze, LayerToggleLock, LayerToggleVisible

ToggleLayers, TxtLayersDlg