以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取check的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120621)
--  作者：OKK
--  发布时间：2018/6/20 17:34:00
--  [求助]获取check的值
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已经被勾选，使用以上三种方法都没反应，应该怎么写？
--  作者：有点甜
--  发布时间：2018/6/20 17:44:00
--  

参考

 

http://www.foxtable.com/mobilehelp/scr/0055.htm

 
--  作者：OKK
--  发布时间：2018/6/20 18:20:00
--  
好，我看看，谢谢！！！