LIST中的值如何修改

[lovessll]

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

[of123]

是允许用户通过界面修改吗？比较麻烦：

Private Sub List1_KeyPress(KeyAscii As Integer)
i = List1.ListIndex

If i = -1 Then Exit Sub

Select 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 键后退删除；字符键输入文字