Bonsoir,
je cherche à créer une fonction qui permettra d'afficher dans une txtbox des caractères aléatoires (comme un captcha) en cliquant sur un label.
Voici mon code, le probleme est qu'au lancement du fichier.exe se sont toujours les memes qui sont générer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub valide_Click() captcha = TXTCAPTCHA(10) End SubMerci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Function Rndtxt(Optional Chrlength As Integer = 8) As String Dim RNDWORD As String Dim LoopVar As Integer Const rndstring = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" For LoopVar = 1 To Chrlength RNDWORD = RNDWORD & Mid(rndstring, Int(Rnd * 32) + 1, 1) Next LoopVar TXTCAPTCHA = RNDWORD End Function
Partager