托拽Explore中的文件到VB.net的窗口

要让VB.net相应外部托拽来的文件，需处理WM_DROPFILES消息。

Private Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Int32, ByVal fAccept As Int32)

Private Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Int32)

Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Int32, ByVal UINT As Int32, ByVal lpStr As

String, ByVal ch As Int32) As Int32

Private Const WM_DROPFILES = &H233

Private Const MAX_LENGTH = 255

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_DROPFILES Then

DragFiles(m.WParam.ToInt32)

Exit Sub

End If

MyBase.WndProc(m)

End Sub

Private Sub DragFiles(ByVal hDrop As Int32)

Dim iReturn As Int32

Dim sFile As String

sFile = Space(MAX_LENGTH)

iReturn = DragQueryFile(hDrop, 0, sFile, MAX_LENGTH)

If iReturn Then

TextBox3.Text = sFile

PictureBox1.Image = Image.FromFile(Trim(TextBox3.Text))

DragFinish(hDrop)

End If

End Sub

我的代码只是适用于.Net的PictureBox能用的图像文件噢！