Foxtable(狐表)用户栏目专家坐堂 → 图片拖放如何放到指定文件夹内?


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

主题:图片拖放如何放到指定文件夹内?

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
图片拖放如何放到指定文件夹内?  发帖心情 Post By:2018/4/16 15:23:00 [只看该作者]

老师你好:
图片拖放如何放到指定文件夹内?


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件拖拽.table



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 15:30:00 [只看该作者]

具体一点你的问题。

 

如果要保存,你就去修改【全局代码】

 

Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop)
For Each path As object In paths
    FileSys.CopyFile(path, "c:\" & FileSys.GetName(path), True)
Next
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub


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


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/4/16 16:24:00 [只看该作者]

有点甜老师:
我的需求是图片拖放后,软件自动完成以下二个需求:
1、图片增加到图片列中,并根据“施工日期”和“施工内容”修改图片名称,如“20180402-打桩施工”
2、图片自动保存到对应的文件夹下面。如   Dim pth As String = ProjectPath & "Attachments\用户工程\" & dr("工程名称") & "\" & dr("工程部位")



图片点击可在新窗口打开查看此主题相关图片如下:大厦.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:zk文件拖拽.zip


[此贴子已经被作者于2018/4/16 16:25:30编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 16:35:00 [只看该作者]

Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop)

Dim dr As Row = Tables("工程图片").Current

Dim pth As String = ProjectPath & "Attachments\用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\"

Dim ls = dr.DataRow.Lines("图片列")
For Each path As object In paths
    FileSys.CopyFile(path, pth & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & FileSys.GetName(path), True)
    ls.Add("用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\" & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容")  & FileSys.GetName(path))
Next

dr.DataRow.Lines("图片列") = ls
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub


Public Sub picture_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
    e.Effect = Windows.Forms.DragDropEffects.Link
    sender.Cursor = System.Windows.Forms.Cursors.Arrow
Else
    e.Effect = Windows.Forms.DragDropEffects.None
End If
End Sub

[此贴子已经被作者于2018/4/16 16:38:45编辑过]

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


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/4/16 17:20:00 [只看该作者]

有点蓝老师:
1、有没有办法从微信或QQ聊天记录中拖放进来
2、原图片的名称我不需要,改成-01,-02,-03.....

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 17:25:00 [只看该作者]

1、不可以;

 

2、

 

For Each path As object In paths
    FileSys.CopyFile(path, pth & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & ls.count & right(path,4), True)
    ls.Add("用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\" & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & ls.count & right(path,4))
Next


 回到顶部