完美解绑dota2:在VB中,如何实现把文件拖到VB程序中,程序能自动打开

来源:百度文库 编辑:高考问答 时间:2024/05/06 02:36:04
就如同是rm文件拖到暴风影音里,暴风影音就能自动打开此文件?

可以通过OLEDragDrop事件来实现。
在VB里建立一个 TextBox 命名为 txtFile,然后将属性OLEDropMode 改为1 'Manual
然后你试着拖一个文件到这个文本框上,看一下结果
Private Sub txtFile_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strTemp As String

If Data.Files.Count > 0 Then
'// 取得当前拖过来的文件名
strTemp = Data.Files(1)
Msgbox strTemp
End If
End Sub