Systhéme de sélection aléatoire dans une ListBox VB.net Résolu/Fermé

Question

Bonjour,

J'aimerais faire un système de sélection aléatoire dans une listbox  qui ne comporte que plusieurs Items du type Text, j'aimerais que lorsque l'utilisateur clique sur un bouton, le text d'un label soit un des mots se trouvant dans la listbox. 

P.S. l'utilisateur pourrait rajouter des Items "text" dans la listbox,     ( >juste si le code doit changer...<)

Merci d'avoir pris le temps de lire
Cordialement VANAUR

NHenry · Answer

Quelle version de VB ? 
VB.NET : Math.Random

Utilisateur anonyme · Answer

Bonjour à vous deux,

oui, j'ai essayer d'utiliser Radom, en regardant une vidéo, et en lisant le problème que vous m'avez donner mais, cela ne correspond pas à ce que je voudrais faire sur mon application, c'est beaucoup plus compliquer que ca, mais j'ai simplifier ma question...

Pour un système de sélection aléatoire, je connais un code qui utilise Select Case
mais, je ne sais pas comment faire pour l'appliquer à une ListBox pour que un des mots (Item) étant contenu dans celle-ci sois le text d'un label aléatoirement "choisi par l'ordinateur" lorsque l'on appuie sur un bouton.

Je n'ai pas de code à vous proposer car, c'est cela que je cherches...

Désoler, je ne sais pas bien m'exprimer pour poser une question, ou pour donner une réponse... :(  vous me l'avez souvent dit d’ailleurs XD

Cordialement VANAUR

Utilisateur anonyme · Answer

Vite fait un truc comme ça
       Dim mesMots As List(Of String) = "Coucou;Hello;Bonjour;Ohayo Gozaimasu;Guten Tag;Hola".Split(";"c).ToList()
        ListBox1.DataSource = mesMots 'binde le contenu la liste sur le controle

'Ajout d'un mot
        mesMots.Add("Salam Aleykoum")

Dim rnd As New Random()

'Tirage avec doublons autorisés
        'à mettre dans ton bouton
        textBox1.Text = mesMots(rnd.Next(mesMots.Count))

'Tirage sans doublons
        Dim mesPossibles As List(Of String) = mesMots.ToList() 'même contenu, référence différente
        'à mettre dans ton bouton
        Dim index As Integer = rnd.Next(mesPossibles.Count)
        textBox1.Text = mesPossibles(index)
        mesPossibles.RemoveAt(index)

Systhéme de sélection aléatoire dans une ListBox VB.net

3 réponses

Discussions similaires