| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 单选列表项 Radio 如何传值到foxtable服务端 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177580) |
| -- 作者：fivetable -- 发布时间：2022/5/27 11:15:00 -- 单选列表项 Radio 如何传值到foxtable服务端 单选列表项 Radio
原单选列表项一个选项占用一行，如果项目比较多，会占用不少的页面空间。这里提供的单选列表项可以和客户端的单选框一样在一排显示，并且可以根据页面宽度自动折行显示。 要使用单选列表项，首先得定义一个单选列表组，定义单选列表组的语法是： ExWeUI.WebUI.AddRadioGroup(ParentID,
ID) 请问蓝老师，这个单选列表项 Radio 能否跟文本输入框AddInput一样，只要单击“提交按钮” 就把“值”或是“TRUE”“FALSE”返回到Foxtable服务端。 |
| -- 作者：有点蓝 -- 发布时间：2022/5/27 11:30:00 -- 可以的。测试过吗，有什么问题？ |
| -- 作者：fivetable -- 发布时间：2022/5/27 14:11:00 -- 蓝老师！可能你还没理解我的意思，直接上帮助代码比较好说 除了红色字代码，其他的都跟帮助文件里的例题一样 Select Case e.Path Case "test.htm" Dim wb As New weui wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) \'需要注意的是,这里必需要使用true参数，假设文件放在weui目录中 wb.AppendHTML( "<script src=\'./weui/exweui.js\' ></script>" , True ) \'需要注意的是,这里必需要使用true参数 wb.AddForm("", "form1", "test.htm") Dim rdg As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("", "rdg1", "横排,自动换行显示<span style=\'float:right;color:red\' id=\'v1\'></span>") rdg.add("rd1", "Microsoft Edge").Attribute = """ rdg.add("rd2", "Google Chorme").Attribute = """ rdg.add("rd3", "FireFox").Attribute = """ rdg.add("rd4", "QQ浏览器").Attribute = """ rdg.add("rd5", "傲游浏览器").Attribute = """ wb.InsertHTML("form1", rdg.BuildHtml) rdg = ExWeUI.WebUI.AddRadioGroup("", "rdg5", "自定义返回值<span style=\'float:right;color:red\' id=\'v2\'>01</span>") Dim rdgItem = rdg.add("rd51", "Microsoft Edge", True) rdgItem.value = "01" rdgItem.Attribute = """ rdgItem = rdg.add("rd52", "Google Chorme") rdgItem.value = "02" rdgItem.Attribute = """ rdgItem = rdg.add("rd53", "FireFox") rdgItem.value = "03" rdgItem.Attribute = """ wb.InsertHTML("form1", rdg.BuildHtml) With wb.AddButtonGroup("form1", "btg1", True) .Add("btn1", "确定", "submit") End With \' If e.Values("rd53") <> Nothing Then MessageBox.Show(e.Values("rd53")) \' End If wb.AppendHTML("<script>initExWeUI();</script>") \'需要注意的是,这里不需要使用true参数 e.WriteString(wb.Build) \'生成网页 End Select 我想要的效果是手机端，单选框，选中后，按确认键，单选框选中的状态“false”“true”,或是键值，能传到Foxtable服务端。 我这样写，显示的总是空字符。 |
| -- 作者：有点蓝 -- 发布时间：2022/5/27 14:26:00 -- If e.Values.containskey("rdg5") Then MessageBox.Show(e.Values("rdg5"))
|
| -- 作者：fivetable -- 发布时间：2022/5/27 14:40:00 -- 可以啦！谢谢老师 |
| -- 作者：fivetable -- 发布时间：2022/5/27 16:33:00 -- 没有问题了，非常感谢！！！ |