Bonjour à tous,
Alors voila, j'essaye de faire un générateur de code mais quand je lance mon code, j’appuie sur le bouton générer mais ça ne marche et je ne vois pas d'erreurs dans mon code, quelqu'un pourrait m'éclairer sur ce problème ?
Merci d'avance.
Le code :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Générer.Click
Timer1.Start()
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
ProgressBar1.Increment(2)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
TextBox1.Text = Int(Rnd() * 20)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "6G78-89FR-GH58-7541"
Case 1
TextBox1.Text = "624H-5RF1-45FD-FCDS"
Case 2
TextBox1.Text = "568D-48DQ-48ED-HJ55"
Case 3
TextBox1.Text = "FSG7-84SC-SCJH-4545"
Case 4
TextBox1.Text = "DGUD-68FD-656S-87SD"
Case 5
TextBox1.Text = "YFGZ-CDSQ-564D-DQS4"
Case 6
TextBox1.Text = "VBT5-BBTR-DBJT-ZD64"
Case 7
TextBox1.Text = "45CS-SDQ4-CVBG-D46A"
Case 8
TextBox1.Text = "VJSH-46S7-45DV-546X"
Case 9
TextBox1.Text = "464F-FEF5-ASQX-MPVS"
Case 10
TextBox1.Text = "KGF8-EFBG-6464-SCBR"
Case 11
TextBox1.Text = "124D-8RCH-FHII-I357"
Case 12
TextBox1.Text = "356T-YHR4-UJTG-G6IH"
Case 13
TextBox1.Text = "634U-T525-790T-5321"
Case 14
TextBox1.Text = "4256-GT65-GJU7-672E"
Case 15
TextBox1.Text = "37U8-E467-479J-457J"
Case 16
TextBox1.Text = "47I7-659J-08DZ-3DGT"
Case 17
TextBox1.Text = "4368-H670-U532-9F42"
Case 18
TextBox1.Text = "2UYG-GF33-GH86-Y85H"
Case 19
TextBox1.Text = "2345-G46R-Y67I-Z236"
End Select
MsgBox("Votre code a bien était générer.")
ProgressBar1.Value = 0
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class