Willekeurig item uit listview halen

[geertd]

Hallo allemaal,

Ik wil in een label de tekst van een willekeurig listview item zetten.
Nu heb ik al een deel van een code:

Public Function randomize(ByVal aantalkeuzes As Integer)
        Dim random As New Random
        Dim randomnumber As Integer = random.Next(1, aantalkeuzes)
        Return randomnumber
    End Function
    Public Sub nieuwevraag(ByVal begin As Boolean)
        Dim aantalitems As Integer = Form1.ListView2.Items.Count.ToString
        Dim itemnummer As String = randomize(aantalitems)
        Form1.RichTextBox1.Text = Form1.ListView2.Items.Find(itemnummer, False)
    End sub

Het probleem zit hem dus in de laatste regel, logisch wat ik had geen idee hoe ik dat zou moeten doen...

Kan iemand mij helpen?

Alvast bedankt,

Geert

 

[matthijsk]

Dit is op zich niet zo heel spannend:

Public Sub nieuwevraag(ByVal begin As Boolean)
        Dim aantalitems As Integer = Form1.ListView2.Items.Count.ToString
        Dim itemnummer As String = Randomize(aantalitems)
        Form1.RichTextBox1.Text = Form1.ListView2.Items[itemnummer -1].Text
End Sub

 

[geertd]

Hey bedankt,

Ik had inmiddels al bedacht dat ik ook een array aan kon maken met daarin alle waarden van de listview en dan zo dus:

Public Function uitvoer
        Dim array As New System.Collections.ArrayList
        Dim counter As Integer = 10
            Do While counter > 0
                wwgetalarray.Add("1")
                counter = counter - 1
            Loop
             Dim aantalarrayitems = array.Count
        Dim willekeurig As Integer = (randomize(0, aantalarrayitems - 1))
        Dim uitvoer As Integer = array(willekeurig)
        array.Clear()
        Return uitvoer
    End Function

Zo kan ik dus ook weging toevoegen door items vaker aan de array toe te voegen.


ECHTER...:
In mijn programma's worden meerdere randomwaarden gebruikt om een string te creëren.
Nu valt mij heel erg op dat de willekeurigheid van die string wel heel erg tegenvalt.

Zou het niet helpen een willekeurige (random) sleep tussen het genereren van de verschillende randomwaarden te voegen?

Of is er nog een makkelijkere manier?

 

[Cornelis96]

Wil je even boven klikken dat de vraag beantwoord is???

TNX:thumb:

Groeten Corné Oppelaar