Foxtable(狐表)用户栏目专家坐堂 → 怎么关闭拍照功能?


  共有2716人关注过本帖树形打印复制链接

主题:怎么关闭拍照功能?

帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1084 威望:0 精华:0 注册:2021/8/6 21:17:00
怎么关闭拍照功能?  发帖心情 Post By:2021/8/8 18:51:00 [只看该作者]

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.AddInputGroup("form1","ipg22",
"
文件上传") '带图片浏览的文件上传
            With .AddUploader("up2",
"
图片",True) 'True表示允许一次上传多个文件
                .AddImage("./images/001.jpg")
                .AddImage("./images/002.jpg")
                .AddImage("./images/003.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1",
"
确定", "submit")
        End With
       
e.WriteString(wb.Build) '生成网页
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1084 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2021/8/8 18:53:00 [只看该作者]

我只想上传图库图片,不想拍照上传

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107702 积分:547831 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/8 22:18:00 [只看该作者]

百度搜了一遍,貌似没有办法。其实没有什么意义,如果先拍照到图库,再选择图库图片,不也一样,多一步而已

 回到顶部
帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1084 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2021/8/9 1:48:00 [只看该作者]

嗯,好的,只是直接拍照的文件名是img,如果多人拍照上传的话,就会覆盖前面一个的图片

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107702 积分:547831 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/9 8:36:00 [只看该作者]

接收文件的时候改名呗:http://www.foxtable.com/mobilehelp/topics/0060.htm
比如

For Each key As String In e.Files.Keys
    If key = "up1" Then
        Dim lst As List(of String) = dr.Lines("照片")
        For Each fln As String In e.Files(key)
            Dim n As tring = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
            e.SaveFile(key, fln, ProjectPath & "Attachments\" & n))
            lst.Add(n)
        Next
        dr.Lines("照片") = lst
    End If
Next

 回到顶部