敬业的IT人 >> 编程开发 >> .Net技术 >> 托拽Explore中的文件到VB.net的窗口 40Star（原作）

托拽Explore中的文件到VB.net的窗口 40Star（原作）

敬业的IT人互联网佚名 2008-5-23 17:20:38

　　托拽Explore中的文件到VB.net的窗口    40Star（原作）

关键字     WM_DROPFILES 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能用的图像文件噢！

最新文章: 我的推荐：在VB.NET中寻找App[05-23]; 一个很有意思的爱情软件.是用VB.net开发的[05-23]; 用vb.net开发api viewer(5)[05-23]; 用vb.net开发api viewer(4)[05-23]; 用vb.net开发api viewer(2)[05-23]; 用VB.NET获得系统进程列表[05-23]

相关文章: 我的推荐：在VB.NET中寻找App[05-23]; 一个很有意思的爱情软件.是用VB.net开发的[05-23]; 用vb.net开发api viewer(5)[05-23]; 用vb.net开发api viewer(4)[05-23]; 用vb.net开发api viewer(2)[05-23]; 用VB.NET获得系统进程列表[05-23]