请教高手,在屏幕上托拽文件并在form中的label里显示出这个文件的地址,应该调用哪一个api呢?
请教高手,在屏幕上托拽文件并在form中的label里显示出这个文件的地址,应该调用哪一个api呢?
就像记事本一样,有txt文件托拽进去就可以打开。
[解决办法]
在vb中建立一个窗口,然后把以下代码复制进去
Private Sub Form_Load()
Form1.OLEDropMode = 1 '接收OLE事件
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, _
Shift As Integer, x As Single, y As Single)
On Error Resume Next
Dim Nx
If Data.GetFormat(vbCFFiles) Then
For Each Nx In Data.Files
If (GetAttr(Nx) And vbDirectory) = vbDirectory Then
MsgBox "拖放目錄: " & Nx
Else
MsgBox "拖放文件: " & Nx
End If
Next
ElseIf Data.GetFormat(vbCFText) Then '拖放的是网頁地址
MsgBox "拖放文本 " & Data.GetData(vbCFText)
ElseIf Data.GetFormat(vbCFDIB) Then '拖放的是网頁圖象
MsgBox "拖放圖片 "
End If
End Sub
Private Sub Form_DblClick()
End
End Sub