Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<script src='test.js'></script>") '引入脚本文件
wb.AddForm("","form1","./test.htm")
With wb.AddButtonGroup("form1","btg1",True) '垂直排列
.Add("btn1", "按钮1","button").Attribute = "onclick='setDisplay(""div01"")'"
End With
wb.InsertHTML("form1","<div id='div01' style='display:none'>按钮1的内容</div>")
With wb.AddButtonGroup("form1","btg2",True) '垂直排列
.Add("btn2", "按钮2","button").Attribute = "onclick='setDisplay(""div02"")'"
End With
wb.InsertHTML("form1","<div id='div02' style='display:none'>按钮222的内容</div>")
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2018/8/27 21:11:00 [显示全部帖子]
