7,763
社区成员
发帖
与我相关
我的任务
分享如何实现把listview1中的内容通过托拽,把它们全部托到listview2中!
如何实现把listview1中的内容通过托拽,把它们全部托到listview2中!
...全文
请发表友善的回复…
发表回复
moleboy 2003-02-11
- 打赏
- 举报
up
山顶洞人-平 2003-02-10
- 打赏
- 举报
窗体上放置两个ListBox
Private Sub Form_Load()
List1.DragMode = 1
List2.DragMode = 1
Dim i As Integer
For i = 1 To 5
List1.AddItem Str(i)
Next i
End Sub
Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
Dim i As Integer
If TypeOf Source Is ListBox Then
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End If
End Sub
Private Sub Form_Load()
List1.DragMode = 1
List2.DragMode = 1
Dim i As Integer
For i = 1 To 5
List1.AddItem Str(i)
Next i
End Sub
Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
Dim i As Integer
If TypeOf Source Is ListBox Then
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End If
End Sub
moleboy 2003-02-09
- 打赏
- 举报
up
moleboy 2003-02-09
- 打赏
- 举报
给个代码!
山顶洞人-平 2003-02-09
- 打赏
- 举报
用DragDrop消息
