?? 拖動文件時拖動圖標是如何實現的.txt
字號:
在 資 源 管 理 器 中 的 圖 標 拖 動 和 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -