学会使用样式控制就行了
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
wb.AddForm("","form1","testRes.htm")
Dim rdg As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("","rdg1","横排,自动换行显示<span style='float:right;color:red' id='v1'></span>")
rdg.add("rd1","Microsoft Edge")
rdg.add("rd2","Google Chorme")
rdg.add("rd3","FireFox")
wb.InsertHTML("form1", rdg.BuildHtml)
wb.AppendHTML("<script>document.getElementById('rd1').parentNode.parentNode.style.flexFlow = 'column';document.getElementById('rd1').parentNode.parentNode.style.alignItems = 'flex-start';</script>"):
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2023/6/13 10:06:00 [只看该作者]
