以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Attribute属性设置在AddInputGroup上失效问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186790)

--  作者:z769036165
--  发布时间:2023/5/29 16:19:00
--  Attribute属性设置在AddInputGroup上失效问题
 With wb.AddInputGroup("form1", "ipg11", "内容")
            With wb.AddButtonGroup("", "ipg12", False)
                .Class = "btnht"
                .Attribute = "style=\'padding:10px;\'"
                .Add("btn1", "50", "button").Attribute = """
                .Add("btn1", "100", "button").Attribute = """
            End With
End With

生成的网页<div class="fox_h_button_group btnht">
为什么在分组上面设置这个Attribute属性就失效,没反应,Class属性没问题

Class和Attribute

所谓通过WeUI自动生成的网页,其实就是自动生成各种HTML元素。

各种HTML元素可定义的属性是很多的,但是Foxtable通过WeUI组件提供的可直接设置的属性却不多。

不过Foxtable为所有WeUI组件都提供了Class和Attribute属性,前者用于设置HTML元素的Class属性,后者用于设置HTML元素除Class之外的所有属性。



Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btngrp1")
            With .Add("btn1",
"
单击我","button")
                .Class = "btnClass"
               
.Attribute = "style=\'font-style:italic;font-weight:900;\' "
            End With
        End With
        e.WriteString(wb.Build)

End
Select


--  作者:有点蓝
--  发布时间:2023/5/29 16:39:00
--  
分组没有attribute属性,要这样控制

……
wb.AppendHTML("<script>document.getElementById(\'btn1\').parentNode.parentNode.style.padding = \'10px\';</script>")
e.WriteString(wb.Build)