sayyadhunter1366
شنبه 07 شهریور 1388, 10:18 صبح
مشکل این کدها در چیست ؟
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If pathcount = pathtotal Then
Exit Sub
Else
pathcount += 1
PictureBox1.ImageLocation = path(pathcount)
Label1.Text = pathcount + 1 & " of " & pathtotal + 1
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If pathcount = 0 Then
Exit Sub
Else
pathcount -= 1
PictureBox1.ImageLocation = path(pathcount)
Label1.Text = pathcount + 1 & " of " & pathtotal + 1
End If
End Sub
این کد ها برای حرکت بین تصاویر در یک برنامه نمایش تصاویر است .
وقتی تصاویر راانتخاب می کنم وبین آنها حرکت می کنم ومثلا به تصویر شماره 10 که میرسم ومجددا توسط openfile dialog تصاویر دیگری راانتخاب می کنم شمارنده از شماره 10 شروع به شمارش می کند ووقتی تعداد عکس ها دراین قسمت کمتر ازعدد10 می باشد مثلا 5تصویر شمارنده از شماره 10به شماره 5 شروع به شمارش می کند وبرنامه errorمی دهد.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If pathcount = pathtotal Then
Exit Sub
Else
pathcount += 1
PictureBox1.ImageLocation = path(pathcount)
Label1.Text = pathcount + 1 & " of " & pathtotal + 1
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If pathcount = 0 Then
Exit Sub
Else
pathcount -= 1
PictureBox1.ImageLocation = path(pathcount)
Label1.Text = pathcount + 1 & " of " & pathtotal + 1
End If
End Sub
این کد ها برای حرکت بین تصاویر در یک برنامه نمایش تصاویر است .
وقتی تصاویر راانتخاب می کنم وبین آنها حرکت می کنم ومثلا به تصویر شماره 10 که میرسم ومجددا توسط openfile dialog تصاویر دیگری راانتخاب می کنم شمارنده از شماره 10 شروع به شمارش می کند ووقتی تعداد عکس ها دراین قسمت کمتر ازعدد10 می باشد مثلا 5تصویر شمارنده از شماره 10به شماره 5 شروع به شمارش می کند وبرنامه errorمی دهد.