Discussion :

[lucaazori1988]

salut a tous, mon probleme est un peu special (peut etre classique aussi)
je fais le parcours de ma table "EXAMEN" et avec un data reader j`affiche les nom des examens sous forme de boutons :

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
23
24
25
26
27
28
29
30
31
Private Sub ListeExamens_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim x As Integer = 70
            ' Préparer la requete.
            Dim sqlQRY1 As String = "SELECT Int_Exa FROM EXAMEN"
            myConnexion.Open()
            ' exécuter la requete
            Dim cmd1 As OleDbCommand = New OleDbCommand(sqlQRY1, myConnexion)
            Dim data_reader As OleDbDataReader = cmd1.ExecuteReader()
            Do While data_reader.Read()
                ' Déclarer le bouton
                Dim btn As New Button
                'lui donner une dimension
                btn.Size = New Drawing.Size(200, 30)
 
                'lui attribuer un texte
                btn.Text = data_reader.GetString(0)
 
                ' Lui donner une position
                btn.Location = New Drawing.Point(300, x)
                x += 50
                ' L'ajouter à la collection des contrôles de la fenêtre
                Me.Controls.Add(btn)
            Loop
            data_reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            myConnexion.Close()
        End Try
    End Sub

ceci est dans le load du form.
Jusque la tout se passe bien.
Maintenant je veux que lorsque je clique sur n`importe quel bouton un msgbox s`affiche avec message genre "vous avez choisi l`examen 2"
ou "vous avez choisi l`examen 3" ou tel.
Pour cela j`ai ecrit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("vous avez choisi l`examen tel")
    End Sub

mon probleme ici lorsque je clique sur n`importe quel bouton rien ne s`affiche
merci pour toutes interventions

[chrismonoye]

Bonjour,
il semble manquer à la création du bouton, l'association à l'événement Click, qui peut se faire avec AddHandler.
Et aussi, je ne sais pas si c'est nécessaire de lui donner un nom avec .Name?