以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在AddInput(ID, Label, type)中如何设置标签颜色？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154015)
--  作者：czy66ds
--  发布时间：2020/9/1 10:42:00
--  在AddInput(ID, Label, type)中如何设置标签颜色？
如题
--  作者：有点蓝
--  发布时间：2020/9/1 11:08:00
--  
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.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("<script>document.getElementById(\'xm\').parentNode.previousElementSibling.style.color = \'red\';</script>")
        e.WriteString(wb.Build) \'生成网页
End Select