EsbOtlGetNextSharedMember

指定されたメンバーの次の共有メンバーにメンバー・ハンドルを戻します。

構文

            EsbOtlGetNextSharedMember
             (
            hOutline, hMember, phMember
            )
ByVal 
            hOutline
             As Long
ByVal 
            hMember
              As Long
      
            phMember
             As Long

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	次の共有メンバーを検索するメンバー。
phMember	アウトラインの次の共有メンバーの戻り変数。共有メンバーがもうない場合は、このパラメータはESB_NULLです。

備考

hMemberが実際のメンバーの場合、最初の共有メンバーがphMemberパラメータに戻されます。hMemberが共有メンバーの場合、次の共有メンバーがphMemberパラメータに戻されます。
共有メンバーが(それ以上)ない場合、phMemberはESB_NULLに設定され、呼出しは0を戻します。

戻り値

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

例

         Declare Function EsbOtlGetNextSharedMember Lib
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long,
phMember As Long) As Long

Sub ESB_OtlGetNextSharedMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMargin As Long
Dim hShared As Long
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, "Margin", hMargin) 
End If
If sts = 0 Then
   Do While sts = 0 And hMargin <> 0
    sts = EsbOtlGetNextSharedMember(hOutline, hMargin, hShared) 
     hMargin = hShared
     hShared = ESB_NULL
   Loop
End If
End Sub