Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer")
.Add("bw2","Google Chorme", True) '默认勾选
.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
方法1：
if e.PostValues.ContainsKey("bw2")
messagebox.show("Google Chorme")
end if
方法2：
if e.PostValues.ContainsKey("bw2") = true
messagebox.show("Google Chorme")
end if
方法：
if e.PostValues.ContainsKey("bw2").checked = true
messagebox.show("Google Chorme")
end if
判断bw2已经被勾选，使用以上三种方法都没反应，应该怎么写？
加好友 
发短信
Post By：2018/6/20 17:34:00 [显示全部帖子]
