Adressof et bouton indexé [Résolu]

cs_piou62 40 Messages postés vendredi 4 avril 2008Date d'inscription 12 septembre 2012 Dernière intervention - 8 déc. 2009 à 07:29 - Dernière réponse : cs_piou62 40 Messages postés vendredi 4 avril 2008Date d'inscription 12 septembre 2012 Dernière intervention
- 8 déc. 2009 à 17:59
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.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 8 déc. 2009 à 09:03
3
Merci
que représente d'après toi le parametre sender ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de Renfield
Meilleure réponse
bobo10 22 Messages postés mardi 14 mars 2006Date d'inscription 11 décembre 2009 Dernière intervention - 8 déc. 2009 à 11:19
3
Merci
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

Merci bobo10 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de bobo10
cs_piou62 40 Messages postés vendredi 4 avril 2008Date d'inscription 12 septembre 2012 Dernière intervention - 8 déc. 2009 à 17:59
0
Merci
Merci c'est génial ca fonctionne.
Vous êtes des As

Sébastien
Commenter la réponse de cs_piou62

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.