主题：请教：web开发，单选列表项有无onchange事件

我测试可以

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Attribute = "onchange='alert(123)'"
            .Add("bw1","Intenet Explorer")
            .Add("bw2","Google Chorme", True) '默认勾选
            .Add("bm3","FireFox").Attribute = "onchange='alert(345)'"
            .Add("bm4","Safari").Enabled = False '此项不可选
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

比如 alert(bm3.checked)