怎样使listview中的listview1.listitems(i).text不可编辑？

Question

1。怎样使listview中所有text,都不可编辑
2。怎样使listview中只有指定行的text,不可编辑

Answer 1

怎样使listview中所有text,都不可编辑
//设置ListView的LabelEdit属性为lvwManual 
2。怎样使listview中只有指定行的text,不可编辑
//正常的编辑也只能对第一列作编辑,假如对其他列编辑,需要用TextBox模拟!
然后判断哪一行不编辑则跳过!

Answer 2

谢谢虫子斑竹！
第一个问题，对了！！
2。怎样使listview中只有指定行的text,不可编辑
   我指的是第一列的某些行text可以编辑，某些行的text不可编辑。
   这个问题，我就随便问问，也不用太钻牛角尖！！

Answer 3

2。怎样使listview中只有指定行的text,不可编辑
   我指的是第一列的某些行text可以编辑，某些行的text不可编辑。
   这个问题，我就随便问问，也不用太钻牛角尖！！
//呵呵!也不知道是否该回答了! :P

Answer 4

Private Sub Form_Load()
    Dim itemx As ListItem
    With ListView1
        .ColumnHeaders.Add , , "序号"
        .ColumnHeaders.Add , , "文件路径及名称"
        .FullRowSelect = True
        .GridLines = True
        Set itemx = .ListItems.Add(, , "1")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "2")
        itemx.SubItems(1) = "c:\1.bmp"
        Set itemx = .ListItems.Add(, , "3")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "4")
        itemx.SubItems(1) = "c:\1.bmp"
        Set itemx = .ListItems.Add(, , "5")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "6")
        itemx.SubItems(1) = "c:\1.bmp"
        .View = lvwReport
    End With
End SubPrivate Sub ListView1_BeforeLabelEdit(Cancel As Integer)
    Dim itemx As ListItem
    Set itemx = ListView1.SelectedItem
    If itemx Is Nothing Then Exit Sub
    If itemx.Index = 1 OR itemx.Index = 3 Then   '假设第一,三行不让编辑(即在指定行单击,再单击,不是双击)
        Cancel = True
    End If
End Sub