以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在WeUI实例的增强Uploader节压缩和旋转賦值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108403)
--  作者：lanbor
--  发布时间：2017/10/22 9:27:00
--  在WeUI实例的增强Uploader节压缩和旋转賦值问题
针对本页地址：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，是随着宽度自动变化
具体不懂怎么放语句！
先谢谢了！
--  作者：有点甜
--  发布时间：2017/10/22 18:29:00
--  

 weui没有提供对应变换的方法。你无法在uploader里面直接修改。

 

 提交后，你可以根据你数据的参数，在后台httprequest事件对图片进行修改。
--  作者：lanbor
--  发布时间：2017/11/8 10:34:00
--  再请教Uploader以调用函数方式来删除后台文件方法
复习到本页地址：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)
                    Next
                End With
            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 10:43:00
--  

方法一：看看

 

http://www.foxtable.com/mobilehelp/scr/0094.htm

 
--  作者：有点甜
--  发布时间：2017/11/8 10:47:00
--  

方法二：修改 web/weui/weui.me.js 文件的代码。

 


function galleryDelete(){} 函数的最后，加入自己的函数，如

 

function galleryDelete(){

 

    alert(123);

    我自己的函数abc();

}

 

 
--  作者：lanbor
--  发布时间：2017/11/8 10:58:00
--  谢谢你，我就是想知道这个意思。
我就是希望知道这（方法二) 的意思。
好的，理解了！
谢谢你！
[此贴子已经被作者于2017/11/8 11:00:58编辑过]