Select Case e.Path
Case "","test.htm"
Dim wb As New WeUI
Dim str = wb.Build
wb.AddPageTitle("","ph1","Progress")
For i As Integer = 1 To 5
wb.AddProgress("","pgb&'"& i &"'",True,50)
str = str.replace("<div class='weui_progress' name= pgb& '"& i & "' id= pgb& '" & i & "' >","<div class='weui_progress' name= pgb& '"& i &"' id= pgb& '"& i &"' ><label>合同&‘“&i&"':</label>")
Next
e.WriteString(str)
End Select
帮忙改一下以上代码
[此贴子已经被作者于2018/3/21 16:11:58编辑过]