Dim wb As New weui
Select Case e.Path
Case "addnew.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","addnew.htm")
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("","chg1","横排,自动换行显示")
cdg = ExWeUI.WebUI.AddCheckGroup("","审核人","支持3种尺寸1")
cdg.add("rd41","Microsoft Edge",True).size = "s" '不设置默认为中等大小
cdg.add("rd42","Google Chorme").size = "m"
cdg.add("rd43","FireFox1").size = "l"
wb.InsertHTML("form1",cdg.BuildHtml)
cdg = ExWeUI.WebUI.AddCheckGroup("","抄送人","支持3种尺寸")
cdg.add("rd41","Microsoft Edge",True).size = "s" '不设置默认为中等大小
cdg.add("rd42","Google Chorme").size = "m"
cdg.add("rd43","FireFox").size = "l"
wb.InsertHTML("form1",cdg.BuildHtml)
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>") '需要注意的是,这里不需要使用true参数
e.WriteString(wb.Build) '生成网页
e.WriteString(wb.Build)
Else
msgbox(e.PostValues("审核人"))
msgbox(e.PostValues("抄送人"))
End If
End Select
加好友 
发短信
Post By：2024/4/13 5:24:00 [显示全部帖子]
此主题相关图片如下：1712955615573.jpg
