EsbOtlCloseOutline

アウトラインに関連するすべての情報を解放します。

構文

            EsbOtlCloseOutline
             (
            hOutline
            )
ByVal 
            hOutline
             As Long

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。

備考

EsbOtlNewOutline()またはEsbOtlOpenOutline()を呼び出す場合、常にこの関数を呼び出す必要があります。
オブジェクトが開かれるときにロックされている場合、この呼出しを行う前にEsbUnlockObject()を呼び出す必要があります。

戻り値

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

例

         Declare Function EsbOtlCloseOutline Lib 
"ESBOTLN" (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 = ESBOTLNriteOutline(hOutline, Object)
End If
'restructure outline using EsbOtlRestructure()
If sts = 0 Then
   sts = EsbOtlCloseOutline(hOutline)
End If
End Sub