Microsoft 365 CreatorRibbonX ImageMso 2023

Philippe17

XLDnaute Occasionnel
Supporter XLD
Bonjour à toutes et à tous,
Tout d'abord, je remercie Patrick pour l'assistance et la conception de (CreatorRibbonX ImageMso 2023), c'est un outil très fonctionnel, puissant et cerise sur le gâteau, facile à utiliser même quand tu ne connais pas grand-chose, prendre seulement le fil de discussions dès le début (CreatorRibbonX ImageMso 2023) c'est très simple. J'ai donc créé mon premier ruban adapté à mon classeur uniquement (version CreatorRibbonX ImageMso 2023 V4.9.X 4.9.9.3.8)

Mon premier ruban :
Mon premier Ruban.png


Franchement, je vous le recommande ;)

Je vais en profiter pour poser une question, possible d'afficher la date du jour dans le ruban format comme sur l'image ?

Mon premier Ruban2.png


Bonne fin de journée à toutes et à tous,

Philippe 😇
 
Solution
Bonjour Philippe
re
oui en effet la version 4.xx.8 n'autorise pas
perso ma version est complètement debloquée
je débloque petit a petit les choses car au départ ça s'adresse vraiment au débutants
c’était pour leur eviter de confondre et mettre du callback dynamique partout
en attendant
tu n'a qua coller la partie qui t’intéresse de mon code en ouvrant ton exemple .xml
et ré ouvrir après avec le creator
sinon tu me donne ton exemple .xml je te le fait en deux proposition

Valtrase

XLDnaute Occasionnel
Bonjour à tous,
Malheureusement, je ne pense pas que cela soit possible, sur un label, ou une EditBox. Peut être avec une usine à gaz, et des images, mais est-ce bien raisonnable.
Windows contrairement à Androîde pour ne pas le citer, a des standards, et il est normal de s'y conformer, sinon c'est la porte ouverte à tout...
Par contre si vous voulez afficher la date dans un Label ou une EditBox alors c'est avec getText qu'il va faloir travailler.
Exemple avec un EditBox dont l'Id est "ebxDate"
VB:
'@Description "Spécifie une donnée par défaut pour le contrôle."
Public Sub GetTextEditBox(Control As IRibbonControl, _
                          ByRef strText)
    Select Case Control.id
        Case "ebxDate"
            strText = Format(Date, "Long date")
            
        Case Else
            strText = GetTheValue(Control.Tag, "DefaultValue")
    End Select
End Sub

Bien entendu il faut faire l'appel au CallBacks dans le fichier Xml
Code:
<editBox id="ebxDate"
                             label="Date"
                             screentip="Date du jour"
                             supertip=" "
                             imageMso="CalendarToolSelectDate"
                             getText="GetTextEditBox"
                             onChange="OnChangeEditBox"
                             tag="Key:=;DefaultValue:="
                             getVisible="GetVisible"
                             getEnabled="GetEnabled"/>
 

patricktoulon

XLDnaute Barbatruc
Bonjour
Bravo tu es le premier a présenter un ruban complet avec creatorRibbonX
alors oui on peut
en gros comme ca je sais pas mais avec un LabelControl oui
et pour le labelcontrol c'est getlabel pas gettext
a la fin de ton ruban tu ajoute le label control
c'est un label qui se place automatiquement en haut du ruban
comme ca vite fait dans un nouveau projet
XML:
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI azerty="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CustomUIOnLoad">
    <!--CreatorRibbonX imageMso 2024 Version 4.9.9.3.8developed BY patricktoulon-->
    <!--project Ribbon name :datos-->
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tab_1" label="Onglet Perso">
                <group id="group_0" label="Groupe N° 1">
                    <labelControl id="labelControl_1" getLabel="labelControl_1_getLabel"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

le callback
VB:
Sub labelControl_1_getLabel(control As IRibbonControl, ByRef label)
 label = Date
End Sub
nul besoin de faire un invalidate ;)
 

Philippe17

XLDnaute Occasionnel
Supporter XLD
Bonjour à toutes et à tous,
Merci Valtrase, merci pour votre réponse, je testerai plutôt la version de Patrick, car j'utilise creatorRibbonX,
Merci Patrick pour votre réponse, je viens de tester la solution dans "creatorRibbonX" et je rencontre un problème, dans <labelControl id="labelControl_1"/> je ne peux pas intégrée "getLabel="labelControl_1_getLabel"/> car c'est gris, c'est normal, ou je ne fais pas ce qu'il faut ?

Philippe 😇
 

Pièces jointes

  • Sample.xlsm
    12.1 KB · Affichages: 15

patricktoulon

XLDnaute Barbatruc
Bonjour Philippe
re
oui en effet la version 4.xx.8 n'autorise pas
perso ma version est complètement debloquée
je débloque petit a petit les choses car au départ ça s'adresse vraiment au débutants
c’était pour leur eviter de confondre et mettre du callback dynamique partout
en attendant
tu n'a qua coller la partie qui t’intéresse de mon code en ouvrant ton exemple .xml
et ré ouvrir après avec le creator
sinon tu me donne ton exemple .xml je te le fait en deux proposition
 

patricktoulon

XLDnaute Barbatruc
bravo
je me répète mais tu es le premier a presenter un ruban aussi simple soit il mais fini et même avec une donnée dynamique
ce qui prouve bien que la méthode et mon principe d'aide au débutants fonctionne
merci pour la demo
ça m'encourage à aller plus loin encore dans la conception d'autres options
par exemple un simple bouton pour ajouter la date dynamique du jour sans que tu ai besoin de le coder
tu m'a fait plaisir merci ;)
 

Discussions similaires

Réponses
1
Affichages
714

Statistiques des forums

Discussions
315 090
Messages
2 116 107
Membres
112 661
dernier inscrit
ceucri