- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- AddCheckGroup能否加说明文字 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190018)
-- 发布时间：2024/1/11 11:33:00
-- AddCheckGroup能否加说明文字
此主题相关图片如下：微信截图_20240111112000.png
如上图，能否给每一项加上详细的文字说明
如 建议类；
对企业规章制度、员工薪酬福利、休息休假、健康体检、工作内容和流程等相关事项的咨询与建议;
-- 发布时间：2024/1/11 11:48:00
--
考虑把文字说明统一放到后面，类似
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme", True) \'默认勾选
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False \'此项不可选
End With
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme", True) \'默认勾选
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False \'此项不可选
End With
With wb.AddArticle("","ar1")
.AddTitle("h2","选项说明")
.AddTitle("h3","咨询类")
.AddContent("咨询类说明咨询类说明咨询类说明咨询类说明咨询类说明咨询类说明")
.AddTitle("h2","选项说明")
.AddTitle("h3","咨询类")
.AddContent("咨询类说明咨询类说明咨询类说明咨询类说明咨询类说明咨询类说明")
……
.AddTitle("h3","建议类")
.AddContent("对企业规章制度、员工薪酬福利、休息休假、健康体检、工作内容和流程等相关事项的咨询与建议")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
.AddContent("对企业规章制度、员工薪酬福利、休息休假、健康体检、工作内容和流程等相关事项的咨询与建议")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select