GefFrameContainerFormat.CurrentFrame (property)

Gets the GefObject representing the current frame being displayed by the frame container.

Syntax:

Set GefObject = object.CurrentFrame
object.CurrentFrame = GefObject

Description:

The CurrentFrame property returns the frame whose expression is currenly true.

Example:

Sub FrameContainerFormat_CurrentFrame()

Dim oCimObj As GefObject

    Dim oCimFrameFmt As
GefFrameFormat

    Dim oCimfrmObj As
GefObject

    Dim oCimFrmContFmt As
GefFrameContainerFormat

    Dim oCimFrameObj As
GefObject

Set oCimObj = CimGetObject

    Set oCimFrmContFmt =
oCimObj.FrameContainerFormat

    If Not oCimFrmContFmt Is Nothing
Then

        Set
oCimFrameObj = oCimFrmContFmt.CurrentFrame

        Set
oCimFrameFmt = oCimFrameObj.FrameFormat

        If Not
oCimFrameFmt Is Nothing Then

            MsgBox
"The frame expression for the current frame " & _

                "is
" & oCimFrameFmt.FrameExpression

        End
If

End If

End Sub