简单讲解VB.NETListBox控件

VB.NET还是比较常用的，于是我研究了一下VB.NET ListBox控件，在这里拿出来和大家分享一下，希望对大家有用。在windows中拖放通常是复制或移动文件，windows完全支持该功能，而且对许多用户来说这也是操作文件的优选方式。除此之外，用户已经习惯了把文件拖动到一个程序来打开文件的方式，像拖动一个doc文件到word来打开。

创新互联提供成都网站设计、成都网站建设、网页设计，高端网站设计，1元广告等致力于企业网站建设与公司网站制作，10余年的网站开发和建站经验,助力企业信息化建设，成功案例突破近千家,是您实现网站建设的好选择.

在这个例子中用从windows资源管理器拖来的文件来操作VB.NET ListBox控件。向窗体中添加一个VB.NET ListBox控件，并设置其AllowDrop属性为True，并添加如下代码：

 
 
 

  
  
  
Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As _  
  
  
  
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter  
  
  
  
If e.Data.GetDataPresent(DataFormats.FileDrop) Then  
  
  
  
e.Effect = DragDropEffects.All  
  
  
  
End If  
  
  
  
End Sub  
  
  
  
 
  
  
  
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _  
  
  
  
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop  
  
  
  
If e.Data.GetDataPresent(DataFormats.FileDrop) Then  
  
  
  
Dim MyFiles() As String  
  
  
  
Dim i As Integer  
  
  
  
 
  
  
  
' Assign the files to an array.  
  
  
  
MyFiles = e.Data.GetData(DataFormats.FileDrop)  
  
  
  
' Loop through the array and add the files to the list.  
  
  
  
For i = 0 To MyFiles.Length - 1  
  
  
  
ListBox1.Items.Add(MyFiles(i))  
  
  
  
Next  
  
  
  
End If  
  
  
  
End Sub 
 
 
 

你可能已经注意到了DragEnter事件中的Effect属性被设置成DragDropEffects.All。因为文件本身并不是真的就被复制或移动了，因此源控件设置成哪个AllowedEffects并没有关系，所以指定All对任何FileDrop都可以。

在上面的例子中FileDrop格式包含了每个被拖动文件的全路径。

当前题目：简单讲解VB.NETListBox控件
网站URL：http://www.hantingmc.com/qtweb/news44/141994.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联