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命令，在彈出的生成工程對話框中按確定按鈕，生成了一個心形圖標，非常美觀。想要生成自己喜歡的圖標都可以參照以上方法。