Affichage au lancement

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Pour faire une surprise à quelqu'un de proche (il faut avoir accès libre à son pc, épouse, enfants...), afficher un texte au lancement de son ordinateur, Bon Anniversaire, ou autre...
C'est un programme (sous forme exécutable) qui se lance au démarrage du pc, il y a affichage d'un texte court en surimpression du bureau, il suffit de cliquer dessus pour le fermer.

Code:: ' Bonanniv.bas affichage d'un texte en surimpression sur le bureau
' (chaque caractère dans un rectangle).
' Clic sur un caractère quelconque pour quitter.
' Clic droit sur un caractère quelconque pour éditer le fichier événements.
LABEL Fin,Param,Rclic
DIM fe$,tr%,tx$(10),i%,j%,k%,nl%,we%,he%,a$,fnt$,sz%,wc%,hc%,wf%,hf%,ef%,wt%,ht%
DIM et%,ix%,nc%,nt%,w%,c$,f%,xt%,yt%,x%,y%
DIM FondVisible%,Encadrement%,ca$,cc$,cf$,rc,gc,bc,rf,gf,bf
fe$ = "C:\TEXTES\Ev_Aff.txt"
' Structure du fichier 'événements':
' 1 ligne d'en-tête générale, de la forme:
' CC=v,CF=v,CA=v
' (CC = une lettre = couleur caractères: R=rouge, V=vert, B=bleu, J=jaune, M=magenta, C=cyan
' CF = une lettre = couleur de fond, mêmes valeurs, ou =0: pas de fond
' CA = 1 ou 0: affichage ou non d'un encadrement, si CF différent de 0)
' ***** NB: éviter la couleur cyan ('C') pour les caractères, provoque une anomalie de fermeture *****
' 1 ligne par événement, de la forme:
' JJ/MM/AAAA Ligne 1<Ligne 2< ... etc... (caractère < séparateur de lignes)
rc=255: gc=0: bc=0: ' couleur implicite caractères (rouge)
rf=255: gf=255: bf=0 :' Couleur de fond implicite de chaque caractère (si FondVisible% = 1)
fnt$ = "Arial": ' Police d'affichage, à ajuster éventuellement
' fnt$ = "Impact"
et% = 150: ' écart de temps d'affichage entre les lettres (en ms)
FondVisible%=1 :' =1 visible / =0 inisible
Encadrement%=1
BORDER_HIDE 0: HIDE 0: WIDTH 0,0: HEIGHT 0,0: TOP 0,5: LEFT 0,5
IF FILE_EXISTS(fe$) = 0 THEN TERMINATE
tr% = 0
FILE_OPEN_READ 1,fe$
   WHILE FILE_EOF(1) = 0
   FILE_READLN 1,a$
   IF LEFT$(a$,3)="CC=" THEN GOSUB Param: ' paramètres d'affichage
   IF LEFT$(a$,10) = DATE$ THEN tr% = 1: EXIT_WHILE
   END_WHILE
FILE_CLOSE 1
IF tr% = 0 THEN TERMINATE: ' rien à afficher
' -------------------------------------------------------------------------------
a$ = RIGHT_POS$(a$,12)
k% = INSTR(a$,"<"): nl% = 0
WHILE k% > 0
   nl% = nl%+1: tx$(nl%) = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+1): k% = INSTR(a$,"<")
END_WHILE
nl% = nl%+1: tx$(nl%) = a$
nt% = 0: nc% = 0
FOR i% = 1 TO nl%
   k% = LEN(tx$(i%)): IF k% > nc% THEN ix% = i%: nc% = k%: ' longueur maxi (caract.)
   nt% = nt%+k%: ' longueur totale (caractères)
NEXT i%

we% = SCREEN_X: he% = SCREEN_Y
sz% = 44: FONT_NAME 0,fnt$: FONT_SIZE 0,sz%
x% = TEXT_WIDTH(tx$(ix%),0): ' ajustage taille +-fonte à la taille de l'écran
WHILE x%<(we%/3): sz%=sz%+10: FONT_SIZE 0,sz%: x% = TEXT_WIDTH(tx$(ix%),0): END_WHILE
wc% = TEXT_WIDTH("A",0): hc% = TEXT_HEIGHT("A",0)
wf% = wc%*1.6: hf% = hc%*1.2: ' dimensions des cases
xt% = (wf%-wc%)/2: yt% = (hf%-hc%)/2
xt% = 6*xt%/10
ef% = 10: ' écartement entre cases
ht% = nl%*hf%+(nl%-1)*ef%: ' hauteur totale
wt% = nc%*wf%+(nc%-1)*ef%: ' largeur totale
x% = (we%-wt%)/2: y% = (he%-ht%)/2: ' coin supérieur gauche
f% = 0
FOR j% = 1 TO nl%
   a$ = tx$(j%): k% = LEN(a$): w% = k%*wf%+(k%-1)*ef%
   x% = (we%-w%)/2
   FOR i% = 1 TO LEN(a$)
   c$ = MID$(a$,i%,1)
   IF c$<>" ": ' espaces non affichés
   f%=f%+1: FORM f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%
   WIDTH f%,wf%: HEIGHT f%,hf%: COLOR f%,rf,gf,bf
   FONT_NAME f%,fnt$: FONT_SIZE f%,sz%
   ' if FondVisible%=0 then CouleurInvisible(f%,rf,gf,bf): ' couleur de fond de chaque caractère invisible
   IF FondVisible%=0 THEN Invisible(f%,rf,gf,bf): ' couleur de fond de chaque caractère invisible
   FONT_BOLD f% : FONT_ITALIC f%
   PRINT_TARGET_IS f%: PRINT_LOCATE xt%,yt%
   FONT_COLOR f%,rc,gc,bc : PRINT c$
   IF Encadrement%=1
   2D_TARGET_IS f%: 2D_PEN_WIDTH 2: 2D_FILL_OFF: 2D_RECTANGLE 4,4,wf%-4,hf%-4
   END_IF
   ON_CLICK f%,Fin
   ON_MOUSE_UP f%,Rclic
   END_IF
   x% = x%+wf%+ef%
   PAUSE et%
   NEXT i%
   y% = y%+hf%+ef%
NEXT j%
END
Fin:
  TERMINATE
RETURN
' ===============
Param:
  k% = INSTR(a$,"CC="): cc$ = MID$(a$,k%+3,1): ' couleur caractères
  k% = INSTR(a$,"CF="): cf$ = MID$(a$,k%+3,1): ' couleur de fond (ou 0)
  k% = INSTR(a$,"CA="): ca$ = MID$(a$,k%+3,1): ' =1: bordure, =0 pas de bordure
  SELECT ASC(cc$)
   CASE 82: rc = 255: gc = 0: bc = 0: ' R = rouge
   CASE 86: rc = 0: gc = 255: bc = 0: ' V = vert
   CASE 66: rc = 0: gc = 0: bc = 255: ' B = bleu
   CASE 74: rc = 255: gc = 255: bc = 0: ' J = jaune
   CASE 77: rc = 255: gc = 0: bc = 255: ' M = magenta
   CASE 67: rc = 0: gc = 250: bc = 255: ' C = cyan
  END_SELECT
  IF cf$ = "0"
   FondVisible% = 0: ' pas de fond
  ELSE
   SELECT ASC(cf$)
   CASE 82: rf = 255: gf = 0: bf = 0: ' R = rouge
   CASE 86: rf = 0: gf = 255: bf = 0: ' V = vert
   CASE 66: rf = 0: gf = 0: bf = 255: ' B = bleu
   CASE 74: rf = 255: gf = 255: bf = 0: ' J = jaune
   CASE 77: rf = 255: gf = 0: bf = 255: ' M = magenta
   CASE 67: rf = 0: gf = 250: bf = 255: ' C = cyan
   END_SELECT
  END_IF
  IF ca$ = "0" THEN Encadrement% = 0: ' pas d'encadrement
RETURN
' ===============
Rclic:
  EXECUTE_WAIT "Notepad.exe|"+fe$: ' clic droit, edit le fichier événements
RETURN
' ===============
SUB Invisible(frm%,r,g,b)
  ' Rendre invisible un Form frm% de couleur r,g,b
  ' (le Form coloré est invisible, ses objets contenus
  ' de couleur différente restent visibles).
  DIM_LOCAL hnd%,colorkey%,gwl%,null%
  DLL_ON "user32"
  hnd% = HANDLE(frm%)
  colorkey% = r+(256*g)+(65536*b) :' couleur transparente
  gwl% = BIN_OR(DLL_CALL2("GetWindowLongW",hnd%,0-20),524288)
  null% = DLL_CALL3("SetWindowLongW",hnd%,0-20,gwl%)
  null% = DLL_CALL4("SetLayeredWindowAttributes",hnd%,colorkey%,0,1)
  DLL_OFF
END_SUB
' ===============

Le texte est contenu dans un fichier texte, une ligne par événement à afficher (il peut y en avoir plusieurs, à des dates différentes), de la forme:
JJ/MM/AAAA Ligne 1<Ligne 2 ... etc...
par exemple pour aujourd'hui:
14/05/2019 BON<ANNIVERSAIRE!
Le caractère '<' est le séparateur de lignes.
Si la date correspond à la date du jour, le texte correspondant s'affiche, sinon le programme se ferme (invisible)
Pour l'effacer (fermer ce programme), il suffit de cliquer sur une des lettres (chaque rectangle/lettre est un Form).
Pour éditer le fichier texte, faire un clic droit sur une des lettres.
Il est ici dans le répertoire C:\TEXTES\, mais on peut le mettre n'importe où, il suffit d'ajuster dans le programme.

On peut (doit) évidemment adapter à son goût police, taille, couleurs, forme de l'encadrement, etc.

Pour lancer un programme au démarrage de Windows:
Touche 'Windows'
- Aller dans le menu 'Démarrer' > 'Tous les programmes', et faire un clic droit sur le dossier 'Démarrage', puis cliquer sur 'Ouvrir' (Cliquer sur 'Ouvrir tous les utilisateurs' si on désire que le programme se lance quelle que soit la session ouverte).
- Dans la fenêtre qui s'ouvre, faire un clic droit sur un emplacement vide > Nouveau > Raccourcis.
- Cliquer sur 'Parcourir', et spécifier le fichier à démarrer au même temps que Windows.
- Cliquer sur 'Suivant', pour terminer l'assistant.

Pour désactiver le lancement du programme:
Il suffit de supprimer le raccourci du programme dans le menu
Démarrer > Tous les Programmes > Démarrage.

Edit du 23/05, quelques améliorations (voir plus bas)

Très original ! cheers

Bravo !

Bonne idée et c'est astucieux en plus !

Encore un petit programme à mettre de coté...
Merci JL35 ! Wink

Bravo JL35, excellent !

Pour un démarrage automatique sous W8.1:

Créer un exécutable du programme.bas, ensuite créer un raccourci de cet exécutable sur le bureau.
Déposer ce raccourci ici => "C:\Utilisateurs\*****\AppData\Roaming\Microsoft\Windows\Menu Démarrer\Programmes\Démarrage" et c'est tout.

A noter que le dossier AppData est un fichier caché.
Si ce dossier n'est pas visible;
1) lancer l'explorateur Windows
2) Cliquer sur l'onglet "Affichage"
3) Cliquer sur Afficher/Masquer
4) Cocher la case Eléments masqués

Je vais pouvoir faire une surprise à Madame.... Very Happy

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

C'est fait pour !
On peut faire encore plus simple, sur le même principe, en affichant un seul Form couvrant tout ou partie du bureau et contenant une image et/ou un texte, par exemple une carte de voeux.

En tapant dans google 'Bonne fête Ursule', ou 'bon anniversaire Julie', on obtient tout un tas d'images de cartes correspondantes.

PS
chez moi c'est un programme 'Agenda.exe' qui est lance au démarrage et qui affiche systématiquement la date du jour, les fêtes, anniversaires et événements du jour et du lendemain (rendez-vous, etc.).
J'y ai ajouté le lancement du programme ci-dessus et il prend la main et s'affiche ensuite:

Comme ton programme me plait bien JL35, je me suis permis d'y apporter quelques améliorations. Very Happy

J' ai apporté 2 possibilités supplémentaires:
Option 1) avec ou sans encadrement de chaque caractère du texte.
Option 2) couleur de fond de chaque caractère du texte visible ou pas.

Pour l'option 2, j'ai utilisé un code de Silverman qui permet de rendre transparente une couleur (Voir => ici )

J'ai regroupé les réglages de ces options entre les lignes 11 à 17, avec les explications en commentaire.

Code:: ' Bonanniv.bas affichage d'un texte en surimpression sur le bureau
' (chaque caractère dans un rectangle).
' Clic sur un caractère quelconque pour quitter.
' Clic droit sur un caractère quelconque pour éditer le fichier événements.
LABEL Fin,Rclic
DIM fe$,tr%,tx$(10),i%,j%,k%,nl%,we%,he%,a$,fnt$,sz%,wc%,hc%,wf%,hf%,ef%,wt%,ht%
DIM nc%,nt%,w%,c$,f%,xt%,yt%,x%,y%
dim null%,tmp%,gwl%,transparent%,colorkey%,colorkey_ou_alpha%,VisibiliteFontColor%,Encadrement%
dim r,v,b

' -------------------------------------------------------------------------------
' Réglages
r=255 : v=255 : b=0 :' Couleur de fond de chaque caractère (si VisibiliteFontColor%=0)
' visibilité de la couleur de fond et de l'encadrement de chaque caractère
VisibiliteFontColor%=1 :' 1=invisible / 0=Visible
Encadrement%=1 :' 1=sans encadrement / 0=Avec encadrement
' -------------------------------------------------------------------------------

border_small 0
width 0,0 : height 0,0 : top 0,5 : left 0,5
HIDE 0
fe$ = "C:\TEXTES\Ev_Aff.txt"
' 1 ligne par événement, de la forme:
' JJ/MM/AAAA Ligne 1<Ligne 2< ... etc... (caractère < séparateur de lignes)
IF FILE_EXISTS(fe$) = 0 THEN TERMINATE
tr% = 0
FILE_OPEN_READ 1,fe$
   WHILE FILE_EOF(1) = 0
   FILE_READLN 1,a$
   IF LEFT$(a$,10) = DATE$ THEN tr% = 1: EXIT_WHILE
   END_WHILE
FILE_CLOSE 1
IF tr% = 0 THEN TERMINATE
a$ = RIGHT_POS$(a$,12)
k% = INSTR(a$,"<"): nl% = 0
WHILE k% > 0
   nl% = nl%+1: tx$(nl%) = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+1): k% = INSTR(a$,"<")
END_WHILE
nl% = nl%+1: tx$(nl%) = a$
nt% = 0: nc% = 0
FOR i% = 1 TO nl%
   k% = LEN(tx$(i%)): IF k% > nc% THEN nc% = k%: ' longueur maxi
   nt% = nt%+k%: ' longueur totale
NEXT i%

we% = SCREEN_X: he% = SCREEN_Y
fnt$ = "Arial"
sz% = 44: IF we%>1200 THEN sz% = 56: IF we% > 1600 THEN sz% = 64
FONT_NAME 0,fnt$: FONT_SIZE 0,sz%: wc% = TEXT_WIDTH("A",0): hc% = TEXT_HEIGHT("A",0)
wf% = wc%*1.6: hf% = hc%*1.2: ' dimensions des cases
xt% = (wf%-wc%)/2: yt% = (hf%-hc%)/2
xt% = 6*xt%/10
ef% = 10: ' écartement entre cases
ht% = nl%*hf%+(nl%-1)*ef%: ' hauteur totale
wt% = nc%*wf%+(nc%-1)*ef%: ' largeur totale
x% = (we%-wt%)/2: y% = (he%-ht%)/2: ' coin supérieur gauche
f% = 0
FOR j% = 1 TO nl%
   a$ = tx$(j%): k% = LEN(a$): w% = k%*wf%+(k%-1)*ef%
   x% = (we%-w%)/2
   FOR i% = 1 TO LEN(a$)
   c$ = MID$(a$,i%,1)
   f%=f%+1: FORM f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%
   WIDTH f%,wf%: HEIGHT f%,hf%: COLOR f%,r,v,b
   FONT_NAME f%,fnt$: FONT_SIZE f%,sz%
   if VisibiliteFontColor%=1 then CouleurInvisible(f%): ' rendre invisible la couleur de fond de chaque caractère
   FONT_BOLD f% : FONT_ITALIC f%
   PRINT_TARGET_IS f%: PRINT_LOCATE xt%,yt%
   FONT_COLOR f%,255,0,0 : PRINT c$
   if Encadrement%=0 then 2D_TARGET_IS f%: 2D_FILL_OFF: 2D_RECTANGLE 1,1,wf%,hf%
   ON_CLICK f%,Fin
   ON_MOUSE_UP f%,Rclic
   x% = x%+wf%+ef%
   NEXT i%
   y% = y%+hf%+ef%
NEXT j%

END
' ===============
SUB CouleurInvisible(NumForm%)
  dll_on "user32"
' couleur invisible
  tmp%=handle(NumForm%)
  colorkey%=r+(256*v)+(65536*b) :' couleur transparente si colorkey_ou_alpha%=1
  colorkey_ou_alpha%=1 :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633584%28v=vs.85%29.aspx
  gwl%=bin_or(dll_call2("GetWindowLongW",tmp%,0-20),524288)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633591%28v=vs.85%29.aspx
  null%=dll_call3("SetWindowLongW",tmp%,0-20,gwl%)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633540%28v=vs.85%29.aspx
  null%=dll_call4("SetLayeredWindowAttributes",tmp%,colorkey%,transparent%,colorkey_ou_alpha%)
  dll_off
END_SUB
' ===============
Fin:
TERMINATE
Return
' ===============
Rclic:
  EXECUTE_WAIT "Notepad.exe|"+fe$: ' clic droit, edit le fichier événements
RETURN
' ===============

A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ah ouais Jean Claude, pas mal l'affichage des caractères à fond transparent parmi tes améliorations,
ça fait plus 'pro' ! et ça peut donner d'autres idées.

Et c'est vrai qu'à partir de ça on peut faire des tas de fantaisies.
Je sens que ça va bien plaire à mon épouse pour son anniversaire.
Et ça me coûte bien moins cher qu'un bijou en or (elle est allergique aux autres matières, bizarre...).

Je mets à jour mon archive, merci Jean Claude !

PS le nom de ta variable VisibiliteFontColor% est un peu ambigü, ce n'est pas la Font qui est visible ou pas, mais le Fond.
Bon, je pinaille.

et... pour continuer à pinailler... j'aurais mis Encadrement%=0 pour supprimer l'encadrement, et =1 pour l'avoir, et non l'inverse Very Happy

Pareil d'ailleurs pour VisibiliteFondColor, =0 pas de fond, =1 fond présent.

Content que ça te plaise Jl35, Very Happy

Merci à Silverman qui m'a permis de trouver la solution pour rendre une couleur transparente, avec User32dll.

Pour VisibiliteFontColor%, tu as raison, j'aurai du écrire VisibiliteFondColor% qui correspond mieux.

Pour 0 et 1, j'avais pensé en codant que les variables seraient à zéro par défaut et donc donneraient comme résultat l'affichage de ton code initiale. Ensuite j'ai donné les valeurs, sans penser à changer la signification de 0 et de 1.
Bon, ce n'est qu'un détail vu qu'il y a un commentaire d'explication pour chaque.

Au fait, c'est marrant, ma femme a les mêmes allergies que la tienne... Razz

A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Encore heureux qu'on roule sur l'or, sinon...

Mais jusqu’où vont ils aller ?!

La suite dans le prochain épisode...

lol!

Bravo les gars, continués comme çà.
Vos idées sont supers ! cheers

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Superbe petit bijou, ce programme, bravo JL35 !
cheers

Et comme apparemment, ça fait faire des économies aussi à Jean-Claude,
tu devrais prendre des royalties...!
lol!

JL35 a écrit:: Encore heureux qu'on roule sur l'or, sinon...

JJN4 a écrit:: apparemment, ça fait faire des économies aussi à Jean-Claude

Minibug a écrit:: Mais jusqu’où vont ils aller ?!

Il suffit d'utiliser le programme de JL35 pour faire un max d'économie et devenir riche.... Very Happy

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Suite à ton intervention Jean Claude, et sans ta permission (mais je sais bien que tu ne m'en voudras pas Very Happy

), j'ai édité là-haut pour ajouter tes améliorations, notamment l'affichage des caractères à fond transparent.

J'en ai profité pour ajouter dans le fichier texte des événements à afficher le choix de la couleur des caractères, de la présence ou non d'un fond avec le choix de sa couleur, et l'option d'un encadrement ou non.
J'ai également supprimé l'affichage des espaces, c'est plus aéré.

Le fichier texte (Ev_Aff.txt) se présente donc comme ceci (seules les lignes commençant par 'CC=' ou une date sont analysées, le reste est considéré comme commentaires):

' Événements à afficher au lancement
==================================
* Format général, 1 ligne, de la forme:
CC=1 lettre,CF=1 lettre ou 0, CA=0 ou 1
CC couleur caractères =R rouge, =V vert, =B bleu, =J jaune, =M magenta, =C cyan
CF couleur de fond, mêmes valeurs, ou 0= pas de fond
CA = O ou 1= encadrement
* 1 événement par ligne, de la forme JJ/MM/AAAA Ligne 1<Ligne2<Ligne3... etc...
---------------------------------------------------------------------------------
CC=R,CF=J,CA=1
26/05/2019 BONNE FÊTE<DES MÈRES !

* @Jean Claude message personnel: concernant l'allergie de mon épouse à tout ce qui n'est pas or massif, je lui ai conseillé à plusieurs reprises de consulter un dermatologue, mais rien à faire, le seul spécialiste qu'elle consent à consulter est le bijoutier... si tu as une meilleure idée...

Bonsoir JL35,

Bonne adaptation, je valide.
Par contre la couleur Cyan, pour la couleur des caractères, pose un problème pour quitter en cliquant sur une lettre. Le programme ne ferme pas Question

J'avoue que je ne comprends pas pourquoi, mais j'ai remarqué que cette couleur se comporte comme si elle était transparente.
Fait l'essai, tu verras.
C'est le cas avec W8.1, je ne sais pas pour W7.

A+

PS:
Pour Madame JL35, je conseille des sous-vêtements à paillettes d'or, car ça ne se trouve pas chez le bijoutier.
Serte, ça reste cher
Ou bien consulter un orpailleur, peut-être aura-t-il une solution...
Sinon tu peux lui dire que l'on trouve l'or dans des sables Horrifiants, bon ok, c'est aurifère, mais tu peux avoir mal prononcé. Résultat: elle aura peur de l'or.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Bizarre, mais tu as raison Jean Claude, le clic sur un caractère de couleur Cyan ne ferme pas le programme,
mais UNIQUEMENT si c'est à fond transparent (je suis sous W7).

C'est sûrement dû à la méthode employée pour la transparence, mais dans le doute il vaut mieux ôter le cyan des choix de couleur de caractères.

Pour en revenir au sujet annexe; quant à lui faire peur, il en faudra un peu plus que ça !

Je viens de faire un test sur cette couleur Cyan et j'ai trouvé une solution simple qui autorise son utilisation sans perturber le programme.

J'ai changé la couleur dans le sous-programme "Param:". Presque rien mais suffisant.

Code:: ' ===============
Param:
  k% = INSTR(a$,"CC="): cc$ = MID$(a$,k%+3,1): ' couleur caractères
  k% = INSTR(a$,"CF="): cf$ = MID$(a$,k%+3,1): ' couleur de fond (ou 0)
  k% = INSTR(a$,"CA="): ca$ = MID$(a$,k%+3,1): ' =1: bordure, =0 pas de bordure
  SELECT ASC(cc$)
   CASE 82: rc = 255: gc = 0: bc = 0: ' R = rouge
   CASE 86: rc = 0: gc = 255: bc = 0: ' V = vert
   CASE 66: rc = 0: gc = 0: bc = 255: ' B = bleu
   CASE 74: rc = 255: gc = 255: bc = 0: ' J = jaune
   CASE 77: rc = 255: gc = 0: bc = 255: ' M = magenta
   CASE 67: rc = 0: gc = 254: bc = 255: ' C = cyan
  END_SELECT
  IF cf$ = "0"
   FondVisible% = 0: ' pas de fond
  ELSE
   SELECT ASC(cf$)
   CASE 82: rf = 255: gf = 0: bf = 0: ' R = rouge
   CASE 86: rf = 0: gf = 255: bf = 0: ' V = vert
   CASE 66: rf = 0: gf = 0: bf = 255: ' B = bleu
   CASE 74: rf = 255: gf = 255: bf = 0: ' J = jaune
   CASE 77: rf = 255: gf = 0: bf = 255: ' M = magenta
   CASE 67: rf = 0: gf = 254: bf = 255: ' C = cyan
   END_SELECT
  END_IF
  IF ca$ = "0" THEN Encadrement% = 0: ' pas d'encadrement
RETURN

En tous cas, ça marche chez moi Very Happy

Pour madame, tu lui retires la carte bancaire !

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Effectivement tu as raison Jean Claude, c'est le cyan pur qui doit servir de couleur de manoeuvre pour la routine de transparence, et en le modifiant légèrement ça ne gêne plus.
Je vais modifier là-haut.

Bravo l'ami pour ta sagacité et ta solution !

» Affichage bizarre
» Affichage de l'arborescence de C:
» Problème d'affichage 3D.
» Affichage de photos
» Affichage d'une icône