在移动开发中关于Progress的使用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Path
    Case "","test.htm"
        Dim wb As New WeUI
        wb.AddPageTitle("","ph1","Progress")
        wb.AddProgress("","pgb1",True,20).CancelCommand = "你取消了')'"
        With wb.AddButtonGroup("","btg1",)
            .Add("btn1", "设置进度").Attribute= "pgb1',80)'"
        End With
        Dim str = wb.Build
        str = str.replace("<div class='weui_progress' name='pgb1' id='pgb1'>","<div class='weui_progress' name='pgb1' id='pgb1'><label>123456:</label>")
        e.WriteString(str)
End Select

主题：在移动开发中关于Progress的使用