Choix d'un index dans une combobox au hasard avec timer

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:

---

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

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

Code:

---

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

Salut,

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

@+Tipiak