将listview中显示出来的记录拖到treeview中去

原创 2001年08月19日 09:17:00
Option Explicit
Private Sub Form_Load()
TreeView1.Nodes.Add , , "aa", "aa"
TreeView1.Nodes.Add , , "bb", "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.LabelEdit = lvwManual
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  ListView1.DragIcon = ListView1.SelectedItem.CreateDragImage
  ListView1.Drag vbBeginDrag
End If
End Sub
Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
If Not TreeView1.DropHighlight Is Nothing Then
  TreeView1.Nodes.Add TreeView1.DropHighlight.Key, tvwChild, GetNextKey() & ListView1.SelectedItem.Text, ListView1.SelectedItem.Text
  TreeView1.DropHighlight.Expanded = True
End If
End Sub
Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, State As Integer)
Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
End Sub
Private Function GetNextKey() As String
Dim sNewKey As String
Dim iHold As Integer
Dim i As Integer
On Error GoTo myerr
iHold = Val(TreeView1.Nodes(1).Key)
For i = 1 To TreeView1.Nodes.Count
    If Val(TreeView1.Nodes(i).Key) > iHold Then
      iHold = Val(TreeView1.Nodes(i).Key)
    End If
Next
iHold = iHold + 1
sNewKey = CStr(iHold) & "_"
GetNextKey = sNewKey
Exit Function
myerr:
GetNextKey = "1_"
End Function

将listview中显示出来的记录拖到treeview中去

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:31
  • 235

c#中TreeView和ListView的一些用法

TreeView   TreeNode的Tag可以用来存储一个对象的引用(类似vc里面的SetData方法),可以用来存储相对于这个node的自己所需要的数据 添加首個節點使用TreeView....
  • rekrad
  • rekrad
  • 2013年01月18日 17:06
  • 3812

C# 支持拖放的TreeView控件,文件拖拽大全。

c# winform TreeView控件中实现拖拽的功能 必须处理好三种事件:"ItemDrag"(开始)、"DragEnter"(进入)、"DragDrop"(处理放下)。其中只有第...
  • wlanye
  • wlanye
  • 2012年05月07日 14:05
  • 3286

关于TreeView和listView的一些小心得

这两天做一些小东西,用到了TreeView和listVIiew,在用TreeView时,遇到了一个小问题,就是删除节点时,怎么清除所有的子节点,想了半天没想出办法,幸得同事指点一二,马上解决,在此简单...
  • lqss20
  • lqss20
  • 2008年03月28日 13:28
  • 756

winform 两个TreeView间拖拽节点

http://www.cnblogs.com/rogation/p/3362920.html /// /// 正在拖拽的节点 /// ...
  • u013908405
  • u013908405
  • 2017年02月09日 14:38
  • 539

c# winform TreeView与ListView的项互相拖动的应用

很久没写教程了,停顿了有两年之久了。今天我们来讨论讨论 winform 中TreeView与ListView,通观两者很相似,只是一个是树形结构,一个是列表结构。 今天自己创建的群里(21758...
  • everlasting51
  • everlasting51
  • 2014年03月19日 18:53
  • 982

[C# 控件学习一]TreeView ListView

          突然想用C#做一个界面,但是从来没用C#做过界面,所以先看看控件的使用,给做一个工具打基础,呵。ListView:    1、listview添加一个item:         L...
  • love00wanggang
  • love00wanggang
  • 2009年08月08日 23:20
  • 902

listview 快速拖动

ListView设置如下: 快速滑动时的现实文字:over
  • C_see
  • C_see
  • 2011年01月07日 16:19
  • 1427

Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏

Delphi中大家在使用 ListView和TreeView时,一般都会使用到Item的Data属性来保存大家自己的内部数据,这个Data的声明如下:property Data: Pointer;大家...
  • gogogo
  • gogogo
  • 2006年10月09日 23:54
  • 4458

DELPHI VCL组件 TTreeList, Listview和Treeview相结合的多列树控件

http://blog.csdn.net/qinmaofan/archive/2007/08/24/1757904.aspx 转载请勿清除广告。 没有合适的局域网管理软件吗?你的网管工具够灵活够高效吗...
  • chla
  • chla
  • 2010年09月13日 16:58
  • 1465
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将listview中显示出来的记录拖到treeview中去
举报原因:
原因补充:

(最多只允许输入30个字)