以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]网页按钮加上图标  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165226)

--  作者:fczhaobo
--  发布时间:2021/5/11 8:17:00
--  [原创]网页按钮加上图标
想在这两种登陆按钮上加上图标,怎么做?
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn1", "密码登录", "submit")
    .add("btn2","微信登陆","")
End With

--  作者:有点蓝
--  发布时间:2021/5/11 9:19:00
--  
用样式控制

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AppendHTML("<style>#btn1:before {position: relative;right: 5px;content: url(./images/1.png);}</style>",True)
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
            .Add("btn1", "按钮")
            .Add("btn4", "按钮", "reset")
            .Add("btn5", "按钮", "", "http://www.foxtable.com") \'单击这个按钮可以打开foxtable主页
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

--  作者:fczhaobo
--  发布时间:2021/5/13 9:17:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:104304d24ba40a40d37f6cc8429e53e.jpg
图片点击可在新窗口打开查看

--  作者:fczhaobo
--  发布时间:2021/5/13 9:17:00
--  
图标无法下移,
--  作者:fczhaobo
--  发布时间:2021/5/13 9:24:00
--  
已经解决,CSS加一个决对定位的距上属性就行了