페이지 이력

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

        'progress update 가 많을수록 성능이 지연됩니다.
        '상태 표시는 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