拖动文件时拖动图标是如何实现的
编号：QA001785
建立日期: 1999年9月28日 最后修改日期：1999年9月28日
所属类别：
yangning:
操作系统：winnt
工具：VB
问题：在资源管理器中拖动文件时拖动图标是如何实现的?
回答:
在资源管理器中的图标拖动和VB中差不多，但要复杂一些，这个程序仅供参考。
1、新建一工程。在窗口加入PICTURE1和PICTURE2。PICTURE1大些，PICTURE2小些。
2、将文本文件中的程序拷贝到代码窗口中。更改FORM_LOAD中的WINDOWS路径及图标名称。
3、执行程序。拖动PICTURE1到PICTURE2中。
相信会有帮助。
Private Sub Form_Load()
Picture1.Picture = LoadPicture("c:\win98\forest.bmp")
Picture1.DragIcon = LoadPicture("c:\win98\winupd.ico")
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 0
End Sub
Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is Picture Then
Picture2.Picture = Source.Picture
End If
End Sub
此问题由John回答。
| |
|
|
| |
|
|
