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

先把窗口中的ListView控件绑定数据表的[图片]列；当鼠标向ListView控件拖拽图片文件时，获取图片路径及名称；

数据表增加一行，[图片]列取文件名，再自动复制一份图片文件到项目Attachments下。最后生成ListView，这种想法是否可行？

以前有个向面板拖拽的例子，能否修改为向ListView控件拖拽？

请老师指教，谢谢！

'全局代码

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

msgbox(path)

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

'--------------------------------

窗口AfterLoad

Dim t As windows.Forms.panel = e.Form.Controls("panel1").basecontrol

t.AllowDrop = True

AddHandler t.DragDrop, AddressOf picture_DragDrop

AddHandler t.DragEnter, AddressOf picture_DragEnter

Dim t As windows.Forms.panel = e.Form.Controls("panel1").basecontrol

改成

Dim t As windows.Forms.listview = e.Form.Controls("listview1").basecontrol

然后，在DragDrop事件里面写代码处理你的逻辑即可。

找不到DragDrop事件；还存在几个问题：

1、一部分代码写到全局代码里了，请老师看看是否合适？

2、生成listview的代码写在了datacolchanged事件和窗口的AfterLoad事件里；

已经设置了图片可移动和接收移动的代码，但是移动不了；

3、“删除图片”按钮怎样同时删除数据表中的行，与数据表同步的代码也没运行？

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:listview拖放测试.rar

1、你测试拖动后有什么问题？没有增加行等操作？

2、拖动图片建立，不触发代码？

主题：[求助]ListView支持拖拽显示图片吗