GROUPE DE CONTRÔLE ET INDEXATION

Commentaire de Liptipoyon le 22/12/2006 09:11:54

Bonjour,
Je ne suis pas non plus un expert VB .NET, mais c'est vrai que ta source répond bien à un problème que j'ai rencontré sans pour autant le solutionner. Donc je t'en remercie.
Pense-tu qu'il soit possible comme dans VB6 de capter un événement sur le group de contrôles ce qui éviterait parfois des lignes de code redondante.
Merci
Bonne prog A+

Commentaire de Liptipoyon le 22/12/2006 11:26:09

Grand Merci Afyn,

J'ai effectivement touvé une solution à ma question.
=>
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim i As Integer
Dim x As Object

        i = 1
        For Each x In Me.Controls
            If TypeOf x Is Label Then
                Etiquette(i) = x
                AddHandler Etiquette(i).Click, AddressOf e_click
                i = i + 1
            End If
        Next
    End Sub

    Private Sub e_click(ByVal sender As Object,ByVal e As System.EventArgs)
     ''''
    End Sub

Il n'est jamais trop tard pour apprendre... ;)

A+

Commentaire de sgeraud39 le 06/01/2007 06:33:33

pour ma part j'ai fais ceci.
Public Class Form1
    Dim Etiquette(0 To 10) As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Etiquette(1) = Button1
        Etiquette(2) = Button2
        

    End Sub

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Etiquette(1).Text = "oui"
        Etiquette(2).Text = "non"

    End Sub
End Class