EsbOtlMoveMember() moves a member.
EsbOtlMoveMember (hOutline, hMember, hNewParent, hNewPrevSibling)
ByVal hOutline As Long ByVal hMember As Long ByVal hNewParent As Long ByVal hNewPrevSibling As Long
| hOutline | Outline context handle. |
| hMember | Handle of member to move. |
| hNewParent | Handle of new parent. This field is only used if the hNewPrevSibling field is ESB_NULL. |
| hNewPrevSibling | Handle of new previous sibling. |
Returns 0 if successful; otherwise:
OTLAPI_BAD_MOVE
Declare Function EsbOtlMoveMember Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
ByVal hNewParent As Long, ByVal hNewPrevSibling As Long) As Long
Sub ESB_OtlMoveMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMemberProfit As Long
Dim hFQ 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, "First Q", hFQ)
End If
If sts = 0 Then
sts = EsbOtlFindMember(hOutline, "Profit", hMemberProfit)
End If
If sts = 0 And hFQ And hMemberProfit Then
sts = EsbOtlMoveMember(hOutline, hFQ,
hMemberProfit, ESB_NULL)
End If
End Sub
EsbOtlFindMember()
EsbOtlRenameMember()
EsbOtlAddMember()
EsbOtlDeleteMember()