control de RND()

voila mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

sub button_click(..........) randomize() aleo(str,tab,5) end sub Public Sub aleo(str As String,tableau() As Char,nbaffichage As Integer)   Dim nb As Integer = 0 Dim a As Integer = 0 Dim stri As Integer stri = str.Length - 1 nb = stri - nbaffichage While i <= stri - nb a = CInt((8 * Rnd()) + 1) tab(i) = str.Chars(a) i = i + 1 End While Dim value As String = "" For i = 0 To tableau.Length - 1 value = value + tab(i) Next Me.TextBox1.Text = value end sub

---

le problem est que lorsque je click sur le button charger il me donne une valeur aletoire et quand je supprime la valeur et je click a nouveau il me donne la meme valeur.pourqoui ?

Vu qu'il y a un appel à Randomize à chaque fois, je pense que le problème n'est pas lié à Rnd mais au traitement que tu fais derrière... essaie de l'exécuter pas-à-pas avec le debugger pour voir ce qui ne va pas

j'ai essayé pas mal de fois mais sans resultat.
pour moi s'il marche la premier fois il doit focntionner la 2em fois non ?
:(

Ben là je comprends vraiment pas ton problème... par curiosité, je viens de tester chez moi, et j'ai bien un texte différent à chaque clic sur le bouton !