快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

VB.NET中如何使用ListBox控件

这篇文章给大家分享的是有关VB.NET中如何使用ListBox控件的内容。小编觉得挺实用的,因此分享给大家做个参考,一起跟随小编过来看看吧。

创新互联是一家专业从事网站制作、成都网站设计的网络公司。作为专业网站设计公司,创新互联依托的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、营销型网站及网站设计开发服务!

在windows中拖放通常是复制或移动文件,windows完全支持该功能,而且对许多用户来说这也是操作文件的优选方式。除此之外,用户已经习惯了把文件拖动到一个程序来打开文件的方式,像拖动一个doc文件到word来打开。

在这个例子中用从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.NET中如何使用ListBox控件”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识,如果觉得文章不错,可以把它分享出去让更多的人看到吧!


文章标题:VB.NET中如何使用ListBox控件
转载源于:http://6mz.cn/article/jhgeoi.html

其他资讯