Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddButtonGroup("","btg",True)
.Add("btn1","单击显示上拉菜单").Attribute = """
End With
With wb.AddActionSheet("","s1")
.Add("menu1", "菜单项目1", "http://www.foxtable.com/")
.Add("menu2", "菜单项目2")
.Add("menu3", "菜单项目3").Attribute = "" '这个能写提交数据吗？ submit 要这么写呢
.Add("menu4","取消","",True)
End With
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2022/4/17 21:28:26编辑过]
加好友 
发短信
Post By：2022/4/17 21:28:00 [显示全部帖子]
