锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net拖拽文件 vba拖拽获取文件夹路径

IT技术文件

vb.net 如何拖动文件打开exe文件可以直接拖吧vb.net拖拽文件，拖动文件到exe文件上vb.net拖拽文件 ， exe文件就会自动打开 。command接收拖动vb.net拖拽文件的文件路径 。
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 是开启拖放支持vb.net拖拽文件，可以在窗体设计器里面开启它vb.net拖拽文件 ， 也可以代码开启 。
vb.net textbox1选中的文本，拖放到textbox2？很久没有上这里了，今天看到了这个问题 ， 尝试做了一个；
本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放
1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2 。注意：把TextBox2控件的AllowDrop属性设置成True ， 这点不要遗漏 。
2、完整的代码如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下 。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动（将TextBox1的文本内容作为拖放内容） 。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式 。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标（表示是拖放行为） 。
e.Effect = DragDropEffects.Copy
【vb.net拖拽文件 vba拖拽获取文件夹路径】Else
'显示不放置光标（表示不是拖放行为） 。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本（将拖放内容作为TextBox2的文本内容） 。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
求助vb.net拖拽文件到窗体获取文件信息这是一个简单的示例，你只需要新建一个项目，并在项目上放置一个文本框：TEXTBOX1 ， 然后，将以下代码复制到代码区：
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_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
Dim filepaht As String() = e.Data.GetData(DataFormats.FileDrop)
For Each File As String In filepaht
textBox1.Text = File
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
如此，在文本框里将会出现被拖曳文件的路径信息 。
关于vb.net拖拽文件和vba拖拽获取文件夹路径的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：电脑用什么测试cpu，电脑用什么测试网速最准

    下一篇：做菜直播录屏怎么录，直播如何录