怎样用FOR-NEXT实现读取图片浏览器中"下一张"的功能
我在做一个图片浏览器,可是无法实现一张一张的读取,那位大哥大姐知道怎样实现图片的循环读取的代码,在下在这里谢了!!!!!!
给个最原始的例子你玩玩
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
