~~~过程太大错误的解决！~~~

Question

coursenumber = GetINI("coursenumber", "coursenumber", App.Path & "\course.ini")If coursenumber = 0 ThenElseIf coursenumber = 1 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))ElseIf coursenumber = 2 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))ElseIf coursenumber = 3 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c3", App.Path & "\course.ini"))List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c3", App.Path & "\course.ini"))List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c3", App.Path & "\course.ini"))ElseIf coursenumber = 4 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c3", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c4", App.Path & "\course.ini"))List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c3", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c4", App.Path & "\course.ini"))List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c3", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c4", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
End If'course.ini文件内容如下[course]
c1=计算机安全
c2=计算机图形学
c3=软件工程
c4=网络工程
c5=嵌入式系统
c6=文秘基础素养
c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[teacher]
c1=蔡敏
c2=韩云
c3=徐秋月
c4=吴其林
c5=韩云
c6=罗蓉
c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[class]
c1=新教学楼204
c2=老教学楼东二
c3=老教学楼402
c4=艺术楼东204
c5=计算机楼204
c6=新教学楼102
c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[coursenumber]
coursenumber=6
最多要写到20，类似这样的东西，要怎么写成循环的形式呢？写多了VB报“过程太大”错误！求高手帮忙！

Answer 1

你考虑一下往数据库里存吧！Access也行啊！
for i=1 to 20
    List1.AddItem (GetINI("course", "c" & str(i), App.Path & "\course.ini")) 
next

Answer 2

过程超大？我看就这几行就搞定了：
coursenumber = GetINI("coursenumber", "coursenumber", App.Path & "\course.ini")
Dim i&, strTemp$
For i = 1 To coursenumber
    strTemp = (GetINI("course", "c" & i, App.Path & "\course.ini"))
    List1.AddItem strTemp
    List2.AddItem strTemp
    List3.AddItem strTemp
Next

Answer 3

不好意思，看错了点东东~~~~~
用这个代码：
coursenumber = GetINI("coursenumber", "coursenumber", App.Path & "\course.ini")
Dim i&
For i = 1 To coursenumber
    List1.AddItem (GetINI("course", "c" & i, App.Path & "\course.ini"))
    List2.AddItem (GetINI("teacher", "c" & i, App.Path & "\course.ini"))
    List3.AddItem (GetINI("class", "c" & i, App.Path & "\course.ini"))
Next

Answer 4

楼上的好强大 ，谢谢你了！要是存，应该怎么做呢？存的代码 在这里  WritePrivateProfileString "course", "c1","XXX" , App.Path & "\course.ini"把XXX存入course.ini中的[course] c1下假如经过某种编辑过后，list中的总数发生 了变化 ，变化 了成N，把这N个数分别存到course.ini文件 中，谢谢了！

Answer 5

http://www.google.cn/search?hl=zh-CN&source=hp&q=vb+%E8%AF%BB%E5%86%99ini%E6%96%87%E4%BB%B6&aq=1g&oq=vb+%E8%AF%BB%E5%86%99+in

Answer 6

' 你自己要保证三个 ListBox 的项目数量相同
Private Sub SaveToINI()
    Dim strINIfile$, strKey$, i&
    strINIfile = App.Path & "\course.ini"
    If (List1.ListCount > 0) Then
        For i = 0 To List1.ListCount
            strKey = "C" & i + 1
            WritePrivateProfileString "course", strKey, List1.List(i), strINIfile
            WritePrivateProfileString "teacher", strKey, List2.List(i), strINIfile
            WritePrivateProfileString "class", strKey, List3.List(i), strINIfile
        Next
        WritePrivateProfileString "coursenumber", "coursenumber", i, strINIfile
    End If
End Sub

Answer 7

过程太大,减少代码行可以解决,请问下面的行怎样合并?谢谢!
    Set nt = TreeView1.Nodes.Add(, , "root1", "养老保险", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "养老保险制度的缘起", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "传统劳动保险制度的恢复", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "养老保险社会统筹的探索", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "社会主义市场经济与职工", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "养老保险制度改革的不断完善", 1)
    Set nt = TreeView1.Nodes.Add("root1", tvwChild, , "养老保险制度的评估和展望", 1)