Autres en ce beau dimanche un petit aperçu de mon ribbon creator vba

[patricktoulon]

bonjour a tous
juste un petit apercu de mon ribbon creator VBA version beta 1.0

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

la version avec litview ;la version sans listview et 2/3 projet commencé pour exemple
allez c'est parti les beta testeur 😉

 

[patricktoulon]

a oui mais je suis bien ennuyé on peut pas réécrire dessus il le projet est ouvert

pour les détails de ta version de customui tu va dans propriété de l'exe et l'onglet "details"

je te demande car j'en ai trouvé 4 version différentes

 

[patricktoulon]

@Roblochon
c'est bon implanté mais en latebinding(pas de ref à coché
testé ca fonctionne
j'ai mes caractères accentués

Sub FormatDocToFile(ByVal Doc, ByVal FileName As String)
'Reformats the DOMDocument "Doc" into an ADODB.Stream
'and writes it to the specified file.
'
'Note the UTF-8 output never gets a BOM.  If we want one we
'have to write it here explicitly after opening the Stream.

'Dim rdrdom As MSXML2.SAXXMLReader
    Dim rdrdom As Object
    Set rdrdom = CreateObject("MSXML2.SAXXMLReader.6.0")

    'Dim wtrFormatted As MSXML2.MXXMLWriter
    'Set stmFormatted = New ADODB.Stream

    Dim stmFormatted As Object
    Set stmFormatted = CreateObject("ADODB.Stream")

    With stmFormatted
        .Open
        .Type = 1    'adTypeBinary
        Set wtrFormatted = New MSXML2.MXXMLWriter
        With wtrFormatted
            .omitXMLDeclaration = False
            .standalone = True
            .byteOrderMark = False    'If not set (even to False) then
            '.encoding is ignored.
            .Encoding = "utf-8"    'Even if .byteOrderMark = True
            'UTF-8 never gets a BOM.
            .indent = True
            .output = stmFormatted
            Set rdrdom = New MSXML2.SAXXMLReader
            With rdrdom
                Set .contentHandler = wtrFormatted
                Set .dtdHandler = wtrFormatted
                Set .errorHandler = wtrFormatted
                .putProperty "http://xml.org/sax/properties/lexical-handler", wtrFormatted
                .putProperty "http://xml.org/sax/properties/declaration-handler", wtrFormatted
                .Parse Doc
            End With
        End With
        .SaveToFile FileName
        .Close
    End With
End Sub

 

[Hasco]

Re,

Pour les ids modifiables, un simple test xPath suffit :

Dans la fonction je me préoccupe du langage de sélection car par défaut c'est 'XSLPattern' pour que vous puissiez tester cette fonction sans perturber le reste, le langage de sélection étant rétablit en fin de fonction

Private Function IdExiste(id As String) As Boolean
    Dim oldSelectionLangage As String
    Dim oNode As Object
    '
    oldSelectionLangage = docXML.GetProperty("SelectionLanguage")
    docXML.SetProperty "SelectionLanguage", "XPath"
    
    ' Sélectionnera le premier élément dont l'id est égale au paramètre id
    Set oNode = docXML.SelectNodes("//*[@id='" & id & "'][1]")
    
    IdExiste = oNode.Length > 0
    
    docXML.SetProperty "SelectionLanguage", oldSelectionLangage
End Function

Cordialement

 

[Staple1600]

Re

=>Patrick
[titillement du dimanche aprés-midi]
Ca fonctionne tout aussi bien avec cet ajout
(et ca reste raccord avec ce qu'on peut lire en début de module)
😉

Sub FormatDocToFile(ByVal Doc, ByVal FileName As String)
'procédure fournie par Roblochon un dimanche de mars
[...]
End Sub

[/titillement du dimanche après-midi]

 

[patricktoulon]

re
j'ai déjà une fonction getElementsbyid ?????
tu ne l'a pas vu ?
au mieux pour contenter tout le monde je remet le textbox enable c'est pas la peine de tout re transformer
surtout que le xpath moi j'aim'po

 

[patricktoulon]

je remet les deux a jours dans le post 1 toute a l'heure
je suis obligé de travailler avec open for output puis close et la fonction avec adobdstream a la fin car quand le fichier projet est loadé on peut pas réécrire par dessus le msgbox est clair sur ce point
bref j'ai mes accents 🤣 🤣
je l'avais déjà vu la fonction de roblochon j'en utilise une partie d'ailleurs dans ma fonction d'indentation mais bon pour les accents obligé de sauver le xml avec adobdstream
d'ailleurs je l'utilise uniquement pour le final unzip
je reviens dans 10 minutes je met les deux au propre

 

[patricktoulon]

voila l'archive a été modifiée en post #1
maintenant il serait bien que j'ai des retours sur des customUI.xml aboutis

ça a fait quelques heures de boulot quand même 😳🤪😩

 

[patricktoulon]

j'ajoute 2 boutons furtifs (ucase et propercase ) pour le label ils apparaissent au survol du textbox pour label et ils disparaissent au survol d'ailleurs
les mises a jours seront dispo dans la ressource quand elle sera validée

 

[patricktoulon]

bonjour a tous
juste un aperçu de l'avancée du projet
on gère maintenant tout les control et tout les type de conteneur

 

[patricktoulon]

Bonjour a tous
voila un project abouti
il sera décliné sous 3 versions

1. avec listview pour le dialog imageMso
2. sans listview pour le dialog Mso(methode usf responsif(ma marque de fabrique)
3. avec listview et treeview celle ci utilise les deux( la plus rapide en terme de rafraichiisement d'apercu de l'arborescence)

visuel avec listview

visuel sans listview

et enfin le visuel de la version treeview listview

les 3 versions seront dispos dans la ressource que je publierais d'ici vendredi au plus tard
le temps de faire toute les manips pour chercher les éventuels bogs ou anticiper tout mauvaise manip éventuelle d'un utilisateur que je n'aurais pas imaginé