Private _rand As New System.Random Public Function GetSingleValue(ByVal list As List(Of String), ByRef value As String) As Boolean Dim result As Boolean = False value = String.Empty If (list.Count > 0) Then Dim lastIdx As Integer = list.Count - 1 Dim idx = _rand.Next(0, lastIdx) Value = list(idx) 'retourne une valeur aléatoire list(idx) = list(lastIdx) 'remplace par le dernier élément list.RemoveAt (lastIdx) 'efface le dernier élément result = True End If Return result End FunctionBy Renfield
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.