vbnet文件拖放

A. vb，net怎么实现拖拽文件到文本框和粘贴复制

• 第一步，点击VS工具

  

B. VB.NET拖放文本文件到TextBox获得其路径。

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.AllowDrop = True
End Sub

Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
Me.TextBox1.Text = files(files.Length - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub

TextBox1.AllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。

C. VB 怎样拖放某个文件到程序图标后用该程序打开

方法复/步骤

首先根据自己制的需要和喜好，去素材网站下载ico图标，当然这些图标VB6.0不一定能够直接用。

开始--打开ArtIcons Pro软件。

打开的ArtIcons Pro软件界面如图所示：

“文件”--“打开”，弹出打开对话框，选择所需修改的图标，单击“打开”按钮打开图标，在软件中显示出来。

在软件右侧，单击鼠标右键，选择“新图像”命令。

在打开的“新图像格式对话框”中按照VB6.0所需的ico图标格式进行设置：
大小选择48X48，颜色选择256色，其它默认，单击“确定按钮进行确认。”

此时按照刚刚制定的格式，生成了一个新图像：

"文件"--“导出”--“当前图像”，命名后保存。生成一个新图标如图所示：

随便打开一个VB6.0工程，将刚刚生成的图标加入到Form1的ico属性中：

在“文件”菜单下选择生成exe命令，在弹出的生成工程对话框中按确定按钮，生成了一个心形图标，非常美观。想要生成自己喜欢的图标都可以参照以上方法。