Créer une boucle for qui next a chaque click d'un bouton [Fermé]

Signaler
Messages postés
4
Date d'inscription
mercredi 16 septembre 2015
Statut
Membre
Dernière intervention
14 juillet 2016
-
Messages postés
15921
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 mai 2021
-
Bonjour,
Je suis présentement en train de coder un petit programme qui affiche un total de 10 images aléatoirement. Chaque image est affiché une fois. J'aimerais pouvoir faire en sorte que lorsque un autre bouton continuer est appuyé, ma boucle "for i = 0 to 9 " fait une pause jusqu'à ce que le bouton continuer soit appuyé, ce qui lui ferait un "next". Le bouton devra etre appuyé 10 fois afin d'afficher l'ensemble des images. Voici mon code.

Public Class frmChoix
    Dim Random As Integer
    Dim n(9) As Boolean
    Dim i As Integer = 0

    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        frmMenu.Show()
        Me.Hide()
    End Sub

    Sub btnAccepter_Click(sender As Object, e As EventArgs) Handles btnAccepter.Click

        For lCnt As Integer = 0 To n.Length - 1
            n(lCnt) = False
        Next lCnt


        Randomize()
        For i = 0 To 9
Start:
            Random = (Rnd() * 9) + 1


            If Not n(Random - 1) Then

                If Random = 1 Then
                    PictureBox1.Image = My.Resources.bergerallemend1
                    n(Random - 1) = True

                ElseIf Random = 2 Then
                    PictureBox1.Image = My.Resources.bergerallemend2
                    n(Random - 1) = True

                ElseIf Random = 3 Then
                    PictureBox1.Image = My.Resources.dingo1
                    n(Random - 1) = True

                ElseIf Random = 4 Then
                    PictureBox1.Image = My.Resources.dingo2
                    n(Random - 1) = True

                ElseIf Random = 5 Then
                    PictureBox1.Image = My.Resources.husky1
                    n(Random - 1) = True

                ElseIf Random = 6 Then
                    PictureBox1.Image = My.Resources.husky2
                    n(Random - 1) = True

                ElseIf Random = 7 Then
                    PictureBox1.Image = My.Resources.wolf1
                    n(Random - 1) = True

                ElseIf Random = 8 Then
                    PictureBox1.Image = My.Resources.loup2
                    n(Random - 1) = True

                ElseIf Random = 9 Then
                    PictureBox1.Image = My.Resources.fox1
                    n(Random - 1) = True

                ElseIf Random = 10 Then
                    PictureBox1.Image = My.Resources.renard2
                    n(Random - 1) = True
                End If
            Else
                GoTo Start
            End If
        Next

    End Sub

End Class

1 réponse

Messages postés
15921
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 mai 2021
700