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


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

主题:求助:图片分别拖拽问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/30 11:32:00 [显示全部帖子]

哦,改成

 

msgbox(sender.name)

If sender.name ="pictureBox1" Then


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/30 22:30:00 [显示全部帖子]

 

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

 

 


 回到顶部