[浏览完整版]
标题：这样选择图片没反应
1楼
qazlinle6 发表于：2024/9/25 10:11:00 Dim wb2 As New weui
With wb2.AddInputGroup("", "ipg1", "筛选列表")
.AddInput("名称", "名称", "text")
ploader("up1", "图片", True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.TextPosition = 0 '标题靠左
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 500 '自动压缩图片宽度为400个像素,高度等比例压缩
.Accept = "image/*" '允许使用相册和相机
End With
End With
With wb2.AddButtonGroup("", "btg1", True)
.Add("btn1", "查询", "button").Attribute = ""
End With
With wb.AddDialog("form1", "dlg1", "筛选", wb2.BuildHtml("ipg1") & wb2.BuildHtml("btg1"))
.AddButton("btnOK1", "×").Attribute = "onclick = hide"
'.Kind = 1
End With
这样选择图片没反应
2楼
有点蓝 发表于：2024/9/25 10:21:00请上传可以测试的例子说明
3楼
qazlinle6 发表于：2024/9/25 10:37:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
4楼
有点蓝 发表于：2024/9/25 10:53:00没看到有页面代码，怎么测试？打开哪个页面？
5楼
qazlinle6 发表于：2024/9/25 10:57:00Httprequest
这里面就一个页面代码啊
6楼
有点蓝 发表于：2024/9/25 11:01:00隔了n个空行，我以为后面没有东西了
7楼
有点蓝 发表于：2024/9/25 11:42:00通过对比正常的Uploader用法，使用BuildHtml生成的上传控件，会缺少下面红框的内容，自行使用wb.InsertHTML方法补上
此主题相关图片如下：1.png
wb.InsertHTML("", "<div id=""up128_gallery"" name=""up128_gallery"" class=""weui-gallery"" style=""display:none"" data-autohide="""" data-images=""""><span class=""weui-gallery__img"" style=""background-image: url();""></span></div>")
此主题相关图片如下：1.png8楼
qazlinle6 发表于：2024/9/25 12:16:009楼
有点蓝 发表于：2024/9/25 13:29:00认真看7楼我给的代码！！！！认真看图片里蓝色画线位置！！！
10楼
qazlinle6 发表于：2024/9/25 13:47:00是up1啊