在WeUI实例的增强Uploader节压缩和旋转賦值问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

针对本页地址：http://www.foxtable.com/mobilehelp/scr/0257.htm

-----原句如下---

  With wb.AddInputGroup("form1","ipg1","文件上传")
            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
                 .Rotate = 1 '顺时钟旋转90°
            End With
        End With

-------请教：----

在同一界面，如何给这个“压缩参数”和“旋转参数”动态赋值？

以达到用户能相对灵活变化照片的目的。

比如：给个.addselect("verSZ","旋转度数","1|2|3")

.addinput("verKD","宽度参数","number").value=400

.addinput("verGD","高度参数","number").value=0 '默认为0，是随着宽度自动变化

具体不懂怎么放语句！

先谢谢了！

复习到本页地址：http://www.foxtable.com/mobilehelp/scr/0094.htm

以下在看图模式下的部份语句：

If e.Get Values.ContainsKey("key") And Vars("operation_mode") = "浏览记录" Then

Dim dri As DataRow = Data Tables("item99").SQLFind("[_Identify]=" & e.getValues("key"))

If dri IsNot Nothing Then

With wb.AddInput Group("form1","ipg2")

With .Add Uploader("imgid","",True)

'.attribe="on change='table_img_del()'" '我的方法不对

.AllowDelete = True '允许删除

.AllowAdd=False '关闭上传功能

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

Dim path As String = ".\photo\"

F or Each file As String In dri.Lines("img01") '这是查看当前行所有图片的方法

.AddImage("./photo/" & file)

End With

End If

wb.AddToast("","tst1", "正在删除!",1)

wb.AddToast("","tst2", "删除成功!",0)

wb.AddToast("","tst3", "删除失败!",0).Icon= "warn"

End If

请教：

当用户在查看图片时，点了删除图片。

我希望同时调用这个table_img_del() 去删除后台文件夹中的图片文件和SQL栏位中的图片文件名称

这个函数应该如何调用，命令应该如何放置，我不懂，请专家指点。

先谢谢你！

我就是希望知道这（方法二) 的意思。

好的，理解了！

谢谢你！

[此贴子已经被作者于2017/11/8 11:00:58编辑过]

主题：在WeUI实例的增强Uploader节压缩和旋转賦值问题