主题：这样选择图片没反应

    Case "货品详情图片弹窗1.htm"

        

        wb.AddForm("", "form2", "货品详情图片弹窗保存.htm")

  With wb2.AddInputGroup("", "ipg2", "查询内容")

                   .AddInput("商品条码", "条码", "text")

                            With .AddUploader("up1", "图片", True) 'True表示允许上传多个文件

                                .AllowDelete = True '允许删除

                                .TextPosition = 0 '标题靠左

                                .Incremental = True '允许重复选择文件或连续拍照

                                .ScaleWidth = 500 '自动压缩图片宽度为400个像素,高度等比例压缩                 

                                .Accept = "image/*" '允许使用相册和相机

                            End With

                        End With

 With wb.AddDialog("form2", "货品详情图片弹窗", "" & wb2.BuildHtml("ipg2") & "", "" & lin & "<div id='lin01' style='margin:0.1em'></div>")

            

            .AddButton("btnOK1", "×").Attribute = "onclick = hide"

        End With

                    wb.InsertHTML("", "'<div id=""up1_gallery"" name=""up1_gallery"" class=""weui-gallery"" style=""display:none"" data-autohide="""" data-images=""""><span class=""weui-gallery__img delete"" style=""background-image: url();""></span><div class=""weui-gallery__opr""><a class=""weui-gallery__del"" href=""javascript:; "" data-uid=""up1""><i class=""weui_icon_delete weui-icon_gallery-delete""></i></a></div></div>")