我在做一个图片浏览器,可是无法实现一张一张的读取,那位大哥大姐知道怎样实现图片的循环读取的代码,在下在这里谢了!!!!!!

给个最原始的例子你玩玩

Dim s As String
Dim strname(100000) As String
Dim j As Integer = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s = Dir("c:\*.bmp")
Dim i As Integer
Do While s <> ""
strname(i) = "c:\" & s
s = Dir()
i = i + 1
Loop
If Dir(strname(j)) <> "" Then
Me.PictureBox1.ImageLocation = strname(j)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
j = j + 1
If Dir(strname(j)) <> "" Then
Me.PictureBox1.ImageLocation = strname(j)
End If
End Sub

我用的是文件操作的方法,这种方法是不是只能打开指定的文件啊

   那位知道快些告诉小弟了,多谢了

是不是只能打开指定文件,你没试过吗?

这东西还问回头给我

上面代码已经可以实现"一张一张的读取""图片的循环读取"

下次不会再回答你的问题了

[此贴子已经被作者于2007-10-8 15:28:20编辑过]

抱歉了,这位大哥,真的是无意的
我现在已经试过了,太感谢了,你大人不记小人过,就原谅小弟这次.
小弟很喜欢vb.net,很想通过论坛提高自己的水平,很乡和你这位
高手交个朋友,原谅小弟就给小弟回复一个.
我的邮箱glz20068888@163.com,QQ330444818(红色石头),真的想和你交朋友!