vb中怎么修改listview控件的subItem值
呵呵我看见你说自己解决了,怎么解决的啊,我现在也是遇到这样的问题,能告诉我么,谢谢了不是的,我是说在程序运行的时候,能直接用鼠标在subitem里编辑~~~~~~但是本来...
呵呵 我看见你说自己解决了,怎么解决的啊,我现在也是遇到这样的问题,能告诉我么,谢谢了
不是的,我是说在程序运行的时候,能直接用鼠标在subitem里编辑~~~~~~但是本来那个控件里是不行的,editlabel编辑的就是第一行而已,别的根本不能编辑的~~~~~求助啊,现在着急着~~~要是实现了,给加分100!!!!
我用vb.NET2005~~~~~~~~~ 展开
不是的,我是说在程序运行的时候,能直接用鼠标在subitem里编辑~~~~~~但是本来那个控件里是不行的,editlabel编辑的就是第一行而已,别的根本不能编辑的~~~~~求助啊,现在着急着~~~要是实现了,给加分100!!!!
我用vb.NET2005~~~~~~~~~ 展开
2个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询