Foxtable(狐表)用户栏目专家坐堂 → [原创]网页按钮加上图标


  共有3008人关注过本帖树形打印复制链接

主题:[原创]网页按钮加上图标

帅哥哟,离线,有人找我吗?
fczhaobo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:395 积分:4070 威望:0 精华:0 注册:2017/3/24 15:10:00
[原创]网页按钮加上图标  发帖心情 Post By:2021/5/11 8:17:00 [只看该作者]

想在这两种登陆按钮上加上图标,怎么做?
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn1", "密码登录", "submit")
    .add("btn2","微信登陆","")
End With

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:395 积分:4070 威望:0 精华:0 注册:2017/3/24 15:10:00
  发帖心情 Post By:2021/5/13 9:17:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
fczhaobo
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:395 积分:4070 威望:0 精华:0 注册:2017/3/24 15:10:00
  发帖心情 Post By:2021/5/13 9:17:00 [只看该作者]

图标无法下移,

 回到顶部
帅哥哟,离线,有人找我吗?
fczhaobo
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:395 积分:4070 威望:0 精华:0 注册:2017/3/24 15:10:00
  发帖心情 Post By:2021/5/13 9:24:00 [只看该作者]

已经解决,CSS加一个决对定位的距上属性就行了

 回到顶部