Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic bouton dynamique

bouton dynamique

4 réponses
Avatar
sgroulx
Bonjour.
je veux créé de bouton dynamique avec action onclick
mais je ne réussi pas a avoir un action pour chaque bouton.
Quelqu'un a une idée


Voila le code

Option Explicit

Private WithEvents cmd As CommandButton
Dim i As Integer
Dim tc As Long
Private Sub Command1_Click()
i = 0
tc = 0
While i < 4

Set cmd = Controls.Add("VB.CommandButton", "cmdsup" & i)
'Set cmd.Container = frmsebas

cmd.Move 1850, 800 + tc, 1000, 300
cmd.Visible = True
cmd.Caption = "Supprimer"

i = i + 1
tc = tc + 500

Wend
End Sub
Private Sub cmd_Click()
MsgBox "test"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub


Sébas
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques93
Bonsoir sgroulx,
sgroulx a écrit :
Bonjour.
je veux créé de bouton dynamique avec action onclick
mais je ne réussi pas a avoir un action pour chaque bouton.
Quelqu'un a une idée


Voila le code

Option Explicit

Private WithEvents cmd As CommandButton
Dim i As Integer
Dim tc As Long
Private Sub Command1_Click()
i = 0
tc = 0
While i < 4

Set cmd = Controls.Add("VB.CommandButton", "cmdsup" & i)
'Set cmd.Container = frmsebas

cmd.Move 1850, 800 + tc, 1000, 300
cmd.Visible = True
cmd.Caption = "Supprimer"

i = i + 1
tc = tc + 500

Wend
End Sub
Private Sub cmd_Click()
MsgBox "test"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub


Sébas





Pourquoi ne pas utiliser un groupe de contrôles :

Tu crée un CommandButton avec propriétés :

- Index = 0
- Visible úlse

par défaut il va s'appeler Command1(0)

dans l'IDE tu double-click dessus, cela te crée la procédure :

Private Sub Command1_Click(Index As Integer)
MsgBox Index ' à ajouter à la main
End Sub


Ensuite tu rajoutes des boutons avec :

Load Command1(n)
Command1(n).Left = x
Command1(n).Top = y
Command1(n).Visible = True

et tu les supprimes avec

Unload Command1(n)

--
Cordialement,

Jacques.
Avatar
sgroulx
"Jacques93" a écrit dans le message de
news:eD3Dm%23%
Bonsoir sgroulx,
sgroulx a écrit :
> Bonjour.
> je veux créé de bouton dynamique avec action onclick
> mais je ne réussi pas a avoir un action pour chaque bouton.
> Quelqu'un a une idée

Pourquoi ne pas utiliser un groupe de contrôles :

Tu crée un CommandButton avec propriétés :

- Index = 0
- Visible úlse

par défaut il va s'appeler Command1(0)

dans l'IDE tu double-click dessus, cela te crée la procédure :

Private Sub Command1_Click(Index As Integer)
MsgBox Index ' à ajouter à la main
End Sub


Ensuite tu rajoutes des boutons avec :

Load Command1(n)
Command1(n).Left = x
Command1(n).Top = y
Command1(n).Visible = True

et tu les supprimes avec

Unload Command1(n)

--
Cordialement,

Jacques.




Merci ca marche #1
Sébas
Avatar
Jacques93
Bonsoir sgroulx, (pas facile à prononcer un vendredi soir)
sgroulx a écrit :
"Jacques93" a écrit dans le message de
news:eD3Dm%23%

Bonsoir sgroulx,
sgroulx a écrit :

Bonjour.
je veux créé de bouton dynamique avec action onclick
mais je ne réussi pas a avoir un action pour chaque bouton.
Quelqu'un a une idée



Pourquoi ne pas utiliser un groupe de contrôles :

Tu crée un CommandButton avec propriétés :

- Index = 0
- Visible úlse

par défaut il va s'appeler Command1(0)

dans l'IDE tu double-click dessus, cela te crée la procédure :

Private Sub Command1_Click(Index As Integer)
MsgBox Index ' à ajouter à la main
End Sub


Ensuite tu rajoutes des boutons avec :

Load Command1(n)
Command1(n).Left = x
Command1(n).Top = y
Command1(n).Visible = True

et tu les supprimes avec

Unload Command1(n)

--
Cordialement,

Jacques.





Merci ca marche #1
Sébas





Content pour toi, et merci du retour, :-)

--
Cordialement,

Jacques.
Avatar
LE TROLL
Salut,

Si tu mélanges du dynamique et du physique (statique) en
objets, y a après des problèmes d'index de focus à gérer, le
dynamique prenant ses indexs de focus, quand on en ressort
pour aller sur des objets physiques, ben dès fois, le focus
n'est plus bon, faut corriger les indexs manuellement...
---------------

"sgroulx" a écrit dans le message de
news: ub2EO1%
Bonjour.
je veux créé de bouton dynamique avec action onclick
mais je ne réussi pas a avoir un action pour chaque
bouton.
Quelqu'un a une idée


Voila le code

Option Explicit

Private WithEvents cmd As CommandButton
Dim i As Integer
Dim tc As Long
Private Sub Command1_Click()
i = 0
tc = 0
While i < 4

Set cmd = Controls.Add("VB.CommandButton", "cmdsup" &
i)
'Set cmd.Container = frmsebas

cmd.Move 1850, 800 + tc, 1000, 300
cmd.Visible = True
cmd.Caption = "Supprimer"

i = i + 1
tc = tc + 500

Wend
End Sub
Private Sub cmd_Click()
MsgBox "test"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub


Sébas