代码如下:
Dim wb As New weui
wb.AddForm("", "form1", "")
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML( "<script src='./weui/exweui.js' ></script>" , True) '
Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("","chg1","横排,自动换行显示")
cdg.add("rd1","Microsoft Edge").Attribute = """
cdg.add("rd2","Google Chorme")
cdg.add("rd3","FireFox")
cdg.add("rd4","QQ浏览器")
cdg.add("rd5","傲游浏览器")
wb.InsertHTML("form1",cdg.BuildHtml)
Dim PageURL As String = "testdx.htm"
wb.AppendHtml("<meta http-equiv='refresh' c>", True)
'8秒后跳转
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)
现在想通过get方式传递复选列表项的值,现在的问题是:如何先获取所表单上选择的复选列表项的值(Value或ID)?