Activer un évenement dans le style du handler [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Activer un évenement dans le style du handler [Résolu]

Adn56 1220 Messages postés jeudi 24 mai 2007Date d'inscription 28 septembre 2013 Dernière intervention - 27 oct. 2009 à 20:25 - Dernière réponse : Adn56 1220 Messages postés jeudi 24 mai 2007Date d'inscription 28 septembre 2013 Dernière intervention

- 28 oct. 2009 à 07:38

VB.NET Posez votre question Signaler Répondre au sujet

Voila j'ai pas trop de temps de chercher alors si quelqu'un connais la soluce je le remercie !
prblm :
je créer des controls via le code et j'arrive parfaitement à activer l'évenement des boutons, maintenant je ne sais pas pourquoi il refuse d'en faire autant pour les labels que je crée, voici le code :

    Private Sub create_combo()
        'évite de recréer les controls si modif couleur ou reload d'une courbe
        If Not BP_fait Then
            Dim lblfont As New Font("Times New Roman", 12) ' la font des labels
            For y As Integer = 1 To 15 ' création des controls
                ' Création des BPs
                Dim BP As Button = New Button
                With BP
                    .Name = "bp-" & y.ToString  ' nom des boutons 
                    .Size = New Size(22, 35) 'taille des boutons
                    .Location = New Point(5, 30 + (y * BP.Size.Height)) 'place les boutons sur x puis y
                    .Text = ""
                    .Tag = y.ToString 'définie son tag pour le reconnaitre
                    .Cursor = System.Windows.Forms.Cursors.Hand 'modifie le curseur lors du survol
                    .BackColor = couleur(y)
                End With
                Dim lbl As System.Windows.Forms.Label = New System.Windows.Forms.Label
                With lbl
                    .Name = "lbl-" & y.ToString
                    .Size = New Size(Llbl, 20)
                    .Location = New Point(30, 40 + (y * BP.Size.Height))
                    ' Lecture du fichier INI pour le nom des courbes
                    .Text = LireINI("Nom Courbes", y.ToString)
                    .Cursor = System.Windows.Forms.Cursors.Hand 'modifie le curseur lors du survol
                    .Font = lblfont
                End With
                AddHandler BP.Click, AddressOf BP_Click 'active l'évenement du clic du Bp sur la sub Bp_click
'                ==> là ça merde 'AddHandler BP.Click, AddressOf lbl_Click 'active l'évenement du clic du label sur la sub Bp_click
                Me.Controls.Add(lbl)
                Me.Controls.Add(BP) ' ajoute le bouton sur la form
                BP_fait = True ' pour ne pas refaire les controls sur un reload de courbe !
            Next y
        End If
    End Sub 'création des boutons

cordialement @dn et d'avance merci pour votre aide !
Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Afficher la suite

3 réponses

Répondre au sujet

Signaler Commenter la réponse de Marroubi

Marroubi 51 Messages postés lundi 18 mai 2009Date d'inscription 30 octobre 2009 Dernière intervention - 27 oct. 2009 à 21:17

0

Utile

bonsoir,
je sais pas ce que tu veut adresser vers le même évènement avec deux proc ou quoi?

 AddHandler BP.Click, AddressOf BP_Click 'active l'évenement du clic du Bp sur la sub Bp_click
AddHandler BP.Click, AddressOf lbl_Click 'active l'évenement du clic du label sur la sub Bp_click

pour la deuxième ligne de ton code signifie que lors du click sur le bouton BP la proc lbl_Click s'exécute.est ce que ca ce que tu veut ou pas?

si non, tu change ce morceau par:

AddHandler lbl.Click, AddressOf lbl_Click 'active l'évenement du clic du label sur la sub lbl_click

la prochaine, essaye d'écrire l'erreur surviens .

Bonne Casse-tête.

Signaler Commenter la réponse de Adn56

Adn56 1220 Messages postés jeudi 24 mai 2007Date d'inscription 28 septembre 2013 Dernière intervention - 28 oct. 2009 à 07:26

0

Utile

Salut, Oui je veux que le clic sur le label active la même Sub (bp.click) que celui sur le bouton, mais voila il me dis que lbl_Click n'est pas déclaré Alors que Bp_click marche trés bien

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Accepted Answer

+3

Utile

Bon j'ai trouvé, je shoot dans les boites en ce moment, dsl pour le post à deux balles !
Voila la soluce (j'ai confondu la sub bp_click avec l'événement) voici le bon code (quelle andouille j'vous jure)

  AddHandler BP.Click, AddressOf BP_Click 'active l'évenement du clic du Bp sur la sub Bp_click
                 AddHandler lbl.Click, AddressOf BP_Click 'active l'évenement du clic du label sur la sub Bp_click

'La sub est BP_Click, pas BP.click

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Cette réponse vous a-t-elle aidé ? Oui Non

Activer un évenement dans le style du handler [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !