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.


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