如何在目标控件中（listview或treeview）获知拖动多个listItem的text？

Question

在OLEDragDrop事件中data.getdata(vbcftext)好像只能获取一个listitem的text，其他被选中的listitem如何获取？谢谢帮忙。

Answer 1

好久没做这类问题了
以前是直接把一个字段拉进桌面之类如果是数据库则简单很多，找到所取资料的关键字，其他数据在从数据库中间检索出来。
如果不是数据库，则把所拉的内容的其他SubItems用变量记录就是了

Answer 2

一次拉进多个，其他的ListItem的Text怎么获取？如果是把外面的多个文件拉进来可以用Data.Files(i)来获取（vbCFFile类型），但如果是vbcftext类型的怎么获取其他的？

Answer 3

可以简单利用ListItem只能是单行文本：Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Dim tS As String
    
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            S = S & List1.List(i) & vbCrLf
        End If
    Next
    
    Data.Clear
    Data.SetData S, vbCFText
End Sub
OLEDragDrop时再Split就行了～