首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

,在屏幕上托拽文件并在form中的label里显示出这个文件的地址,应该调用哪一个api呢

2012-01-23 
请教高手,在屏幕上托拽文件并在form中的label里显示出这个文件的地址,应该调用哪一个api呢?请教高手,在屏

请教高手,在屏幕上托拽文件并在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


热点排行