- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 改逻辑开关的显示字体内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145641)
-- 发布时间：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;}.
老师，你好，我想将逻辑开关的标题改成与输入标签字体一样，改不起呢，请问怎样改才行
-- 发布时间：2020/2/3 14:05:00
--
到浏览器测试页面，打开开发者工具，看逻辑开关的文字使用的是什么css类，按照上面代码用法改即可
-- 发布时间：2020/2/3 15:19:00
--
就是这样按这个做的，改不到
class="weui_cell_hd weui_cell_primary"
查了是这个类，css改了也不行
[此贴子已经被作者于2020/2/3 15:22:49编辑过]
-- 发布时间：2020/2/3 15:24:00
--
打开开发者工具，您看到看逻辑开关的文字使用的是什么css类？又写了什么和这个类有关的代码？
此主题相关图片如下：1.png
-- 发布时间：2020/2/3 15:29:00
--
wb.AppendHTML("<style>.weui_cell_switch .weui_cell_hd{color:dodgerblue;}</style>",True)
-- 发布时间：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编辑过]
-- 发布时间：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