vb中怎么修改listview控件的subItem值

呵呵我看见你说自己解决了,怎么解决的啊,我现在也是遇到这样的问题,能告诉我么,谢谢了不是的,我是说在程序运行的时候,能直接用鼠标在subitem里编辑~~~~~~但是本来... 呵呵 我看见你说自己解决了,怎么解决的啊,我现在也是遇到这样的问题,能告诉我么,谢谢了
不是的,我是说在程序运行的时候,能直接用鼠标在subitem里编辑~~~~~~但是本来那个控件里是不行的,editlabel编辑的就是第一行而已,别的根本不能编辑的~~~~~求助啊,现在着急着~~~要是实现了,给加分100!!!!
我用vb.NET2005~~~~~~~~~
展开
 我来答
mafan8
2010-07-26 · TA获得超过1.7万个赞
知道小有建树答主
回答量:927
采纳率:0%
帮助的人:766万
展开全部
Private Sub Command1_Click()
a = InputBox("请输入要更改数值的行,列值" & vbCrLf & "格式为" & "A,1", "更改", "A,1")
If InStr(a, ",") = 0 Then
MsgBox "行列输入错误"
Exit Sub
End If
c = Val(Split(a, ",")(1))
r = Val(Asc(Split(UCase(a), ",")(0)) - 64)
'Print r, c
b = InputBox("请输入" & a & "单元格要更改的数值", "更改", "111")

If c = 1 Then
ListView1.ListItems(r).Text = b '更改r行的首列
Else
ListView1.ListItems(r).SubItems(c - 1) = b '更改r行的第c列
End If
End Sub

Private Sub Form_Load()
'以下代码将ListView1添加数据
Dim L As Object
ListView1.View = lvwReport
ListView1.GridLines = True
ListView1.ColumnHeaders.Add , "xx", "1", 500
For i = 2 To 15
ListView1.ColumnHeaders.Add , Chr(i + 64), i, 500
Next

For i = 1 To 20
Set L = ListView1.ListItems.Add(, , Chr(i + 64) & 1)
For j = 2 To 15
L.SubItems(j - 1) = Chr(i + 64) & j
Next
Next
'以上代码将ListView1添加数据
End Sub
远风的梦想家
2010-07-27 · TA获得超过2550个赞
知道大有可为答主
回答量:1389
采纳率:0%
帮助的人:0
展开全部
这个控件本身不支持,有三种方法:
1、自己重写一个控件
2、重载一下它的edit事件
3、添加一个textbox
我不了解VB.NET 没办法帮你
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式