主题：AddUploader.Attribute无效

你要设置什么属性？直接说明要做到的效果。

比如测试代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传") '文件上传
            .AddUploader("up1","")
        End With
       
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.appendHTML("<script>up1.setAttribute('capture','camera');up1.setAttribute('accept','image/*');</script>")
        e.WriteString(wb.Build) '生成网页
End Select