200分求注释程序:集合中的关键字不唯一

来源：百度知道 编辑：UC知道 时间：2024/06/18 08:53:13
下面程序老是出错,主要是不明白,请哪位大虾帮我注释一下这段程序好吗,越详细越好.

Private Sub Form_Load()
For i = 1 To 5
Image1.Picture = LoadPicture("D:\Program Files\Microsoft Visual Studio\VB98\dzb\" & i & ".ico")
ImageList1.ListImages.Add i, , Image1.Picture
Next i
TreeView1.ImageList = ImageList1
For i = 1 To 15
TreeView1.Nodes.Add , tvwChild, "openfrm" & i, CStr(i), 1
j = j + 5
TreeView1.Nodes(i).Tag = "0" & CStr(j)
Next i

Dim sSQL As String
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\msd.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from texts where zxbz=1", cn, 3, 1
i = 1
rs.MoveFirst
Do While Not rs.EOF
id = CStr(rs("id"))
users = rs("addrs")

Image1.Picture = LoadPicture("D:\Program Files\Microsoft Visual Studio\VB98\dzb\" & i & ".ico")
就是说把内存里的ico图象往Image1里装入

ImageList1.ListImages.Add i, , Image1.Picture
把装到Image1里的图片再放进图象列表ImageList1中去

TreeView1.ImageList = ImageList1
把TreeView1的图象设置为imagelist1的图象

TreeView1.Nodes.Add , tvwChild, "openfrm" & i, CStr(i), 1
添加一行数据
里面的tvwChild就是作为子节点添加;"openfrm" & i节点名称

TreeView1.Nodes.Add , tvwChild, CStr(users), CStr(users), i
后面一个CStr(users)应该改为CStr(i)

Image1.Picture = LoadPicture("D:\Program Files\Microsoft Visual Studio\VB98\dzb\" & i & ".ico")
就是说把内存里的ico图象往Image1里装入

ImageList1.ListImages.Add i, , Image1.Picture
把装到Image1里的图片再放进图象列表ImageList1中去

TreeView1.ImageList = ImageList1
把TreeView1的图象设置为imagelist1的图象

TreeView1.Nodes.Add , tvwChild, "openf