除了红色字代码，其他的都跟帮助文件里的例题一样
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服务端。
我这样写，显示的总是空字符。
加好友 
发短信
Post By：2022/5/27 11:15:00 [只看该作者]
