vb.net拖放 vbnet button

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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拖放，也可以代码开启。

相关问答

Q1: vb.net入门之分组控件：GroupBox控件

vb.net拖放我们对控件进行分组vb.net拖放的原因不外乎三个

为了获得清晰的用户界面而将相关的窗体元素进行可视化分组

编程分组如对单选按钮进行分组

为了在设计时将多个控件作为一个单元来移动

在中有GroupBox Panel TabControl这三个控件可以实现上面所提到的三个分组目的所以vb.net拖放我们称它们为分组控件

这三个控件在功用上十分的相似特别是GroupBox和Panel控件只存在一点细微的差别而已（这个差别是只有GroupBox控件可以显示标题而只有Panel控件可以有滚动条）这里我们就先来了解GroupBox控件的使用

GroupBox（控件组）控件一般是作为其vb.net拖放他控件的组的容器的形式存在的这样有利于用户识别使界面变得更加友好（GroupBox控件相当于Visual Basic以前版本的Frame控件）使用控件组控件可以将一个窗体中的各种功能进一步进行分类例如将各种选项按钮控件分隔开

当移动单个GroupBox控件时它所包含的所有控件也将一起移动

在大多数情况下对控件组控件没有实际的操作我们用它对控件进行分组通常没有必要响应它的事件不过它的Name Text和Font等属性可能会经常被修改以适应应用程序在不同阶段的要求

GroupBox控件在工具箱中的图标如图所示

一 GroupBox控件的常用属性

Anchor和Dock 这两个属性是所有有用户界面的控件都有的定位属性这里就不啰嗦了

Name属性标识控件的对象名称

Text属性显示在GroupBox控件右上方的标题文字可以用来标识该控件组的描述

Font和ForeColor属性用于改变GroupBox控件的文字大小以及文字的颜色需要注意的时候它不单改变GroupBox控件的Text属性的文字外观同时也改变其内部控件的显示的Text属性的文字外观

二创建一组控件

在窗体上放置GroupBox控件从工具箱中拖放一个GroupBox控件到窗体上的合适位置调整大小

在属性窗口中改变GroupBox控件的Text属性作为它的标题

在GroupBox控件内拖放其它需要的控件例如RadioButton控件

设置示例如图一所示

图一用控件组控件对单选按钮分组

我们在拖动单个GroupBox控件的时候它内部的控件也会随着移动以保持和GroupBox的相对位置不变同理删除GroupBox控件时它所包含的所有控件也会被删除掉

当我们调整GroupBox控件所包含的控件的Anchor和Dock属性的时候其参照物将不是Form窗体而是GroupBox控件了

三编程添加GroupBox控件以及它所包含的控件

虽然GroupBox控件是在设计时用视图设计布局效果最好但是无可避免地很多特殊情况下也是需要在运行做添加控件到控件组中的这里我们就用代码来完成上图一界面的绘制

动态添加控件一般需要经过下面三个步骤

创建要添加的控件实例

设置新控件的属性

将控件添加到父控件的 Controls 集合

在Form 代码的任意位置增加初始化控件的过程InitializeControl（）代码如下所示

Sub InitializeControl（）

首先添加Label和TextBox控件

Dim Label As New System Windows Forms Label

Dim TextBox As New System Windows Forms TextBox

Label

Label Location = New System Drawing Point（）

Label Name = Label

Label Size = New System Drawing Size（）

Label TabIndex =

Label Text = 户主姓名

TextBox

TextBox Location = New System Drawing Point（）

TextBox Name = TextBox

TextBox Size = New System Drawing Size（）

TextBox TabIndex =

TextBox Text =

把它们添加到父控件Form 的Controls集合中

Me Controls Add（TextBox ）

Me Controls Add（Label ）

添加三个GroupBox控件

Dim GroupBox As New System Windows Forms GroupBox

GroupBox

GroupBox BackColor = System Drawing SystemColors Control

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 性别

GroupBox

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 单元

GroupBox

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 楼层

把它们添加到父控件Form 的Controls集合中

Me Controls Add（GroupBox ）

添加RadioButton控件并分别绘制在GroupBox控件内

Dim RadioButton As New System Windows Forms RadioButton

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 男性

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 女性

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 二单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 三单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 一单元

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 四单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 二楼

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 三楼

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 一楼

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 四楼

分别把它们添加到父控件GroupBox的Controls集合中

GroupBox Controls Add（RadioButton ）

End Sub

把上一页的代码复制添加后把控件初始化过程InitializeControl（）过程添加到Form 的New构造函数中如下图二所示

图二在New构造函数中添加过程InitializeControl（）

现在按F 运行 Form 的窗体控件布局（如下图三所示）是不是和我们手工布局的图一的布局是一样的呢vb.net拖放？

lishixinzhi/Article/program/ASP/201311/21749

Q2: 在VB.NET中实现文件的拖放

本文介绍vb.net拖放了在VB NET中如何实现接受拖放vb.net拖放的文件即从资源管理器中拖放到应用程序中的时候自动获取拖放的文件文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序引言

对于文本格式的文件 vb.net拖放我们可以直接拖到记事本中就可以看到内容各种类型的图片拖到Photoshop中就可以直接对其编辑我们如何在VB NET开发的程序也实现上述效果呢？

思路

我们知道每一个Windows的应用程序都有一个消息队列程序的主体接受系统的消息然后分发出去（给一个form 或者一个控件）接受者有相应的程序来处理消息在 NET的Form中默认情况下程序是不翻译这些消息的也就是说默认我们的Class是不加入应用程序的消息泵能不能把我们的Form Class加入应用程序的消息泵呢？可以vb.net拖放！

在 NET中任何一个实现IMessageFilter 接口的类可以添加到应用程序的消息泵中以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作使用 Application 类中的 AddMessageFilter 方法可以将消息筛选器添加到应用程序的消息泵中

于是我们在程序加载的时候调用Application AddMessageFilter（Me）然而默认情况下一个Form或者控件是不能接受拖放的文件的我们调用一个WIN API DragAcceptFiles源码天空这个API可以设置对应的控件是否能接受拖放的文件然后可以用DragQueryFile查询拖放到的文件列表也就是拖放文件地具体路径和文件名

代码

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H 拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

设置拖放的动作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（）

Dim sFirstFileName As String 记录第一个文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

DragFinish（m WParam ToInt ）拖放完成

显示文件内容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

Q3: vb，net怎么实现拖拽文件到文本框和粘贴复制？

第一步，点击VS工具

请点击输入图片描述

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

请点击输入图片描述

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

请点击输入图片描述

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

请点击输入图片描述

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

请点击输入图片描述

第六步，运行程序

请点击输入图片描述

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

请点击输入图片描述

Q4: vb.net 拖盘图标怎么创建鼠标拖放事件(dragdrop)?

托盘图标本身不支持鼠标鼠标拖放，也没人把用这功能，你有操作有些怪，不符合正常的操作习惯。程序的编写最好与平时的正常操作习惯相联系，不建议使用。

技术追求另当别论。我认为最简单的办法是相办法做个无边窗体停在托盘上方，接受拖放。要不就得去查一大堆API了。

Q5: 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拖放和vbnet button的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

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

相关问答

相关阅读

海口网站制作起泡，怎么制作起泡网?

新媒体如何提高曝光率的方法，提升新媒体内容质量的方法

游戏狼人解谜，游戏狼人解谜大全

显卡的参数怎么看，显卡的参数怎么看性能好

tiff导入gis变形，tif文件导入gis

新媒体的就业前景如何，新媒体这个专业以后就业前景好吗?

java购物车经典代码，java简单的购物车代码

春晚大型单机游戏，春晚玩什么游戏

目录[+]