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 Function
|
| By Renfield |