EsbOtlCloseOutline() frees all information associated with the outline.
EsbOtlCloseOutline (hOutline)
ByVal hOutline As Long
hOutline | Outline context handle. |
Returns 0 if successful.
Declare Function EsbOtlCloseOutline Lib "ESBOTLW" (ByVal hOutline As Long) As Long Sub ESB_OtlCloseOutline() Dim sts As Long Dim Object As ESB_OBJDEF_T Dim hOutline 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) 'body of code... If sts = 0 Then sts = EsbOtlWriteOutline(hOutline, Object) End If 'restructure outline using EsbOtlRestructure() If sts = 0 Then sts = EsbOtlCloseOutline(hOutline) End If End Sub
EsbOtlOpenOutline()
EsbOtlWriteOutline()
EsbOtlRestructure()