Foxtable(狐表)用户栏目专家坐堂 → 改逻辑开关的显示字体内容


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

主题:改逻辑开关的显示字体内容

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
改逻辑开关的显示字体内容  发帖心情 Post By:2020/2/3 13:52:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200203134935.png
图片点击可在新窗口打开查看


wb.AppendHTML("<style>.weui_label{width: 75px;text-align: justify;text-align-last: justify;margin-right:25px;color:dodgerblue;}.


老师,你好,我想将逻辑开关的标题改成与输入标签字体一样,改不起呢,请问怎样改才行

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/3 14:05:00 [只看该作者]

到浏览器测试页面,打开开发者工具,看逻辑开关的文字使用的是什么css类,按照上面代码用法改即可

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2020/2/3 15:19:00 [只看该作者]

就是这样按这个做的,改不到

class="weui_cell_hd weui_cell_primary"
查了是这个类,css改了也不行
[此贴子已经被作者于2020/2/3 15:22:49编辑过]

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/3 15:24:00 [只看该作者]

打开开发者工具,您看到看逻辑开关的文字使用的是什么css类?又写了什么和这个类有关的代码?


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


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/3 15:29:00 [只看该作者]

wb.AppendHTML("<style>.weui_cell_switch .weui_cell_hd{color:dodgerblue;}</style>",True)

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2020/2/3 15:36:00 [只看该作者]

Dim mr As DataRow = DataTables("疫情表").sqlfind("身份证号='"& dr("身份证号") & "' and 是否正常='异常'")
        If mr("咳嗽")="咳嗽"
            .AddSwitch("咳嗽","咳嗽",True)           
        Else
            .AddSwitch("咳嗽","咳嗽")
        End If


老师,我想用逻辑开关开展示之前填报的值,只要这样加了网页就出来不了了,还有上面多的true是什么作用?
[此贴子已经被作者于2020/2/3 15:37:04编辑过]

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/3 15:50:00 [只看该作者]

AddSwtich(ID, Label, Checked)

ID开关ID。
Label在开关左侧显示的标签内容
Checked逻辑型,可选参数,开关默认是否处于开启状态。

Dim mr As DataRow = DataTables("疫情表").sqlfind("身份证号='"& dr("身份证号") & "' and 是否正常='异常'")
        If mr isnot nothing andalso mr("咳嗽")="咳嗽"
            .AddSwitch("咳嗽","咳嗽",True)           
        Else
            .AddSwitch("咳嗽","咳嗽")
        End If

 回到顶部