Sujet Précédent Sujet Suivant

Code pour buttonMenus de toolbar en vb6

Fermé
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 17 oct. 2021 à 16:36
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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:

9 réponses

Réponse 1 / 9
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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
1
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
0
Réponse 3 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 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
0
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.
0

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

Posez votre question
Réponse 5 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
17 oct. 2021 à 17:30
Re

C'est à dire ?
0
Utilisateur anonyme
17 oct. 2021 à 17:52
il faut écrire par exemple Case "Quinzaine" au lieu de Case = "Quinzaine"
0
Réponse 6 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 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
0
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.
0
Réponse 7 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
17 oct. 2021 à 18:20
Re

Merci quand même pour la tentative
0
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
0
Réponse 8 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
17 oct. 2021 à 18:40
Re

TBar (ToolBar) est l'objet
Button est sous Objet
ButtonMenus est sous sous objet
0
Réponse 9 / 9
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
17 oct. 2021 à 18:41
Re

TBar (ToolBar) est l'objet
Button est sous Objet
ButtonMenus est sous sous objet
0
Utilisateur anonyme
17 oct. 2021 à 19:07
alors, il faut ne faudrait pas écrire Select Case Button.ButtonMenus.Key ?
0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
Codes bateaux et avion GTA vice city Stories
matt3610 -
Diglo -

30 réponses
Acces à snapchat temporairement désactivé
Anto_1234 -
M2 -

87 réponses
liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses