-- 作者:有点甜
-- 发布时间:2018/11/9 14:38:00
--
参考代码
Select Case e.Path Case "test.htm","" Dim wb As New WeUI wb.AddTopTips("","toptip1","") wb.AddForm("","form1","logon.htm") With wb.AddInputGroup("form1","ipg1","用户登录") .AddInput("xm","户名","text") .AddInput("pw","密码","password") End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With wb.InsertHTML("<style>#ipg1 .weui_label{color:red}</style>") e.WriteString(wb.Build) End Select
|