这几天,忙的用VB 2005开发拖动文件式传输工具,上图,代码如下
form1部分代码:
Imports System.IO
Public Class Form1
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
If ListBox1.SelectedIndex >= 0 Then
Process.Start(Convert.ToString(ListBox1.SelectedItem))
End If
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
Dim files() As String
files = e.Data.GetData(DataFormats.FileDrop)
Dim file As String
For Each file In files
ListBox1.Items.Add(file)
Next
End Sub
Private Sub