vb.net实现从ListBox中拖放数据到ListBox中。 -VB.NET-NET专区-IT知道网(http://www.itwis.com)

vb.net实现从ListBox中拖放数据到ListBox中。

来源：发布时间：2007-12-22 发布人：浏览：人次字体： [大中小]

从ListBox中拖放数据到ListBox 中。（VS2005）

Public Class FrmList2List

Dim i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

For i = 1 To 5

Me.ListBox1.Items.Add(i)

For i = 6 To 9

Me.ListBox2.Items.Add(i)

ListBox1.AllowDrop = True

ListBox2.AllowDrop = True

End Sub

Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown

If e.Button = Windows.Forms.MouseButtons.Left Then

If ListBox1.SelectedItem IsNot Nothing Then

Me.ListBox1.DoDragDrop(Me.ListBox1.SelectedItem.ToString, DragDropEffects.Copy)

Me.Label1.Text = "启动拖放数据..." & Me.ListBox1.SelectedItem

Else

Me.Label1.Text = ""

End If

End Sub

Private Sub ListBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter

If (e.Data.GetDataPresent(DataFormats.Text)) Then

Me.Label1.Text = "有数据拖进来...托..."

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None

Me.Label1.Text = ""

End If

End Sub

Private Sub ListBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop

If e.Data.GetDataPresent(DataFormats.Text) Then

Me.ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))

Me.Label1.Text = "有数据放进来...放..."

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Label1.Text = ""

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.ListBox1.ClearSelected()

End Sub

End Class

【↑返回顶部】【文章评论(0条)】【收藏本文】【打印本文】【关闭窗口↓】

↑上一篇：vb.net访问Iframe示例代码

↓下一篇：从DataGridView拖放选中的行到ListBox中的代码

发布商链接

·从DataGridView拖放选中的行到ListBo...
·在Visual Basic 2005中操作文件和目...
·VB.NET调用SQL Server存储过程的方法...
·在.net中如何使用别人的ActiveX控件...
·vb.NET下获取命令行参数的方法
·vb.NET中为组合框添加自动查询功能
·怎样通过VB.NET获得网卡地址？
·如何在vb.net中使用ArrayList的几个...
·vb.net实现随机生成数字或字符的图象...
·vb.net实现上传图片并同时生成缩略图

§最新评论:（评论内容只代表网友观点，与本站立场无关！）

网名：验证码：

【所有评论】【↑返回顶部】

评　分： 12 345

评论内容：(不能超过500字，请自觉遵守互联网相关政策法规。[按 Ctrl+Enter 可直接提交]

注意:请勿在本站发布政治话题、色情及违反法律的内容。

IT知道网声明：刊登此文章是为了传递更多信息，文章内容仅供参考，转载请注明出处。


首页 ┆ 网站地图 ┆ 在线留言 ┆ 游戏资讯 ┆ 资源下载 ┆ 端午节祝福 ┆ 迅雷在线影视 ┆淘宝手机在线充值 ┆淘宝游戏点卡充值

编程学堂> JAVA专区 \| .NET专区 \| PHP 专区 \| ASP 专区 \| C/C++ \| JAVASCRIPT \| 数据库 \| 软件工程 \| 网络技术 \| 网站制作 \| 编程相关 \| 硬件资讯
业界相关> 业界新闻 \| 操作系统 \| 办公技巧 \| 病毒安全 \| 图形图像 \| 常用工具 \| 资源下载 \| 网站推广 \| 即时通讯 \| IT故事 \| IT健康 \| QQ---MSN