简单讲解VB.NET ListBox控件

开发 后端
这里介绍VB.NET ListBox控件,包括介绍在windows中拖放通常是复制或移动文件,windows完全支持该功能,而且对许多用户来说这也是操作文件的优选方式。

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

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

  1. Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As _  
  2. System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter  
  3. If e.Data.GetDataPresent(DataFormats.FileDrop) Then  
  4. e.Effect = DragDropEffects.All  
  5. End If  
  6. End Sub  
  7.  
  8. Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _  
  9. System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop  
  10. If e.Data.GetDataPresent(DataFormats.FileDrop) Then  
  11. Dim MyFiles() As String  
  12. Dim i As Integer  
  13.  
  14. ' Assign the files to an array.  
  15. MyFiles = e.Data.GetData(DataFormats.FileDrop)  
  16. ' Loop through the array and add the files to the list.  
  17. For i = 0 To MyFiles.Length - 1  
  18. ListBox1.Items.Add(MyFiles(i))  
  19. Next  
  20. End If  
  21. End Sub 

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

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

【编辑推荐】

  1. 深入分析VB.NET条件语句中的两类
  2. 五大类VB.NET运算符全面介绍
  3. 全面讨论VB.NET申明Windows API函数
  4. 剖析VB.NET平台调用是如何执行操作
  5. 分享个人总结VB.NET多线程
责任编辑:佚名 来源: 比特网
相关推荐

2009-10-20 10:16:24

VB.NET COMB

2009-10-14 17:21:47

VB.NET定制Win

2009-10-13 14:42:30

VB.NET静态成员

2009-10-15 15:43:25

VB.NET Pati

2010-01-21 17:58:40

VB.NET List

2010-01-11 16:04:10

VB.NET使用wit

2009-10-23 13:14:38

2010-01-13 10:53:24

VB.NET控件

2009-10-14 16:04:43

VB.NET Noti

2009-10-14 10:19:57

VB.NET Doma

2010-01-12 16:30:21

VB.NET数据转换

2009-10-12 13:54:22

VB.NET Data

2009-10-15 11:42:05

VB.Net赋值语句

2009-10-30 14:21:00

VB.NET开发语言

2010-01-18 18:20:49

VB.NET使用API

2009-10-16 13:26:53

VB.NET Exce

2009-11-02 10:19:40

VB.NET List

2009-10-16 14:31:48

VB.NET Noti

2009-10-14 11:27:20

VB.NET Grou

2010-01-19 10:12:39

VB.NET Butt
点赞
收藏

51CTO技术栈公众号