'==========================================================================
'Progress 표시 테스트
'==========================================================================
Sub ProgressTest()
Set mxmodule = Application.COMAddIns("iMATRIX6.ExcelModule").Object
mxmodule.xapi.ProgressShow "잠시만 기다려주세요", "처리중 입니다", False '(title, detail, calcen 버튼)
For idx = 1 To 1000000
'progressUpdateProgress update 가 많을수록 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
|