Discussion :

[Martipit]

Bonjour,

Toujours dans le cadre de mon application de gestions de mimes et quizz, je souhaiterais pouvoir choisir un quizz au hasard.

Je suis parti sur un timer qui me ferait défiler rapidement dans un "label" les noms des Quizs qui se trouvent dans la "combobox"

J'ai un bouton départ qui lance le timer et l'arrête au top du candidat et un label dans lequel je voudrais faire afficher les uns après les autres, les quizz se trouvant la combobox

Pour linstant je ne vois pas comment faire pour que cela fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Btn_QuizzDepartQuizzAuHasard_Click(sender As Object, e As EventArgs) Handles Btn_QuizzDepartQuizzAuHasard.Click
        If Btn_QuizzDepartQuizzAuHasard.Text = "Départ" Then
            Tim_QuizAuHasard.Enabled = True
            Btn_QuizzDepartQuizzAuHasard.Text = "Stop"
        Else
            Tim_QuizAuHasard.Enabled = False
            Btn_QuizzDepartQuizzAuHasard.Text = "Départ"
        End If
    End Sub
 
    Private Sub Tim_QuizAuHasard_Tick(sender As Object, e As EventArgs) Handles Tim_QuizAuHasard.Tick
        Lab_QuizzNomDuQuizz.Text = Cb_QuizzChoix.SelectedIndex + 1
    End Sub

Merci par avance à celui ou celle qui pourra m'aider.

@+ Martipit

[Martipit]

Re,
En cherchant un peut et en modifiant des bouts de codes, j'ai fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Random As New Random
        Dim Index As Integer
        Index = Random.Next(0, Cb_QuizzChoix.Items.Count)
        Cb_QuizzChoix.SelectedIndex = Index
        Lab_QuizzNomDuQuizz.Text = Cb_QuizzChoix.SelectedItem.ToString()

Je ne sais pas si cela est très académique mais ça a la mérite de fonctionner...

Si il y a d'autres solutions je suis preneur lol


@+ Martipit

[Martipit]

Salut,

Pas de nouvelles propositions, donc je marque le sujet comme résolu...

@+Tipiak