Question

VB 中Imagelist控件动态添加图片

我的代码是：

Sub LoadUserList()
Dim img As ComboItem
Dim rs As New ADODB.Recordset
Dim i As Integer
rs.Open "select * from userinfo", conn, adOpenKeyset, adLockOptimistic
If rs.EOF Then
LoginFrm.Username.Text = "当前没有用户"
Exit Sub
End If
While Not rs.EOF
i = i + 1
LoginFrm.UserImg.ListImages.Add , , LoadPicture(App.Path & rs("Img"))
'LoginFrm.UserImg.ListImages.Add , , LoadPicture("F:\DFZJOA\Images\logo.jpg")
rs.MoveNext
Wend
i = 0
While Not rs.EOF
i = i + 1
Set img = LoginFrm.Username.ComboItems.Add(, , rs!Username, 1)
rs.MoveNext
Wend
rs.Close
End Sub
如果在添加 图片的时候用绝对地址，不用循环，那么一切正常，但是如果用循环读取数据库，就什么都没有显示了

代码中如果只使用注释的那一句，那么可以正常显示，如果用我给的这个代码，程序运行正常，但是imagecombo里面就什么都没有

应该不是延时的问题吧，因为图片没有添加进imagelist里面

Answer 1

从数据库循环读取图片地址然后显示，代码都是对的！
只是中间需要加一个延时，否则程序运行太快，根本来不及显示！