[5分]窗体保存按钮怎样调用平台进度条？

帮助中心

《盟威软件快速开发平台》在线帮助中心 http://www.accessgood.com/help/Main.html

单个进度条示例:

Private Sub Command0_Click()

Dim clsPB As PopupProgressBar

Dim lngI As Long 

Set clsPB = CreateInstance("PopupProgressBar")

    clsPB.StatusText = "正在更新..."
    clsPB.Max = 1000 For lngI = 1 To clsPB.Max
        clsPB.Value = lngI Next MsgBox "更新完成！", vbInformation

 End Sub

主子进度条示例:

Private Sub Command1_Click() 

Dim clsPB As PopupProgressBar 

Dim lngI As Long Dim lngJ As Long 

Set clsPB = CreateInstance("PopupProgressBar")
    clsPB.PercentFormat = "0%"
    clsPB.StatusText = "正在更新..."
    clsPB.Max = 17 For lngI = 1 To clsPB.Max
        clsPB.SubStatusText = "正在更新 " & lngI & "..."
        clsPB.SubMax = 300 For lngJ = 1 To clsPB.SubMax
            clsPB.SubValue = lngJ Next clsPB.Value = lngI Next MsgBox "更新完成！", vbInformation 

End Sub