Question

vb 图标拖动

Private Sub Form_Load()
Picture1.DragIcon = Picture1.Picture
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 1
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 2
End Sub
运行后调试“Picture1.DragIcon = Picture1.Picture”出错 不知道为什么？

Answer 1

Picture1.DragIcon只能放置ICON文件，出现错误的原因可能是Picture1.Picture并不是一个ICON格式的图像

Answer 2

支持楼上