作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问如何做出一个拖曳区 读档案路径
时间Fri May 12 06:47:51 2006
把我之前写过的 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