SKINS B1 AVEC TRANSPARENCE, MODIFIEZ L'ESTHÉTIQUE DE VOS APPLICATIONS À VOTRE GUISE (W2K & +)

Commentaire de Saros le 06/03/2005 14:44:52

C'est le fichiers .manifest dans les zip ? Ca fait un certain temps que je me pose cette question

screenshot avec un seul 'o' ^^

Chez moi la mise en cascade de tous les skins marche très bien.
Et j'ai pas compris la formulation de ton second problème :)

...
Si c'est vraiment ta première source, il n'y a vraiment pas de quoi en avoir honte (lol) là je te mettrais 10 ou 9. Et j'hésiterais pas à la mettre en niveau initié.

Commentaire de Saros le 06/03/2005 16:39:38

Je me suis trompé en écrivant, je voulais dire "C'est quoi le fichiers .manifest dans les zip ?"

Avec la transparence il y a pas mal de problèmes de compatibilités... Il doit y avoir une fonction équivalente sous W98 et Millenium non ?

Commentaire de PCPT le 06/03/2005 19:57:43 administrateur CS

je viens d'enlever le projet complet de "vrac-perso", désolé...
(pour éviter aux "non-inscrits" d'avoir la source)

si le compteur est exact, 303 visites en 2 jours, svp, laissez des commentaires ;)
PCPT

Commentaire de HwW_Mb le 08/03/2005 02:11:16

pas mal comme source ! corrige le bug transparence et ca sera 10/10
je met 9/10 ! bonne continuation et aussi bon courage :)

Commentaire de ldx le 10/03/2005 13:37:19

Bonjour à tous

PCPT je te réponds ici car je crois que ce qui suit peut intéresser d'autres personnes :

1- J'aimerais bien que quelqu'un me donne la définition d'un "SKIN", à quoi cela sert-il ?

2- Je te proposes l'amélioration suivante :

constat :
Quand on clique dans le menu (en haut à gauche d'un form généré avec le bouton droit) on a la possibilité de déterminer un coefficient de transparence (sous-menu 6) - J'en profite pour féliciter Dolphin pour son scroll rotatif

Une fois ce coef. déterminé, on clique sur le sous-menu et notre form généré devient plus ou moins transparent

Proposition :
Visualiser l'effet de transparence au fur et à mesure de notre choix

Pour ce faire ...
a/ dans FORM_MENU_SKIN - sub LBL_MENU_Click ...
on supprime le contenu de  "case 6"

        Case 6:  'alpha feuille appelante
'            Géré directement dans ALPHA_SCROLL_SCROLL

b/ on remplace la sub : ALPHA_SCROLL_Scroll() par :


Private Sub ALPHA_SCROLL_Scroll()

    Dim CoefTransparence As Byte
    Dim AliasForm As Form
    
    TagAppelant = Mid(Me.Tag, 6, Len(Me.Tag))
    
    LBL_MENU(6).Caption = "     " & CByte(ALPHA_SCROLL.Value) & "% de transparence"
    
    Select Case ALPHA_SCROLL.Value
        Case Is > 99
            CoefTransparence = 255      'Transparence maximale
        Case Is < 1
            CoefTransparence = 0        'opacité maximale
        Case Else
            CoefTransparence = CByte(ALPHA_SCROLL.Value * 2.55)
    End Select  'ALPHA_SCROLL.Value
    
    For Each AliasForm In Forms
        Select Case AliasForm.Tag
            Case TagAppelant
                SetLayeredWindowAttributes AliasForm.hWnd, &HFF00FF, (255 - CoefTransparence), LWA_ALPHA Or LWA_COLORKEY
                DoEvents
        End Select
    Next
    
    Set AliasForm = Nothing
    
End Sub

Celle-ci reprend en partie le contenu de l'ancien "Case 6"

La ligne importante est :

SetLayeredWindowAttributes AliasForm.hWnd, &HFF00FF, (255 - CoefTransparence), LWA_ALPHA Or LWA_COLORKEY

Importante parce que on introduit un "OR" . Celui-ci permet d'une part de supprimer la couleur de transparence et d'autre part de rendre plus ou moins transparent le form généré

(il faut avoir déclaré les 2 constantes  Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2 présentes ici dans  MOD_TRANSPARENCE)

Le "OR" semble faire la différence avec le "WndSetOpacity" que beaucoup d'entre nous connaissent (celui-ci effectue apparemment qu'une seule tâche à la fois)

3- Question : Pourquoi avoir utilisé un manifeste appelant  Microsoft Common Control 6.0 ? Ne pouvais-t'on pas le sélectionner directement dans les composants ?

C'est vraiment un beau programme !

Charles-Marie CLUZEL  LDX Informatique

Commentaire de ldx le 10/03/2005 22:02:12

bonsoir

merci pour les infos

Effectivement et personnellement j'utilise un slider vertical pour la transparence dans mes programmes.

Les valeurs sont effectivement sauvegardées dans une BD toute simple puis dans un fichier options quand on quitte le prog (J'ai actuellement 12 progs qui fonctionnent individuellement tout en communiquant avec les autres. Ex. : Je n'ai qu'une barre de bouton (prog)  pour l'ensemble des progs.... d'où la nécessité de conserver les valeurs)

Suite à ton message, j'ai reessayé ton instruction avec &H3. J'avais raté quelque chose. Le &H3 cumule bien le LWA_ALPHA et LWA_COLORKEY. Excuse Me !

On dit toujours que la science c'est d'abord l'expérimentation. C'est pour avoir vu pas mal d'API fonctionner avec des "OR" que j' eu l'idée de l'appliquer à cet API (Setlayered...) et cela a marché => ne me demande donc pas le pourquoi. (je ne connaissais pas le &H3)

Quand au manifest, j'en avais entendu parler au hasard des ... Mais jamais je ne l'avais utilisé pour un prog tournant sous XP. quel en est son intérêt ? (si tu as le temps de me brieffer)

Pendant que j'y pense, j'ai testé l'animation à l'ouverture d'un form généré. C'est cool ! Je n'ai eu qu'à augmenter (retarder) la valeur "150". Je l'ai fait passer à 350. Sinon l'effet était trop rapide, et pour ne pas dire génant - Cela me donnait plus l'impression d'un PC qui rame et a du mal à se lancer et à présenter un form, que celui d'un fondu tel que tu le souhaitais (c'est vrai qu'à l'inverse de chez toi, si je t'ai bien suivi, tout était réuni pour la rapidité : cpu 2.8 Mhz HT, ram 1Mo, CGraphique  9600 128 Mo ram.)

à te lire

Commentaire de ldx le 11/03/2005 12:36:19

bonjour

Merci pour le message. Je voulais dire 1Go Ram et non 1Mo

2 choses :

J'avais oublié de répondre ...
Set alpha... = nothing => Libération place en mémoire.

Il semble que les variables "collection, objet tel que form, control, ..., pointeur vers" sont en quelque sorte désactivées, inaccesibles, à la sortie d'une proc mais ne libèrent pas réellement la place en mémoire.

Tu as le même effet lorsque tu quittes un prog. Et même un "END" ne libère pas la place de ces "objets" ... L'instruction à appliquer est :

    dim EltEnCours as form

    For Each EltEnCours In Forms
        Unload EltEnCours
        Set EltEnCours = Nothing
    Next
    
    End

   ...

Ce n'est pas de moi (je ne suis pas assez calé)

Je suis sensible à l'occupation de la mémoire depuis que, chez un client, des essais répétitifs avec sortie  d'un de mes programme avait fini par planter le poste client (En réseau avec d'autres applic. tournant)


rendre "Null" tout pointeur, variable de type objet, ...,
chaque fois que l'on en avait plus besoin a résolu le problème chez le client. L'applic sortait "proprement"

le "LWA_ALPHA OR LWA_COLORKEY"  ou  "&H3" ?  :

C'est kifkif bouricot ! du pareil au même !

Que se passe-t'il avec le "OR" ? une opération binaire entre les 2 valeurs

LWA_ALPHA     =>   Hexa : 1         Binaire :  0001
LWA_COLOR... =>   Hexa : 2         Binaire :  0010

Rappel : "OR" compare 2 éléments, bit par bit. S'ils sont indentiques => 0 sinon => 1

Ici :   0001
         0010
        --------
         0011   en binaire ce qui donne ...  3 en hexa

cqfd

Le temps CPU ? la différence vient donc probablement du fait que dans ma proposition il calculait à chaque passage dans ALPHA_SCROLL_SCROLL la valeur, alors que tu ne le faisais pas avec la valeur "&H3"  => je prend ta propo.

Ca fait ben longtemps que je n'avais fait du binaire. Tout cela ne me rajeunit pas...


... et en bloquant toujours à 80% :

Je ne connais pas tes motifs pour avoir bloqué à 80 %. Mais, il m'a semblé qu'il y avait eu une petite confusion dans l'écriture initiale de ton instruction. Il m'a paru que ce que tu saisissais dans ton menu n'était pas un coef de transparence mais un coef d'opacité  (sans t'en rendre compte d'ailleurs). J'avais rencontré, en son temps, la formule que tu avais employé pour le calcul . Et j'avais du la modifier pour qu'elle traduise bien un coef de transparence. C'est pour cela qu'ici, à travers ma proposition,  je suis monté à 99. J'aurais pu mettre 100 sans problème (je l'ai testé). Simplement la souris n'est pas assez précise, et je ne générais cette valeur qu'aléatoirement ...

Ouf ! je n'ai jamais autant écrit sur VB. C'est dire que ton programme est intéressant.

Je suis d'accord avec toi sur le fait qu'il est dommage que ton source n'attire pas plus de commentaire. Mais cela réside peut-être dans le "Que m'apporte ce prog ?"
Je vais donner ici mon avis personnel:

Form particulière au gré des fantasmes du concepteur...
Si je ne me plonge pas dans le prog, je peux penser que tu as "dessiné" plusieurs types de form sur lesquels tu as appliqué une transparence => C'est connu ! il y a plusieurs exemples du même acabit.

OR, CE QUE TU APPORTES C'EST LA CONSTRUCTION "DYNAMIQUE" MORCEAU PAR MORCEAU DE FORMS PARTICULIERES et ça ce n'est pas courant !
Là tu m'apportes une solution répercutable dans mes programmes.

La Transparence ? TU DONNES UN BON EXEMPLE A DEUX NIVEAUX : SUPPRESSION D'UNE COULEUR ET OPACIFICATION D'UN FORM, D'UTILISATION HYPER RAPIDE. Beaucoup plus rapide que l'utilisation du Combine région... ce n'est pas courant.

TU TRANSPOSES UN OUTIL (slide rotatif) trouvé sur VB DANS UNE APPLIC. Pour celui qui se poserait la question sur l'utilisation de ce slide (source 6603) tu fournis une réponse ... qui me titille pour l'utilisation dans mes progs

Ce qui manque peut-être dans ton applic, c'est la présence de contrôles utilisables (si tu ne l'as déjà vu, visualise  vbfrance_source_19387_CONTROLES TRANSPARENTS_par RenField) qui donneraient l'aspect d'une vraie application et non pas d'un essai ou exemple, et donnerait envie de se pencher plus ...

Je n'ai fait qu'exprimer mon sentiment. Ton prog m'apporte et je te remercie d'en avoir déposé le source.


Portes-toi bien, ainsi que tous les lecteurs éventuels de ce commentaire, et à te lire...

Commentaire de PCPT le 11/03/2005 15:50:18 administrateur CS

Et voila, encore une mise à jour ;)
LDX,
j'ai inséré le "Set ...", mais je reste dubitatif quant au réel intérêt. "SKIN MAC" à l'ouverture me prenait 5Mo de RAM. Elle n'en prend plus que 3. Moins de ressources, donc j'applique et abdique, (cf MSDN qui conseille d'utiliser aussi Set Object = Nothing), mais çà ne change rien en fermeture (3Mo relachés, 5Mo sans le SET).

Houla oui, en binaire, la dernière fois c'était.... pfiouuu, pour calculer les plages d'adresses réseau afin d'obtenir la meilleure passerelle, c'est pas récent non plus -_-, cela dit, j'avais même pas fait le rapprochement, pour te dire...

Pour les "80%", au dessus, çà devient trop transparent et inutile. La fameuse petite mamy qui arrive à 97%, un petit coup de frayeur, elle quitte le menu, ne retrouve pas sa forme (ni celle d'antan....), elle redémarre son nouvel ordi flambant neuf, se retrouve avec un message "Is Already Running" parce qu'elle aura quitté le programme, mais que cette fenêtre aura empêché la fermeture complète, et conclusion, j'ai à payer ses frais de Pace-Maker ...
Et pour la "confusion", je ne crois pas m'être trompé : je choisi "20% DE TRANSPARENCE", pas "20% D'OPACITE" ou "20% VISIBLE". donc 255 = 0% de transparence, 20% de transparence = 255-(20/100*255)
Je vois pas de confusion... j'applique le %AGE DE TRANSPARENCE choisi.

Pour ton analyse "officielle", je te remercie. En effet, je me suis mal vendu. Je viens de mettre à jour un peu la description (par rapport à l'explication existante dans MAJ), et changer de rubrique, on verra.

Pour les contrôles de Rey (RenField), je les avais déjà vu, mais d'une part, je but de ce programme est de Skinner SON appli. Or si je met les contrôles de Rey, ce n'est plus une skin que je fais, mais juste une appli, ce qui n'est pas le but (bon, on verra dans SKINS V2 si la demande se présente).
Et pour ces contrôles en particuliers, toujours sur une configuration graphique "merdique", l'effet prend près de 2 secondes, impensable (entre le temps de "fenêtre affichée", et "contrôles transparents).
(Mais le rendu du SCROLLBAR est pas mal)

Je développe une appli à coté, ou j'utilise un moyen totalement différent : RTB transparent, 1PIC blanche décorée, 1PIC contenant l'image à afficher, et IMGFOND reçoit le BLEND des 2 PICS, juste sous le RTB transparent. Temps d'execution : instantané, aucun scintillement, AlphaBlend de PIC1 réglable.

En tout cas, je suis content que ma source te plaise.
Profite tant qu'elle est libre de droits ;)
Merci pour ton enthousiasme et tes conseils !
Soon,
PCPT

Commentaire de Saros le 03/04/2005 22:21:36

Dis... à ce stade je comprendrais si tu mettais ta source au moins niveau initié... au moins ^^

Commentaire de PCPT le 29/05/2005 21:03:24 administrateur CS

Bonsoir à tous
si certains sont impatients, désolé mais je n'ai pas le temps d'avancer sur la B2 en ce moment. Mais soyez rassurés, j'y pense (à l'occasion -_-)

PCPT

Commentaire de SupraDolph le 05/08/2005 13:40:39

Slt à tous, je parcourai un peu mes sources et je suis arrivé à ce lien :)
merci à LDX et PCPT de me citer sa fait toujours plaisir !
le prog a évoluer c'est très bien !
continue comme sa.
SupraDolph.

Commentaire de P__ROMEO le 14/09/2005 05:25:27

9,5/10
0,5 en moin, pour tu sais quoi.
si non, ca aurai fait 10

BON TRAVAIL. j'attend la suite :)

Commentaire de BruNews le 14/09/2005 10:33:52 administrateur CS

LDX > une rectification:
"OR compare 2 éléments, bit par bit. S'ils sont indentiques => 0 sinon => 1"
La définition est celle du XOR, donc fausse malgré que l'exemple que tu donnes est juste.

OR donne 1 si au moins 1 des 2 bits est à 1.
0 OR 0 => 0
0 OR 1 => 1
1 OR 0 => 1
1 OR 1 => 1