以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么关闭拍照功能？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170822)
--  作者：飘过的巨蟹座
--  发布时间：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
--  作者：飘过的巨蟹座
--  发布时间：2021/8/8 18:53:00
--  
我只想上传图库图片，不想拍照上传
--  作者：有点蓝
--  发布时间：2021/8/8 22:18:00
--  
百度搜了一遍，貌似没有办法。其实没有什么意义，如果先拍照到图库，再选择图库图片，不也一样，多一步而已
--  作者：飘过的巨蟹座
--  发布时间：2021/8/9 1:48:00
--  
嗯，好的，只是直接拍照的文件名是img，如果多人拍照上传的话，就会覆盖前面一个的图片
--  作者：有点蓝
--  发布时间：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