페이지 이력

'==========================================================================
'Progress 표시 테스트
'==========================================================================
Sub ProgressTest()
    
    Set mxmodule = Application.COMAddIns("iMATRIX6.ExcelModule").Object
    mxmodule.xapi.ProgressShow "잠시만 기다려주세요", "처리중 입니다", False   '(title, detail, calcen 버튼)
    
    
    For idx = 1 To 1000000

        'UpdateProgress 가 1초 이내 종료되는 작업에 UpdateProgress 를 사용하면 성능이 지연됩니다.
        '100 건단위 등 큰 소요시간이 오래 걸리는 작업 구분으로 update 합니다.
        If idx Mod 100 = 0 Then  '100건씩 progress 상태 update
            mxmodule.xapi.UpdateProgress "잠시만 기다려주세요", idx & " 건 처리중 입니다.", False
            DoEvents
        End If
        
    Next
    
    mxmodule.xapi.ProgressHide
End Sub