校庆 青春校园 独家视频 分享啦 ,给力的节目，有木有，有木有
！！！！！！！！！！！！！！【人人网 - 分享】
校庆 青春校园 独家视频 分享啦 ,给力的节目，有木有，有木有
！！！！！！！！！！！！！！
分享这个视频的人喜欢
分享这个视频的人也爱看
这高考给我累的！考砸了！
感谢所有支持??
大雨淋淋??
一边想瘦一边泪流
你的主播夜猫丹来了~
热门视频推荐
热门日志推荐
同类视频推荐
北京千橡网景科技发展有限公司：
文网文[号??京公网安备号?甲测资字
文化部监督电子邮箱：wlwh@??
文明办网文明上网举报***： 举报邮箱：&&&&&&&&&&&&
请输入手机号，完成注册
请输入验证码
密码必须由6-20个字符组成
下载人人客户端
品评校花校草，体验校园广场有分拿了！！！！！！！！！！！！！！
有分拿了！！！！！！！！！！！！！！
发布时间： 9:04:51
编辑：www.fx114.net
本篇文章主要介绍了"有分拿了！！！！！！！！！！！！！！
0"，主要涉及到有分拿了！！！！！！！！！！！！！！
0方面的内容，对于有分拿了！！！！！！！！！！！！！！
0感兴趣的同学可以参考一下。
请问如何在运行时：用鼠标把listview1中的user.ico图标直接拖到listview2中
且listview1中的图标消失！？？？？？？？？？？？？？？？？？
代码如何写？？？？？？？一定给分！！！！use&dragover&and&dragdrop&method&of&listview.在窗体上放两个listview，一个imagelist控件，设置两个listview的图像列表为imagelist1，在imagelist1中放上两个icon，关键字分别为"A","B"
Option&Explicit
Private&Sub&Form_Load()
&&&&&Me.ListView1.ListItems.Add&,&"A",&"AAA",&"A"
&&&&Me.ListView1.ListItems.Add&,&"B",&"BBB",&"B"
Private&Sub&ListView1_DragDrop(Source&As&Control,&x&As&Single,&y&As&Single)
&&&&If&Source&Is&Me.ListView2&Then
&&&&&&&&Me.ListView1.ListItems.Add&,&ListView2.SelectedItem.Key,&ListView2.SelectedItem.Text,&ListView2.SelectedItem.Icon
&&&&&&&&ListView2.ListItems.Remove&ListView2.SelectedItem.Index
&&&&End&If
Private&Sub&ListView1_MouseMove(Button&As&Integer,&Shift&As&Integer,&x&As&Single,&y&As&Single)
&&&&If&Button&&&&vbLeftButton&Then
&&&&&&&&Exit&Sub
&&&&End&If
&&&&If&ListView1.DragMode&=&0&Then
&&&&&&&&ListView1.Drag&1
&&&&&&&&ListView1.DragIcon&=&Me.ImageList1.ListImages(Me.ListView1.SelectedItem.Key).Picture
&&&&End&If
Private&Sub&ListView2_DragDrop(Source&As&Control,&x&As&Single,&y&As&Single)
&&&&If&Source&Is&Me.ListView1&Then
&&&&&&&&Me.ListView2.ListItems.Add&,&ListView1.SelectedItem.Key,&ListView1.SelectedItem.Text,&ListView1.SelectedItem.Icon
&&&&&&&&ListView1.ListItems.Remove&ListView1.SelectedItem.Index
&&&&End&If
Private&Sub&ListView2_MouseMove(Button&As&Integer,&Shift&As&Integer,&x&As&Single,&y&As&Single)
&&&&If&Button&&&&vbLeftButton&Then
&&&&&&&&Exit&Sub
&&&&End&If
&&&&If&ListView2.DragMode&=&0&Then
&&&&&&&&ListView2.Drag&1
&&&&&&&&ListView2.DragIcon&=&Me.ImageList1.ListImages(Me.ListView2.SelectedItem.Key).Picture
&&&&End&If
End&SubPrivate&Sub&Form_Load()
&&Dim&itmX&As&ListItem
&&ListView1.Icons&=&ImageList1
&&ListView2.Icons&=&ImageList1
&&Set&itmX&=&ListView1.ListItems.Add(,&,&"第一项",&1)
&&Set&itmX&=&ListView1.ListItems.Add(,&,&"第二项",&2)
&&Set&itmX&=&ListView1.ListItems.Add(,&,&"第三项",&3)
&&Set&itmX&=&ListView2.ListItems.Add(,&,&"第一项",&4)
Private&Sub&ListView1_MouseDown(Button&As&Integer,&Shift&As&Integer,&x&As&Single,&y&As&Single)
&&If&Not&ListView1.HitTest(x,&y)&Is&ListView1.SelectedItem&Then
&&&&Set&ListView1.SelectedItem&=&Nothing
Private&Sub&ListView1_MouseMove(Button&As&Integer,&Shift&As&Integer,&x&As&Single,&y&As&Single)
&&If&Button&=&vbLeftButton&And&Not&ListView1.SelectedItem&Is&Nothing&Then
&&&&ListView1.DragIcon&=&ListView1.SelectedItem.CreateDragImage
&&&&ListView1.Drag&vbBeginDrag
Private&Sub&ListView2_DragDrop(Source&As&Control,&x&As&Single,&y&As&Single)
&&Dim&itmX&As&ListItem
&&Set&itmX&=&ListView2.ListItems.Add(,&,&"新添项",&ListView1.SelectedItem.Icon)
&&ListView1.ListItems.Remove&ListView1.SelectedItem.Index
End&Sub问题解决了!!!!!!!!!!
给分!!!!!!!
多谢版主代劳!!!!
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：