Code pour buttonMenus de toolbar en vb6

Question

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

Utilisateur anonyme · Answer

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

Lenouveauapprenti · Answer

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

Utilisateur anonyme · Answer

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

Lenouveauapprenti · Answer

Re

C'est à dire ?

Lenouveauapprenti · Answer

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

Select case ButtonMenus.Key

Lenouveauapprenti · Answer

Re

Merci quand même pour la tentative

Lenouveauapprenti · Answer

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

Lenouveauapprenti · Answer

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

f894009 · Answer

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

Code pour buttonMenus de toolbar en vb6

9 réponses

Discussions similaires

Newsletters