Erreur de code ou pas ?

Fermé
André - 20 janv. 2011 à 18:27
crazycode Messages postés 35 Date d'inscription jeudi 20 janvier 2011 Statut Membre Dernière intervention 10 février 2011 - 20 janv. 2011 à 21:46
Bonjour,

Je me présente André je suis novice en programmation , je contact tout les connaisseurs en VB.net car j'ai un souci avec mon générateur de clé

j'ai fait une combobox
un bouton générer
et une texte box

le problème c'est quand je demander de générer les clefs le résultat ne s'affiche pas dans ma texte box

Voici le code ou est le problème ?
y a-t-il un code a mettre dans la texte box ?

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Adobe Dreamweaver" Then
            Dim Key As Integer
            Key = (Rnd() = 8)
            Select Case Key
                Case 1
                    TextBox1.Text = "114558dfdfdf444415"
                Case 2
                    TextBox1.Text = "515654fffffd566188"
                Case 3
                    TextBox1.Text = "481213dfdfdfdfdf31321"
                Case 4
                    TextBox1.Text = "747dfdfdfdfdfd5465465465"
                Case 5
                    TextBox1.Text = "724fdfdfdfzdfezfezf546465454"
                Case 6
                    TextBox1.Text = "4274848ljljjlhlltlltyj944898"
                Case 7
                    TextBox1.Text = "7555l798785767864qdzqdqdzqd8464"
                Case 8
                    TextBox1.Text = "7575rthr4564654mo65i74654qdqdqd6546"
            End Select
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub
End Class





1 réponse

crazycode Messages postés 35 Date d'inscription jeudi 20 janvier 2011 Statut Membre Dernière intervention 10 février 2011 2
Modifié par crazycode le 20/01/2011 à 21:47
d'après le site msdn de microsoft il est dit :
La fonction Rnd retourne une valeur inférieure à 1, mais supérieure ou égale à zéro.
et l'exemple qui suit est :
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))

donc fais les modif nécessaires ;)
0