以文本方式查看主题

-  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)