Foxtable(狐表) → 用户栏目 → 专家坐堂 → RowActivate的问题


  共有1948人关注过本帖树形打印复制链接

主题：RowActivate的问题
帅哥哟，离线，有人找我吗？
douglas738888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		RowActivate的问题  发帖心情 Post By：2016/7/20 15:33:00 [只看该作者]

请教老师，如何双击LISTVIEW1的行，能添加到LISTVIEW2里面  不是拖动

RowActivate

Dim lr As WinForm.ListViewRow = e.Sender.Current
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/20 15:40:00 [只看该作者]

增加和删除不就行了？

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView2")

Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
vr.Text = e.Sender.Current.Text
vr.Name = e.Sender.Current.Name

 

e.Sender.Current.Delete
 回到顶部
帅哥哟，离线，有人找我吗？
douglas738888
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/7/20 17:08:00 [只看该作者]

老师，发送到LISTVIEW2 的内容 行距好大，怎样调整

我加了这段代码无反应  BeforeDropRow

If e.Source.Name =  "ListView1" '如果是从员工列表中拖过来的行
Dim itm As WinForm.ListViewRow =  e.Source.Rows(e.NewIndex) '获取要拖动过来的行
End If


图片点击可在新窗口打开查看此主题相关图片如下：未标题-1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/20 17:15:00 [只看该作者]

 你listview2，没有设置成小图标吧？

 

lvw.View = ViewMode.SmallIcon '显示模式切换为小图标
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询