以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片拖放如何放到指定文件夹内？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117631)
--  作者：ZJZK2018
--  发布时间：2018/4/16 15:23:00
--  图片拖放如何放到指定文件夹内？
老师你好：
图片拖放如何放到指定文件夹内？


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文件拖拽.table
--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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
--  发布时间：2018/4/16 17:20:00
--  
有点蓝老师：
1、有没有办法从微信或QQ聊天记录中拖放进来
2、原图片的名称我不需要，改成-01，-02，-03.....
--  作者：有点甜
--  发布时间：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