Question

求教VB6的combo1和listview1的使用方法

看了好多零零散散的资料，还是没看懂，希望有个老师详细的解答一下，学生感激不尽。
1，假设,combo1要带3个参数：“姓名”“班级”和“成绩”，怎么让combo1的选项附带上（combo1只显示“姓名”）？怎么把combo1中选中的项添加到listview1（分三列）中，而且不能重复.
2.根据listview1中的“班级（1班或者2班）”循环往下读取（间隔1秒），如果是“1”，则读取该行对应的“成绩”（text1.text=成绩分数）。
就这两步，如果学会了，应用很多，希望大家来指点一下，如果combo和listview做不到，那又该怎么去解决？只求结果和方法，不论过程多难，谢谢大家
补充第二步，如果不是“1”则跳下一行

Answer 1

关键代码如下：
一、假设姓名=张三，班级=1班，成绩=85，让combo1的选项附带上班级、成绩的方法是：
Dim S as String
combo1.AddItem "张三"
S=85 & 1 '把成绩和班级合并为一个数值
combo1.ItemData(combo1.NewIndex)=val(s) '保存到记录中
二、把combo1中选中的项添加到listview1（分三列）中，而且不能重复
Private Sub Combo1_Click()
Dim itm As ListItem, i As Long
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Text = Combo1.Text Then Exit Sub '保证不出现重复
Next
'追加
S = Combo1.ItemData(Combo1.ListIndex)
Set itm = ListView1.ListItems.Add(, "Row" & ListView1.ListItems.Count + 1, Combo1.Text) '得到姓名
itm.SubItems(1) = Right(S, 1) 得到‘班级
itm.SubItems(2) = Left(S, Len(S) - 1) '得到成绩
Set itm = Nothing
End Sub
三、根据listview1中的“班级（1班或者2班）”循环往下读取（间隔1秒），如果是“1”，则读取该行对应的“成绩”（text1.text=成绩分数）
Private Sub Timer1_Timer()
Dim itm As ListItem, i As Long
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) = "1" Then '如果是“1”
Text1.Text = ListView1.ListItems(i).SubItems(2)
ListView1.ListItems(i).Selected = True '移到该行
Exit Sub
End If
Next
End Sub