以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于Switch的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142774)
--  作者：ap9709130
--  发布时间：2019/11/5 21:56:00
--  关于Switch的问题
 老师

   我按开发指南的代码：

 Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True)
            .AddSwitch("vip","VIP客户").Enabled = False
        End With
        e.WriteString(wb.Build) \'生成网页

把VIP 的属性设成了 无法改变 他的check 状态。 发现是不能改变了，但是他的状态和颜色 和其它的是一样的，有没有办法把这个开关 变成灰色。这样就会更明显了。
--  作者：有点蓝
--  发布时间：2019/11/5 22:31:00
--  
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加客户")
    .AddInput("xm","姓名","text")
    .AddInput("nl","年龄","number")
    .AddSwitch("hy","会员",True)
    .AddSwitch("vip","VIP客户").Enabled = False
End With
wb.InsertHTML("<script>document.getElementById(""vip"").parentNode.parentNode.style.backgroundColor = ""gray""</script>")
e.WriteString(wb.Build) \'生成网页
--  作者：ap9709130
--  发布时间：2019/11/7 15:03:00
--  
有点蓝老师

 试了你的代码好像不行. 有没有不用JS 的方法?
--  作者：ap9709130
--  发布时间：2019/11/7 15:10:00
--  
 可以通过设置 CCS 来设颜色吗?
--  作者：有点蓝
--  发布时间：2019/11/7 15:55:00
--  
只能是2楼的用法。我测试没有问题，上传实例说明