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

如图，希望ListView支持拖拽放入图片，并支持ListView内拖拽移动位置。

但是在窗口AfterLoad中1和2代码并存时，第2段代码就不起作用了；注销代码1，代码2运行没问题，请老师帮助看一下，是哪里的问题？

谢谢！

'1、拖拽图片至ListView

Dim t1 As windows.Forms.listview = e.Form.Controls("ListView1").basecontrol

t1.AllowDrop = True

't.HoverSelection = True '鼠标移动选中行

AddHandler t1.DragDrop, AddressOf picture_DragDrop

AddHandler t1.DragEnter, AddressOf picture_DragEnter

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

'2、ListView拖拽移动

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.AllowDrag = True '允许拖动行

lvw.AllowDrop = True '允许接收拖动过来的行

lvw.StopRedraw() '暂停绘制

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '显示模式为大图标

lvw.Images.LargeSize = New Size(70,99) '定义大图标尺寸

For Each dr As DataRow In DataTables("图片列表").DataRows '从数据表中提取数据

Dim Key As String = dr("文件名") '获取此员工的照片文件

lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.Text = dr("文件名") '设置标题

vr.ImageKey = Key '设置图片键值

lvw.ResumeRedraw() '恢复绘制

此主题相关图片如下：image 00.jpg

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

主题：[求助]ListView 拖拽代码冲突