这个暂时没有办法。只能自己用img进行扩展。比如结合复选列表项做图片选择
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddCheckGroup("form1","rdg1","浏览器")
.Add("bw1","<img src='/Images/001.jpg' width=50 height=50 />", True) '默认勾选
.Add("bw2","<img src='/Images/002.jpg' width=50 height=50 />")
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False '此项不可选
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2017/6/19 20:34:00 [显示全部帖子]
