哪位大哥能给我恢复所有在list1中被删除的项目的vb代码？谢谢。
哪位大哥能给我恢复所有在list1中被删除的项目的vb代码？谢谢。

[解决办法]

VB code

Option ExplicitPrivate Type ListItem    Num As Long     '需要    Memo As String  '内容End TypeDim Record(0 To 999) As ListItem    '定义一个一千个元素的数组'删除List选中的行Private Sub Command1_Click()    List1.RemoveItem List1.ListIndexEnd Sub'恢复listPrivate Sub Command2_Click()    Dim lngP As Long    List1.Clear    For lngP = 0 To 999        List1.AddItem Record(lngP).Memo, lngP    Next lngPEnd SubPrivate Sub Form_Load()    Dim lngP As Long    List1.Clear    For lngP = 0 To 999        Record(lngP).Num = lngP        Record(lngP).Memo = CStr(lngP)        List1.AddItem Record(lngP).Memo, lngP    Next lngPEnd Sub