EsbOtlAssociateAttributeMember

属性メンバーを標準または基本メンバーに関連付けます。

構文

            EsbOtlAssociateAttributeMember
             (
            hOutline
            , 
            BaseMember
            , 
            AttributeMember
            )
ByVal 
            hOutline
                    As Long
ByVal 
            BaseMember
                  As Long
ByVal 
            AttributeMember
             As Long
         
パラメータ説明

hOutline

アウトラインのハンドル

BaseMember

標準または基本メンバーのハンドル

AttributeMember

属性メンバーのハンドル

備考

戻り値

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

アクセス

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

                 Sub ESB_OtlAssociateAttributeMember()
                ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
Dim BaseMbr As Long
        Dim AttrMbr As Long
        Dim sts as long
        Dim hOutline as long
hOutline = ESB_OtlOpenOutline
If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
        
BaseMbr = ESB_OtlFindMember("Enter base dimension: ")
If BaseMbr = vbNull Then
Out "No valid member found."
Out "ESB_OtlAssociateAttributeDimension() failed."
Exit Sub
End If
    
        AttrMbr = ESB_OtlFindMember("Enter attribute dimension: ")
        If AttrMbr = vbNull Then
Out "No valid member found."
Out "ESB_OtlAssociateAttributeMember() failed."
Exit Sub
End If
sts = EsbOtlAssociateAttributeMember(hOutline, BaseMbr, AttrMbr)
' abstract sub to call EsbOtlVerifyOutline(), ESBOTLNriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
If sts <> 0 Then Out "EsbOtlAssociateAttributeMember failed" & sts: Exit Sub
ESB_OtlGetAttributeInfo
End Sub
      

関連トピック