Foxtable(狐表)用户栏目专家坐堂 → [求助]行拖动问题


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

主题:[求助]行拖动问题

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]行拖动问题  发帖心情 Post By:2015/3/18 15:02:00 [只看该作者]

在一个listview中,已做出拖动行操作,显示询问对话框,询问用户是否按拖动后的行顺序显示
问题:如果否,如何恢复到拖动前的状态。
谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 15:10:00 [只看该作者]

BeforeDropRow 事件

 

Dim Result As DialogResult
Result = MessageBox.Show("是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
    e.Cancel = True
End If


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/3/18 15:14:00 [只看该作者]

甜老师,不想把代码写在BeforeDropRow 事件中。代码写在按钮中。
是已经拖动了多次,有两个按钮,一个确定,一个取消。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 15:18:00 [只看该作者]

 拖动之前,把listview数据保存起来;比如保存到另一个listview里面去;点取消,就重新生成。


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/3/18 15:23:00 [只看该作者]

我用行Index赋值经行的text,可否通过还原行的Index来实现。

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/3/18 15:27:00 [只看该作者]

不行呀,行Index为只读。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 15:38:00 [只看该作者]

 叫你重新生成一次啊。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 15:55:00 [只看该作者]

 测试了一下,如果你是要两行交换位置的话,参考下面的代码,但这种也会很麻烦的。还不如重新生成一次

 

Dim lvw = e.Form.Controls("ListView1").basecontrol
Dim idx1 = 2
Dim idx2 = 5

Dim i1 = lvw.Items(idx1)
lvw.items.removeat(idx1)
lvw.items.Insert(idx2, i1)
Dim i2 = lvw.items(idx2-1)
lvw.items.removeat(idx2-1)
lvw.items.Insert(idx1, i2)


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/3/18 17:07:00 [只看该作者]

怎么没有像表的Move命令呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/18 17:39:00 [只看该作者]

 remove + insert = move 啊


 回到顶部
总数 24 1 2 3 下一页