adressof et bouton indexéRésolu

Question

Bonjour,

J'essaie de programmer sur vb.net et j'aimerais savoir si il existe un moyen de faire un lien entre des boutons créer dynamiquement et une fonction commune au bouton mais ayant une variable qui est l'index du bouton.
Voici le code que j'ai commencé:
Public Function NouveauPatient() As Single

        'Création d'un nouveau boutton
        Dim NewBoutton As New Button

        NewBoutton.Visible = True
        NewBoutton.Text = "Bouton " & PositionNouveauPatient
        RecherchePatient.Controls.Add(NewBoutton)
        NewBoutton.Left = 30
        NewBoutton.Top = 20 + (PositionNouveauPatient * 40)
        PositionNouveauPatient = PositionNouveauPatient + 1

        NewBoutton.Name = "Bouton " & PositionNouveauPatient

        'Action si click
        AddHandler NewBoutton.Click, AddressOf ClickBoutton

       End Function

    Public Sub ClickBoutton(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox("Boutton :" & ?????? )
    End Sub
End Module

Et au niveau des ????? j'aimerais qu'il m'indique le numéro de mon bouton donc son index.
Et quand je met AdressOf ClickBoutton(X) où X serait l'index du bouton ca ne fonctionne pas il me met :
L'opérande 'AddressOf' doit être le nom d'une méthode (sans parenthèses)

Pouvez vous m'aider, merci

Séb.

Renfield · Accepted Answer

que représente d'après toi le parametre sender ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic

bobo10 · Answer

Public Sub ClickBoutton(ByVal sender As Object, ByVal e As EventArgs) 
dim boutton as button = nothing
try
boutton = ctype(sender,button)
' ensuite toutes les propriété du sender se trouve dans boutton
' exemple dim NomDuBoutton as string = boutton.name
MsgBox("Boutton :" & ?????? ) 
catch ex as exception
' si Erreure
end Try
End Sub

cs_piou62 · Answer

Merci c'est génial ca fonctionne.
Vous êtes des As

Sébastien

Adressof et bouton indexé

3 réponses

Votre réponse

Discussions similaires