EsbOtlGetPrevSibling

Returns the previous sibling of a member.

Syntax

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

Parameter	Description
hOutline	Outline context handle.
hMember	Handle of member to retrieve the previous sibling of.
phMember	Return variable for the handle of the previous sibling of the hMember parameter.

Notes

If there is no previous sibling, phMember is set to ESB_NULL and the call returns 0.

Return Value

Returns 0 if successful.

Example

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

Sub ESB_OtlGetPrevSibling()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hChild As Long
Dim hPrevSibling 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, "Profit", hChild) 
End If
If sts = 0 And hChild <> 0 Then
   sts = EsbOtlGetPrevSibling(hOutline, hChild, hPrevSibling)
End If
End Sub