Code pour buttonMenus de toolbar en vb6
Lenouveauapprenti
Messages postés
306
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
N.B : l'environnement est VB6
J'ai installé à mon application le ToolBar, certains boutons ont Style = tbrDropdown.
Pour les boutons avec style (tbrDefaut) je n'ai pas de problème de code, mais ceux avec style (tbrDropdown) je me suis trouvé dans l'impasse.
Merci d'avance pour votre aide
Je vous présente ci dessous un exemple de mes tentatives écchouées
N.B : l'environnement est VB6
J'ai installé à mon application le ToolBar, certains boutons ont Style = tbrDropdown.
Pour les boutons avec style (tbrDefaut) je n'ai pas de problème de code, mais ceux avec style (tbrDropdown) je me suis trouvé dans l'impasse.
Merci d'avance pour votre aide
Je vous présente ci dessous un exemple de mes tentatives écchouées
Private Sub TBar_ButtonClik(ByVal Button as MSComctLib.Button) If Button.Index=1 then Load FOuvrir Elseif Button.Index=3 then Select Case ButtonMenus.Key Case="Quinzaine" Load FQuinzaine Case="Mensuel" Load FMensuel End Select End if End Sub
A voir également:
- Code pour buttonMenus de toolbar en vb6
- Code ascii - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
9 réponses
Bonjour,
Select Case:
soit comme vous l'a ecrit Roma_31
avec =, le
ToolBar, faudrait mettre a dispo votre Form avec juste la partie code pour cette ToolBar
Select Case:
soit comme vous l'a ecrit Roma_31
Select Case ButtonMenus.Key
Case "Quinzaine"
Load FQuinzaine
Case "Mensuel"
Load FMensuel
End Select
'ou
Select Case ButtonMenus.Key
Case Is = "Quinzaine"
Load FQuinzaine
Case Is = "Mensuel"
Load FMensuel
End Select
avec =, le
Isse met automatiquement, donc vous y a un probleme
ToolBar, faudrait mettre a dispo votre Form avec juste la partie code pour cette ToolBar
Bonjour,
A priori, la syntaxe du select case devrait plutôt être avec Case sans le =
A priori, la syntaxe du select case devrait plutôt être avec Case sans le =
Select Case ButtonMenus.Key
Case "Quinzaine"
Load FQuinzaine
Case "Mensuel"
Load FMensuel
End Select
Re bonjour
Je vous confirme qu'il s'agissait d'un oubli lors de mon message, car le code Select case contient le signe =
Pourtant ne donne rien
Je vous confirme qu'il s'agissait d'un oubli lors de mon message, car le code Select case contient le signe =
Pourtant ne donne rien
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re
Désolé ça ne marche pas. Elle renvoie un message d'erreur d'objet sur
Désolé ça ne marche pas. Elle renvoie un message d'erreur d'objet sur
Select case ButtonMenus.Key
Re
Merci quand même pour la tentative
Merci quand même pour la tentative
PS : Si ButtonMenus est un objet, il est déclaré où ?
PS 2 : une piste ici ? https://codes-sources.commentcamarche.net/forum/affich-21618-toolbar-et-buttonmenus
PS 2 : une piste ici ? https://codes-sources.commentcamarche.net/forum/affich-21618-toolbar-et-buttonmenus
