Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ListView重命名的问题


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

主题：[求助]ListView重命名的问题
帅哥哟，离线，有人找我吗？
2425004926
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00 		[求助]ListView重命名的问题  发帖心情 Post By：2021/3/8 10:59:00 [只看该作者]

 
图片点击可在新窗口打开查看此主题相关图片如下：1615167539(1).png
图片点击可在新窗口打开查看

我用了ListView，以下是双击代码。
双击后文件名称显示蓝色可更改，更改名称后关闭窗口，再打开文件名称还是原来的。
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
If lvw.Current IsNot Nothing Then  
    lvw.Current.BeginEdit()
End If

这个是路径
ProjectPath & "Attachments\" & "王宏谟藏品照片"
“王宏谟藏品照片”这个是文件夹，比如说把“伤员用绑带”改为“绑带”，还要写一个什么代码？写在哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 11:14:00 [只看该作者]

更改文字有没有什么规则？如果没有，很难判断

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


加好友 发短信
等级：三尾狐 帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00 		  发帖心情 Post By：2021/3/8 12:19:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:listview.rar

我作了个例子，窗口1里，改名后关闭窗口，名称没改过来

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 13:41:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2829.htm

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:listview.zip
 回到顶部
帅哥哟，离线，有人找我吗？
2425004926
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00 		  发帖心情 Post By：2021/3/8 15:27:00 [只看该作者]

 非常感谢！明白了
 回到顶部
帅哥哟，离线，有人找我吗？
2425004926
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00 		  发帖心情 Post By：2021/3/8 16:04:00 [只看该作者]

更名中若有同名称出现，会出错，我就作了一个判断，这个判断写在哪个事件比较合适，AfterEdit事件和BeforeEdit都不行

Dim a As String = "|"
For Each File2 As String In FileSys.GetFiles(ProjectPath & "Attachments\王宏谟\“)   '将上级文件夹的所有名称罗列出来,变为一个字符串
    a = a  & file2 & "|"
Next
If a.Contains("|" & e.NewText & "|") Then   '前后都有竖线是要避免局部名称一样,字符串包含新名称
    e.Cancel = True '取消重命名
    MessageBox.Show("此文件夹中已经有同名称的文件,请重新命名!")
‘Else
    ’Dim file As String = ProjectPath & "Attachments\" & f.text & "\" & e.Row.text   '原来的文件名称
    ‘FileSys.RenameFile(file,e.NewText)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
2425004926
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00 		  发帖心情 Post By：2021/3/8 16:37:00 [只看该作者]

问题找到了，还是在AfterEdit事件里写的代码，删除文件名的路径，只留下文件名OK了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询