EsbOtlGetAssociatedAttributes

基本メンバーまたは基本次元に関連付けられているすべての属性メンバーを戻します。

構文

            EsbOtlGetAssociatedAttributes
             (
            hOutline
            , 
            Member
            , 
            Count
            , 
            MemberArray
            )
ByVal 
            hOutline
                As Long
ByVal 
            Member
                  As Long
      
            Count
                   As Integer
      
            MemberArray
             As Variant

パラメータ	説明
hOutline	アウトラインのハンドル
Member	基本メンバーまたは基本次元のハンドル
Count	戻された属性メンバー数
MemberArray	属性メンバーのハンドルの配列

戻り値

正常終了の場合はSTS = 0が戻されます。それ以外の場合、エラー・コードが戻されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Sub ESB_OtlGetAssociatedAttributes()
    Dim hMember As Long
    Dim Count As Integer                        '*** Return of number of attributes
    Dim MbrArr As Variant                       '*** Returns member array in this
    Dim MbrInfo As ESB_MBRINFO_T        '*** Returned MbrInfo structure
    Dim index As Integer
    eraser
    hMember = ESB_OtlFindMember("Enter target member: ")
    If hMember = vbNull Then Out "ESB_OtlGetAssociatedAttributes() failed.": Exit Sub
    sts = EsbOtlGetAssociatedAttributes(ghOutline, hMember, Count, MbrArr)
    If sts = 0 Then
        Out "Count is : " & Count
        For index = 0 To (Count - 1)
            sts = EsbOtlGetMemberInfo(ghOutline, MbrArr(index), MbrInfo)
            Out "Member Name : " & MbrInfo.szMember
        Next index
    Else
        Out "EsbOtlGetAttributeInfo failed" & sts: Exit Sub
    End If
End Sub