| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ListView 重命名功能 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68300) |
| -- 作者：qianqian1530 -- 发布时间：2015/5/14 14:00:00 -- ListView 重命名功能 LabelEdit 属性为 false，因此 BeginEdit 失败。 怎么解决呢
|
| -- 作者：大红袍 -- 发布时间：2015/5/14 14:11:00 -- 你不能设置它么？
Dim lsv As Object = e.Form.Controls("ListView1").BaseControl lsv.LabelEdit = True |
| -- 作者：qianqian1530 -- 发布时间：2015/5/14 14:50:00 -- 3q~ 怎么获得 更改后的名称呢? Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") If lvw.Current IsNot Nothing Then Dim lsv As Object = e.Form.Controls("ListView1").BaseControl lsv.LabelEdit = True lvw.Current.BeginEdit() Application.DoEvents() Dim lr As WinForm.ListViewRow = lvw.Current MessageBox.Show(lr.text) End If |
| -- 作者：大红袍 -- 发布时间：2015/5/14 14:59:00 -- 绑定事件
Dim lsv As Windows.Forms.LisvView = e.Form.Controls("ListView1").BaseControl
AddHandler lsv.AfterLabelEdit, AddressOf 你定义的函数
https://msdn.microsoft.com/zh-cn/library/system.windows.forms.listview.afterlabeledit.aspx
|