Code pour buttonMenus de toolbar en vb6

Fermé

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 17 oct. 2021 à 16:36
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 19 oct. 2021 à 11:57

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

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
Code de déverrouillage oublié - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

9 réponses

Réponse 1 / 9

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
19 oct. 2021 à 11:57

Bonjour,

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

Is

se met automatiquement, donc vous y a un probleme

ToolBar, faudrait mettre a dispo votre Form avec juste la partie code pour cette ToolBar

Réponse 2 / 9

Utilisateur anonyme
17 oct. 2021 à 16:57

Bonjour,

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

Réponse 3 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 17:02

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

Réponse 4 / 9

Utilisateur anonyme
17 oct. 2021 à 17:28

justement, il ne faut pas le "=" comme je l'indique dans ma réponse.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 17:30

Re

C'est à dire ?

Utilisateur anonyme
17 oct. 2021 à 17:52

il faut écrire par exemple Case "Quinzaine" au lieu de Case = "Quinzaine"

Réponse 6 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 18:06

Re

Désolé ça ne marche pas. Elle renvoie un message d'erreur d'objet sur

Select case ButtonMenus.Key

Utilisateur anonyme
17 oct. 2021 à 18:19

Navré alors. Jje pensais que c'était une piste mais il est vrai que je n'ai pas fait de VB6 depuis trèèèès longtemps et

Espérons que quelqu'un d'autre pourra aider.

Réponse 7 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 18:20

Re

Merci quand même pour la tentative

Utilisateur anonyme
Modifié le 17 oct. 2021 à 18:38

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

Réponse 8 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 18:40

Re

TBar (ToolBar) est l'objet
Button est sous Objet
ButtonMenus est sous sous objet

Réponse 9 / 9

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
17 oct. 2021 à 18:41

Re

TBar (ToolBar) est l'objet
Button est sous Objet
ButtonMenus est sous sous objet

Utilisateur anonyme
17 oct. 2021 à 19:07

alors, il faut ne faudrait pas écrire Select Case Button.ButtonMenus.Key ?

Discussions similaires

sertissage des cables rj45

Codes de triche GTA Vice City Stories PSP