Question

vb 逐行读取listbox如何进行进度条显示

老师们好，因工作上的事，老板要求做个简单程度，用的VB6.0 过程中需要v逐行读取listbox，如何进行进度条显示？
代码如下：
Dim I As Long
For I = 0 To List1.ListCount - 1
DICOMX1.OPENFILENAME = List1.List(I)
'Text68.Text = jiang
DICOMX1.ImageSaveToFile = "d:\abc\" & I & ".jpg"
Next
如何写代码，或者给个详细思路为谢！

Answer 1

listbox的总记录数知道吗？ 知道的话就好弄了，当前读取数 / 总数

追问

谢谢，主要是我没有过VB的进度条，总记录数可以用List1.ListCount变量表示吗？如果可以，能给出一些代码吗？

追答

vb代码我不会呢，不好意思，但做法是这样的