Automatiser la création de sub event pour des boutons non crééRésolu

Question

Bonjour,

Je suis débutant en VB.net ( je fais des logiciels simple).
Aujourd'hui je souhaite créé une application de bibliothèque de jeux.Pour ce faire j'ai créé un bouton permettant l'ajout du jeu par l'utilisateur.Ce dernier ouvre un openfiledialog et créé un panel dans un flowlayoutpanel ainsi qu'un bouton et une image.Les boutons ne sont donc pas encore créé et il peut y en avoir beaucoup.Ma question est alors comment anticipé et créé des sub event automatiquement pour mes boutons.

Si quelqu'un peut m'aider,merci d'avance.

Whismeril · Answer

Bonsoir

à chaque fois, il n'y qu'un seul bouton?
Fait il toujours la même chose?

Whismeril · Answer

Ok, alors tu dois écrire une méthode qui à la signature d'un click de bouton.
Dans cette méthode tu détermines en fonction du bouton (sender) quel jeux lancer et tu le lances.
Tu peux, par exemple te servir de la propriété Tag ou Name pour identifier le bouton ou de Tag pour stocker le chemin du jeu.

A la création, tu abonnes le click du bouton à cette méthode.
LeBouton.Click += LaMethode

Whismeril · Answer

Bonsoir

'là où tu crées ton bouton
			Dim leBouton As New Button() 'création d'un bouton
			leBouton.Tag = "Démineur" 'association d'un jeu
			AddHandler leBouton.Click, AddressOf LeBouton_Click 'abonnement à la méthode

'plus loin
		Private Sub LeBouton_Click(ByVal sender As Object, ByVal e As EventArgs)
			Dim leBouton As Button = TryCast(sender, Button) 'cast de sender en bouton
			If leBouton Is Nothing Then
				Return 'ça n'est pas un bouton on sort
			End If

Select Case leBouton.Tag.ToString() 'test de la valeur Tag
				Case "Démineur"
					'ici le code pour lancer ce jeu
			End Select
		End Sub

Whismeril · Answer

de rien

Automatiser la création de sub event pour des boutons non créé

4 réponses

Votre réponse

Discussions similaires