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


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

主题:[求助]ListView重命名的问题

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5541 威望: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


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

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

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


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

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

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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望: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 积分:5541 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/3/8 15:27:00 [只看该作者]

 非常感谢!明白了

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


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

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

 回到顶部