以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  由于手机屏幕不太大，如果隐藏AddRadioGroup中的分组标签？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146809)
--  作者：ap9709130
--  发布时间：2020/3/3 0:08:00
--  由于手机屏幕不太大，如果隐藏AddRadioGroup中的分组标签？
 老师

   代码就两句

  With wb.AddRadioGroup("form1","rdg1","浏览器")
  end with

想加载的完成时候，手机不显示浏览器 这几个字？ 不占地方。 但不知要怎么做？
--  作者：有点蓝
--  发布时间：2020/3/3 14:14:00
--  
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer")
            .Add("bw2","Google Chorme", True) \'默认勾选
            .Add("bm3","FireFox")
            .Add("bm4","Safari").Enabled = False \'此项不可选
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.InsertHTML("<script>document.getElementById(\'rdg1\').previousElementSibling.style.display = \'none\';</script>")
        e.WriteString(wb.Build) \'生成网页
End Select