Re: [VB6 ] 請問如何做出一個拖曳區 讀檔案路徑

[fumizuki (矇面加菲獅)]

把我之前寫過的 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