voila mon script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?