Option Explicit

Dim goBookControl As New cBookControl

Sub call_cBookControl_Initialize()

  MsgBox _
    goBookControl.Initialize( _
    )

End Sub

Sub call_cBookControl_getStatus()

  MsgBox _
    goBookControl.getStatus( _
    )

End Sub


Sub call_cBookControl_getExcelUserName()

  MsgBox _
    goBookControl.getExcelUserName( _
    )

End Sub

Sub call_cBookControl_getExcelOrganizationName()

  MsgBox _
    goBookControl.getExcelOrganizationName( _
    )

End Sub

Sub call_cBookControl_getExcelMemory()

  Dim lsPar1 As String
  lsPar1 = getSysParaBySheet(ActiveSheet.Name, "B03P2")

  Dim lsPar1Array(3) As String
  
  lsPar1Array(0) = "FREE"
  lsPar1Array(1) = "TOTAL"
  lsPar1Array(2) = "USED"
  lsPar1Array(3) = "USEDPER"

  Dim liLoopCnt1 As Integer
  
  For liLoopCnt1 = 0 To UBound(lsPar1Array) Step 1
    If (lsPar1 = lsPar1Array(liLoopCnt1)) Then
      Exit For
    End If
  Next liLoopCnt1
  
  Dim lsFormat As String
  If (liLoopCnt1 = 3) Then
    lsFormat = "#0.0# \%"
  Else
    lsFormat = "#,##0 \B\y\t\e"
  End If
  
  MsgBox _
    Format( _
      goBookControl.getExcelMemory(liLoopCnt1), _
      lsFormat _
    )

End Sub

Sub call_cBookControl_StatusBarStart()

  MsgBox _
    goBookControl.StatusBarStart( _
    )

End Sub

Sub call_cBookControl_StatusBarPut()

  MsgBox _
    goBookControl.StatusBarPut( _
      getSysParaBySheet(ActiveSheet.Name, "B03P1") _
    )

End Sub

Sub call_cBookControl_StatusBarEnd()

  MsgBox _
    goBookControl.StatusBarEnd( _
    )

End Sub

Sub call_cBookControl_CursorWait()

  MsgBox _
    goBookControl.CursorWait( _
    )

End Sub

Sub call_cBookControl_CursorNormal()

  MsgBox _
    goBookControl.CursorNormal( _
    )

End Sub

Sub call_cBookControl_DisplayUpdateStop()

  MsgBox _
    goBookControl.DisplayUpdateStop( _
    )

End Sub

Sub call_cBookControl_DisplayUpdateStart()

  MsgBox _
    goBookControl.DisplayUpdateStart( _
    )

End Sub

Sub call_cBookControl_getFileNameByDialog()

  Dim lvRet As Variant

  lvRet = _
    goBookControl.getFileNameByDialog( _
      getSysParaBySheet(ActiveSheet.Name, "B03P3"), _
      getSysParaBySheet(ActiveSheet.Name, "B03P4"), _
      CBool(getSysParaBySheet( _
        ActiveSheet.Name, "B03P5") = "TRUE" _
      ) _
    )

  Dim lsMsg As String

  If (IsEmpty(lvRet)) Then
    lsMsg = lsMsg & "IsEmpty!" & Chr(10)
  Else
    lsMsg = "UBound=" & UBound(lvRet) & Chr(10)
    Dim liLoopCounter2 As Integer
    For liLoopCounter2 = 0 To UBound(lvRet) Step 1
      lsMsg = _
        lsMsg & _
        "(" & liLoopCounter2 & ")" & _
        "[" & lvRet(liLoopCounter2) & "]" & Chr(10)
    Next liLoopCounter2
  End If

  MsgBox lsMsg

End Sub

Sub call_cBookControl_setExcelTitle()

  MsgBox _
    goBookControl.setExcelTitle( _
      getSysParaBySheet(ActiveSheet.Name, "B03P7") _
    )

End Sub

Sub call_cBookControl_unsetExcelTitle()

  MsgBox _
    goBookControl.unsetExcelTitle( _
    )

End Sub

Sub call_cBookControl_isCheckOpenSelectBook()

  MsgBox _
    goBookControl.isCheckOpenSelectBook( _
      getSysParaBySheet(ActiveSheet.Name, "B03P6") _
    )

End Sub

Sub call_cBookControl_Terminate()

  MsgBox _
    goBookControl.Terminate( _
    )

End Sub