拖动文件时拖动图标是如何实现的.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些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 
<END>