VB.net拖拽文件的简单介绍

VB.NET的ListBox怎样实现项目可以拖动

ListSelected(index) [= boolean] 返回或设置在 ListBox 控件中的一个项的选择状态 用循环遍历所有项目，判断Selected状态。

里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

复杂的不会，来点儿简单的，借用在listbox里按下鼠标时再移动，会高亮显示选择行，并且会随鼠标移动而变化的这一特点改进的，不足之处是在listbox里，此时处于鼠标左键在按下状态。

相关问答

Q1: 如何让textbox控件显示拖拽过来的文件,是vb.net。最简单就好,只要textb...

1、VB0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中。TextBox 控件有时也称作编辑字段或者编辑控件，显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。

2、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

3、tFileNumber TextText = tText End Sub 运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。

4、Text = files(files.Length - 1)Catch ex As Exception MessageBox.Show(ex.Message)Return End Try End If End Sub TextBoxAllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。

5、将 .rtf 文件的内容装入 RichTextBox 控件，只需将该文件（比如从 Windows 95 “资源管理器”中）的内容直接拖入该控件，或者将其它应用程序（比如 Microsoft Word）中使用文件的突出显示部分直接拖入该控件。

6、在控件中显示嵌入对象 在运行时，最终用户可拖动任何嵌入对象，并放入 RichTextBox 控件。在控件中可以嵌入两种对象：以图标形式显示的对象，和以数据形式显示的对象。

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

本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放 向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

先设置对象为可接收拖放 Me.TextOLEDropMode = 1 如果想设置为窗体本身为接收对象的话，可以设置为 me.OLEDropMode=1 然后编写 Sub Form_OLEDragDrop(...)函数，格式和代码和文本框函数中的一样。

可以直接拖吧，拖动文件到exe文件上，exe文件就会自动打开。command接收拖动的文件路径。

首先打开Excel电子表格，然后在开发工具中打开VBA编辑器，如下图。在单元格区域输入一些内容，如下图。将模块插入到VBA编辑器中，如下图。文件的子访问路径()Dimfiless，tempfiless=Application。

Q3: 求助vb.net拖拽文件到窗体获取文件信息

新建一个项目，将原来form1的所有代码删了，将下面代码粘贴上去，就可以了。

新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。

Text = files(files.Length - 1)Catch ex As Exception MessageBox.Show(ex.Message)Return End Try End If End Sub TextBoxAllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。

vb.net 根本就访问不了内存，只能通过调用api函数方式，不光是vb.net ，C#也是，主要是为了安全，微软在net里面不容许直接访问内存。

可以直接拖吧，拖动文件到exe文件上，exe文件就会自动打开。command接收拖动的文件路径。

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

1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

2、Text = files(files.Length - 1)Catch ex As Exception MessageBox.Show(ex.Message)Return End Try End If End Sub TextBoxAllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。

3、新建一个项目，将原来form1的所有代码删了，将下面代码粘贴上去，就可以了。

4、拖放是用鼠标拖动一个对象到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用 VB 实现拖放功能。

5、在PictureBox的Picture1_OLEDragDrop事件里处理拖放。

Q5: 五分钟学会VB.NET实现拖放

1、本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放 向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

2、里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

3、VB0写的，代码很简单，无意中写成的。应该可以参考。不需要任何api函数。在无边框窗体顶部中放入一个label标签。

4、--- 这个小程序只是一个引子，和拖动相关的函数还有：DragObject()、DragDelect()、DragQueryPoint()，第一个是拖动一个对象，后两个是测试拖动点的，这样可以实现Netants的链接拖动功能。希望这个程序能给你一点小的提示。

5、新建一个项目，将原来form1的所有代码删了，将下面代码粘贴上去，就可以了。

6、Text = files(files.Length - 1)Catch ex As Exception MessageBox.Show(ex.Message)Return End Try End If End Sub TextBoxAllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。

关于VB.net拖拽文件和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。