| Gets the index of the selected action. | |
| Syntax: | long = object.Index |
| Description: | The Index argument can range for 0 to
Count-1. The GefProcAction collection supports access by index number only. Example: Sub GefProcAction_Index() Dim oCimObj As GefObject Dim oCimProceduresObj As
GefProcedures Dim oCimProcedObj As
GefProcedure Dim oCimProcActs As
GefProcActions Dim oCimProcAct As
GefProcAction Set oCimObj = CimGetObject Set oCimProceduresObj =
oCimObj.Procedures If oCimProceduresObj.Count > 0
Then Set
oCimProcedObj = oCimProceduresObj.Item(0) Set
oCimProcActs = oCimProcedObj.Actions If
oCimProcActs.Count > 0 Then Set
oCimProcAct = oCimProcActs.Item(0) MsgBox
"The first action has an index of " & _ oCimProcAct.Index Else MsgBox
"There are no actions" End
If Else MsgBox "The
object does not have any procedures" End If End Sub |