求助：图片分别拖拽问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：图片分别拖拽问题

共有3664人关注过本帖树形打印复制链接主题：求助：图片分别拖拽问题

丰田

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：103 积分：1173 威望：0 精华：0 注册：2010/6/14 15:09:00

求助：图片分别拖拽问题 发帖心情

Post By：2019/1/29 11:53:00 [只看该作者]

两个图片框

如果图片拖拽到车辆照片图片框里就把此图片命名为""号牌号码"号牌.BMP"并保存在ATTACHMENTS目录下

并将""号牌号码"号码".BMP"保存在车辆照片列的当前行里

如果图片拖拽到驾驶员照片图片框里就把此图片命名为""号牌号码"驾驶员.BMP"并保存在ATTACHMENTS目录下

并将""号牌号码"驾驶员".BMP"保存在驾驶员照片列的当前行里

代码应该怎样更改

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

丰田

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：103 积分：1173 威望：0 精华：0 注册：2010/6/14 15:09:00

Post By：2019/1/29 12:01:00 [只看该作者]

把AfterLoad事件改放到PictureBox的MouseEnter里是否妥当

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/29 12:26:00 [只看该作者]

在全局代码，判断触发的是那个picutruebox，判断名称，做不同操作，如

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)
msgbox(sender.name)
For Each path As object In paths
    Dim t As Table = Tables("表A")
    FileSys.CopyFile(path, ProjectPath & "ATTACHMENTS/" & t.current("号牌号码") & ".bmp", True)
    t.current("车辆照片") = t.current("号牌号码") & ".bmp"
    sender.image = Image.FromFile(ProjectPath & "ATTACHMENTS/" & t.current("号牌号码") & ".bmp")
Next
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub

[此贴子已经被作者于2019/1/30 11:32:12编辑过]