Création dynamique de boutons vb.net 2003
Description
Voilà, je cherchais un source pour créer une application nécessitant la création d'un nombre de bouton variable.
Comme j'ai rien trouvé, à partir de quelques infos je l'ai créé.
Une fois fini, je me suis dit que ca pouvait servir à quelqu'un alors j'ai fait une version semi tuto.
Dans l'appli, y a deux objets l'objet bouton et conteneur de bouton.
On trappe l'événement de l'objet bouton
Les boutons se placent suivant leur nombre et le paramétrage du nombre de bouton par ligne.
Dans l'exemple, les boutons sont crées suivant leur numéro et la variable "tarif" correspond au numéro de bouton, mais vous pouvez mettre une valeur single.
voila je crois que j'ai tout dit, juste je crois que je vais vous livrer prochainement une version suivant une base Access... si j'ai le temps.
Voila si vous avez des questions n'hésitez pas.
Comme j'ai rien trouvé, à partir de quelques infos je l'ai créé.
Une fois fini, je me suis dit que ca pouvait servir à quelqu'un alors j'ai fait une version semi tuto.
Dans l'appli, y a deux objets l'objet bouton et conteneur de bouton.
On trappe l'événement de l'objet bouton
Les boutons se placent suivant leur nombre et le paramétrage du nombre de bouton par ligne.
Dans l'exemple, les boutons sont crées suivant leur numéro et la variable "tarif" correspond au numéro de bouton, mais vous pouvez mettre une valeur single.
voila je crois que j'ai tout dit, juste je crois que je vais vous livrer prochainement une version suivant une base Access... si j'ai le temps.
Source / Exemple :
' dans les déclarations
Dim WithEvents MyControlArray As Buttonarray
' dans le load de la fenêtre principale
MyControlArray = New Buttonarray(Me)
' Au moment de d'ajouter un bouton
' Propriété .AddNewButton(taille_x, taille_y, pos_x, pos_y, "Nom", "Texte", Valeur_Tarif)
MyControlArray.AddNewButton(taille_x, taille_y, pos_x_espace + base_x * (taille_x + 5), pos_y_espace + (base_y * 5) + (base_y) * taille_y, "Bouton n° " & v.ToString, "Nom_Btn" & v.ToString, v)
' Gestion de l'évènement générer par les boutons
Private Sub ButtonArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyControlArray.Ev_Event
' Mettre votre action ici
MsgBox("Bouton Cliqué est " & CType(CType(sender, ClassBtn).texte, String) & vbCr & "Valeur " & CType(CType(sender, ClassBtn).tarif, String))
Valeur_Prix = CType(sender, ClassBtn).tarif
End Sub
Conclusion :
Voila si vous avez des questions n'hésitez pas.
Codes Sources
A voir également
- Création dynamique de boutons vb.net 2003
- Mode création excel ✓ - Forum VBA Office (Excel, Word ...)
- Vb.net sleep ✓ - Forum Visual Basic
- Python date de creation ✓ - Forum Python
- Bouton de commande ✓ - Forum Visual Basic
- Template site web dynamique php - Conseils pratiques -PHP
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.