用样式控制
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<style>#btn1:before {position: relative;right: 5px;content: url(./images/1.png);}</style>",True)
wb.AddForm("","form1","test.htm")
With wb.AddButtonGroup("form1","btg1",True) '垂直排列
.Add("btn1", "按钮")
.Add("btn4", "按钮", "reset")
.Add("btn5", "按钮", "", "http://www.foxtable.com") '单击这个按钮可以打开foxtable主页
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2021/5/11 9:19:00 [显示全部帖子]
