VS 2008 Re: Pick file with mouseclick on desktop and display name in textbox or MsgBox - HELP

Ok, I wonder if someone can look at this code, I have used the drag and drop and like I've said I'm still new at this.
Maybe with this code you will see what I'm trying to do. Need all the help I can get!!!!


Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form

Private Const GWL_EXSTYLE As Integer = (-20)
Private Const WS_EX_TRANSPARENT As Integer = &H20

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cbuttons As Integer, ByVal dwextrainfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.AllowDrop = True

End Sub

Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop

Dim files() As String = e.Data.GetData(DataFormats.FileDrop)

Dim file_name As String = Path.GetFileNameWithoutExtension(files(0))
Dim ext_name As String = Path.GetExtension(files(0))
Dim dir_name As String = Path.GetDirectoryName(files(0))

Dim SAPI = CreateObject("sapi.spvoice")

For Each path In files

TextBox1.Text = file_name
TextBox2.Text = ext_name
TextBox3.Text = dir_name

SAPI.speak(TextBox1.Text)

Next

End Sub

Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If

End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

SetWindowLong(Me.Handle, GWL_EXSTYLE, GetWindowLong(Me.Handle, GWL_EXSTYLE) Or WS_EX_TRANSPARENT)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X + 5, Windows.Forms.Cursor.Position.Y)
SetWindowLong(Me.Handle, GWL_EXSTYLE, GetWindowLong(Me.Handle, GWL_EXSTYLE) And Not WS_EX_TRANSPARENT)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Left = (Cursor.Position.X - Me.Width) + 150
Me.Top = (Cursor.Position.Y - Me.Height) + 150

End Sub
End Class