以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列表输入怎样修改样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134235)

--  作者:paniwangji
--  发布时间:2019/4/30 15:28:00
--  列表输入怎样修改样式
以帮助文件举例:
因为我的Label部分中的内容非常多,Values部分只需要“是|否”就可以了, 目前直接使用这个代码效果是左边挤了一堆的文字,右边是空白,需要怎样才能让Values部分的值靠右显示呢

http://www.foxtable.com/mobilehelp/scr/0048.htm


--  作者:有点甜
--  发布时间:2019/5/4 11:33:00
--  
Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","列表项目")
            .AddSelect("os","操作系统","iOS|Windows|Andriod")
            .AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet Explorer")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.InsertHTML("<style>.weui_select{text-align:right;text-align-last: right}</style>")
        e.WriteString(wb.Build) \'生成网页
End Select