谁能给我一个从PicBox里把图标拖曳到ListView里的例子？

[MonkeyLin]

[uguess]

Private Sub ListView1_DragDrop(Source As Control, x As Single, y As Single)

If Source = Picture1 Then
ListView1.Picture = Picture1.Picture
End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Picture1.Drag vbBeginDrag

End Sub

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-22
'Description:要试用本例请在窗体中填加一个PictureBox和一个ListView再有一个ImageList
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Form_Load()
'请自己装载所需要的图标
Picture1.DragMode = vbManual
Picture1.DragIcon = LoadPicture("C:\WINDOWS\winupd.ico")
Picture1.Picture = LoadPicture("C:\WINDOWS\winupd.ico")

ImageList1.ListImages.Add , , LoadPicture("C:\WINDOWS\winupd.ico")
ListView1.Icons = ImageList1
End Sub


Private Sub ListView1_DragDrop(Source As Control, x As Single, y As Single)
Select Case UCase(Source.Name)
Case "PICTURE1"
ImageList1.ListImages.Add , , Picture1.Picture
ListView1.ListItems.Add , , Time, ImageList1.ListImages.Count
Case Else
End Select
End Sub


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Picture1.Drag
End If
End Sub

[MonkeyLin]

Good! Done!
Thank you!