Re: [VB6 ] 請問如何做出一個拖曳區 讀檔案路徑
把我之前寫過的 DragOver 的程式碼秀出來，DragDrop 相同道理。
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As _
Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
On Error GoTo errProc
'拖曳開始
If Not Data.GetFormat(15) Then GoTo CancelProc '限定只能拖曳檔案
Dim FileName As String: FileName = Data.Files(1) '取得檔案名稱
If Not FileName Like "*.lst" Then GoTo CancelProc '限定檔案格式
Effect = 1 'VbDropEffectCopy
EndProc:
Debug.Print FileName
Exit Sub
CancelProc: 'VbDropEffectNone
Effect = 0: GoTo EndProc
errProc:
MsgBox Err.Description
Resume EndProc
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
