Keskustelu: Ohjelmointikysymykset: [VB6] Kuvien selaus

Miksi "kuva.picture" ei koskaan mene "kuva.picture=kuva3.picture":eksi?
Kun klikkaan nextiä niin kuva2 tulee kuva:aan mutta sitten kun klikkaan vielä kerran ei tapahdu enää mitään eikä neljännelläkään klikkauksella.
Käytänkö if:iä väärin?

Private Sub nexti_Click()
If kuva.Picture = kuva.Picture Then
kuva.Picture = kuva2.Picture
stat.SimpleText = "Step 2/19 - Click [Skip scan]"
ElseIf kuva.Picture = kuva2.Picture Then
kuva.Picture = kuva3.Picture
stat.SimpleText = "Step 3/19 - Click [Next]"
ElseIf kuva.Picture = kuva3.Picture Then
kuva.Picture = kuva4.Picture
stat.SimpleText = "Step 4/19 - Click [Next]"
End If
End Sub

Helpompaa kun teet laskurin joka ylläpitää kuvan numeroa. Tämän jälkeen voit tehdä kuvistasi vaikka taulukon ja ladata sitäkautta helposti kulloinkin kyseessä olevan kuvan esille. jee.

En tee noin, mutta keksin vähän erilaisen joka toimii:

Dim kuvis As Integer

Private Sub Form_Load()
kuvis = 1
End Sub

Private Sub nexti_Click()
kuvis = kuvis + 1
If kuvis = 2 Then
kuva.Picture = kuva2.Picture
stat.SimpleText = "Step 2/19 - Click [Skip scan]"
ElseIf kuvis = 3 Then
kuva.Picture = kuva3.Picture
stat.SimpleText = "Step 3/19 - Click [Next]"
ElseIf kuvis = 4 Then
kuva.Picture = kuva4.Picture
stat.SimpleText = "Step 4/19 - Click [Next]"
End If
End Sub

Kannattaa tässätapauksessa käyttää case rakennetta eli siis

Private Sub nexti_Click()
Static I as Integer
I = I + 1
Select Case I
Case 1
Case 2
Case 3
'etc...
End Select
End Sub