大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net拖放路径的简单介绍

vb,net怎么实现拖拽文件到文本框和粘贴复制?

第一步,点击VS工具

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名虚拟主机、营销软件、网站建设、大竹网站维护、网站推广。

请点击输入图片描述

第二步,打开后,新建一个Windows窗体应用程序

请点击输入图片描述

第三步,新建完毕后,如图所示

请点击输入图片描述

第四步,拖动文本框与按钮,如图示

请点击输入图片描述

第五步,将剪贴板复制与粘贴代码输入,如图示

请点击输入图片描述

第六步,运行程序

请点击输入图片描述

7

第七步,点击按钮,成功从剪贴板中复制与粘贴操作

请点击输入图片描述

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 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

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拖放路径的简单介绍
文章分享:http://dzwzjz.com/article/hheoos.html
在线咨询
服务热线
服务热线:028-86922220
TOP