grille de boutons

Le
JP
Bonjour,

je cherche à faire une grille (10x9) d'elements sur laquele on puisse
simplement cliquer pour les valider.
Des controles de type Label ou Bouton me semble répondre.
Mais comment faire pour ne pas être obligé de répéter les procédures
pour chacun des boutons ?

Merci de vos lumières
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5226171
Bonjour,

Utiliser un module de classe.

http://boisgontierjacques.free.fr/pages_site/classe.htm

Crée un groupe de boutons et lui affecte une procédure (sur Click)

Créer un module de classe et le nommer ClasseBoutons:

Public WithEvents GrChiffres As Msforms.CommandButton
Private Sub GrChiffres_Click()
Calculette.Result = Calculette.Result & GrChiffres.Caption
End Sub

Dans le formulaire:

Dim Btn(0 To 10) As New ClasseBoutons
Dim operande, operateur
Private Sub UserForm_Initialize()
' Crée un groupe de boutons GrChiffres avec les boutons
Chiffre0,Chiffre2,...
For b = 0 To 10: Set Btn(b).GrChiffres = Me("chiffre" & b): Next b
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_Calculette.xls

JB
http://boisgontierjacques.free.fr

On 18 mar, 09:41, "JP" wrote:
Bonjour,

je cherche à faire une grille (10x9) d'elements sur laquele on puisse
simplement cliquer pour les valider.
Des controles de type Label ou Bouton me semble répondre.
Mais comment faire pour ne pas être obligé de répéter les procéd ures
pour chacun des boutons ?

Merci de vos lumières


eneric
Le #5226031
eneric vous demande
bonjour JB
je me sers de ta mini calculette qui est tres interressante
(surtout dans des feuilles ou il n'y a plus de place dispo )
et je voulais si c'etait possible de rajouter des
boutons du genre racine carree ou % (qui ne sont pas des operateurs)
et je crois savoir que VB6 ne gere pas le symbole racine
voila merci du renseignement
eneric

--
eneric
JB
Le #5190861
Bonjour,

Private Sub Racine_Click()
Me.Result = Me.Result ^ 0.5
End Sub

JB

On 18 mar, 12:51, eneric
eneric vous demande
bonjourJB
je me sers de ta mini calculette qui est tres interressante
(surtout dans des feuilles ou il n'y a  plus de place dispo )
et je voulais si c'etait possible de rajouter des
boutons du genre racine carree ou % (qui ne sont pas des operateurs)
et je crois savoir que VB6 ne gere pas le symbole racine
voila merci du renseignement
eneric

--
eneric


eneric
Le #5190471
eneric vous demande
Bonjour,
merci JB

eneric



--
eneric


Publicité
Poster une réponse
Anonyme