Select Case e.Path
Case "test.htm"
Dim wb As New weui
With wb.AddGrid("", "g1")
.Add("c1", "服务费明细", "./images/button.png").Attribute="onclick=""hide('page2');show('page1')"""
.Add("c2", "其它明细", "./images/cell.png").Attribute="onclick=""hide('page1');show('page2')"""
End With
wb.AddPage("", "page1") '增加两个page
wb.AddPage("", "page2", False) '第二个
wb.AddForm("page1", "form1", "test1.htm")
With wb.AddInputGroup("form1", "ipg1", "登录")
.AddInput("xm1", "明细1控件1", "text")
.AddInput("pw1", "明细1控件2", "text")
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
wb.AddForm("page2", "form2", "test2.htm")
With wb.AddInputGroup("form2", "ipg2", "登录")
.AddInput("xm2", "明细2控件1", "text")
.AddInput("pw2", "明细2控件2", "text")
End With
With wb.AddButtonGroup("form2", "btg2", True)
.Add("btn2", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Case "test1.htm"
e.WriteString("接收明细1数据")
Case "test2.htm"
e.WriteString("接收明细2数据")
End Select
[此贴子已经被作者于2022/10/26 14:15:57编辑过]
加好友 
发短信
Post By：2022/10/26 8:53:00 [显示全部帖子]
