LIST中的值如何修改

Question

请问大家。list中的值如何修改。比如我用list显示了值 t1,t2,t3,t4。我想把值改为:t5,b4,t7,b8.怎么修改啊？
能不能象文本框一样的修改这些值。
恳请会的朋友帮帮忙。谢谢

Answer 1

是允许用户通过界面修改吗？比较麻烦：Private Sub List1_KeyPress(KeyAscii As Integer)
i = List1.ListIndexIf i = -1 Then Exit SubSelect Case KeyAscii
    Case vbKeyDelete
        List1.List(i) = ""
    Case 8
        List1.List(i) = Left(List1.List(i), Len(List1.List(i)) - 1)
    Case Asc("0") To Asc("9"), Asc("A") To Asc("Z"), Asc("a") To Asc("z")
        List1.List(i) = List1.List(i) & Chr(KeyAscii)
End Select
End Sub选中一个列表项，Del 键删除内容；Back Space 键后退删除；字符键输入文字