EsbOtlGetUserAttributes

メンバーのユーザー定義属性をすべて取得します。

構文

            EsbOtlGetUserAttributes
             (
            hOutline, hMember, pusCount
            )
ByVal 
            hOutline
             As Long
ByVal 
            hMember
              As Long 
      
            pusCount
             As Integer

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	ユーザー定義属性を取得するメンバーのハンドル。
pusCount	戻されるユーザー属性の数。ppAttributeList配列の要素数を定義します。

備考

各ユーザー定義属性(*pusCount属性)ごとに1回EsbGetNextItem()を呼び出します。
呼出し元はEsbOtlSetUserAttribute()を使用してメンバーの任意の数のユーザー定義属性を設定できます。各属性は、メンバー名と同じ表記規則に従った一意の文字列として定義されます。
ユーザー属性は、メンバー名、別名、世代名またはレベル名と同じであっても構いません。

戻り値

成功の場合、0が戻されます。

例

         Declare Function EsbOtlGetUserAttributes Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long,
pusCount As Integer) As Long 

Sub ESB_OtlGetUserAttributes()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMember As Long
Dim AttributeList As String * ESB_MBRNAMELEN
Dim n As Integer
Dim Count As Integer
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES,
ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlFindMember(hOutline, "Jan",
    hMember)
End If
If sts = 0 And hMember <> 0 Then
   '********************
   ' Get User Attributes
   '********************
   sts = EsbOtlGetUserAttributes(hOutline,
    hMember, Count)
End If
If sts = 0 And Count <> 0 Then
   For n = 1 To Count
   '********************************
   ' Get next User Attribute String
   ' from the list
   '********************************
   sts = EsbGetNextItem(hCtx,
    ESB_OTLUSERATTR_TYPE, ByVal AttributeList)
    Next
End If
End Sub