rem ============================================================================
rem Utilisation de HVIEWER
rem Pour afficher des images
rem ============================================================================
' L’objet système HVIEWER est utilisé pour visualiser un fichier au format HTML.
' Pour insérer une image, on utilise la balise <IMG> avec les deux attributs
' SRC et ALT.
' L’attribut SRC (source), on doit le renseigner avec l’URL de l’image qui
' indique où se trouve l’image (sur le web, sur un autre serveur, sur le disque
' dur du PC, etc.)
' L’attribut ALT (texte alternatif) est utilisé pour être affiché lorsque pour
' une raison ou une autre, l’image n’a pas pu être chargée (url inexacte,
' image non trouvée, etc.)
' En l’absence de ALT, si l’image ne peut pas être affichée, le système affiche
' un point d’exclamation, ce qui est inesthétique.
' C’est pour cela qu’il est préférable utiliser l’attribut ALT.
' Les formats des images peuvent être : jpg, bmp, gif, png, ...
rem ============================================================================
' L’appel à la procédure Affiche_Image(f$,w,h,x,y) se fait avec les paramètres
' f$ : url de l’image contenant l’emplacement et le nom de l’image
' w,h : respectivement largeur (WIDTH) et hauteur (HEIGHT) de l’objet HVIEWER
' x,y : position du HVIEWER sur le FORM, respectivement LEFT et TOP
rem ============================================================================
dim n,f$
n = 9900 : ' Numéro du 1er HVIEWER, (à modifier éventuellement); les suivants seront n+1
full_space 0 : color 0,150,100,50
caption 0,"PANORAMIC AFFICHE LES GIF, JPG, BMP, PNG, ... "
alpha 10 : top 10,50 : left 10,400 : font_bold 10 : font_name 10,"arial"
font_size 10,20 : caption 10,"Veuillez patienter ... chargement en cours ..."
dir_change dir_current$
f$ = dir_current$ + ""
rem ============================================================================
' Exemples d'appel
Affiche_Image(f$+"Mandelbrot.gif",350,260,1120,230) : ' image GIF
Affiche_Image(f$+"z^3_anim.gif",440,340,1110,490) : ' image GIF
' Affiche_Image(f$+"Cavaliere.gif",370,240,1120,550) : ' image GIF
Affiche_Image(f$+"sphere.png",400,420,10,10) : ' image PNG
Affiche_Image(f$+"4G.bmp",400,400,10,420) : ' image BMP
Affiche_Image(f$+"Rose.gif",320,530,410,10) : ' image GIF
Affiche_Image(f$+"Paysage.gif",380,530,730,10) : ' image GIF
Affiche_Image(f$+"Anes.gif",350,230,1120,1) : ' image GIF
Affiche_Image(f$+"Papydall.gif",680,100,420,550) : ' image GIF
Affiche_Image(f$+"Martien.gif",100,150,500,670) : ' image GIF
Affiche_Image(f$+"Martien.gif",100,150,700,670) : ' image GIF
Affiche_Image(f$+"Martien.gif",100,150,900,670) : ' image GIF
end
rem ============================================================================
SUB Affiche_Image(f$,w,h,x,y)
DIM_LOCAL html$,q$,alt$
q$ = chr$(34) : ' caractère guillemet
alt$ = "!!! Image non trouvée !!! Vérifiez votre chemin !!!" : ' texte alternatif
html$ = "C:\temp\code.htm"
FILE_OPEN_WRITE 10,html$
FILE_WRITELN 10,"<html>"
FILE_WRITELN 10,"<img src=" + q$ + f$ + q$ +" alt=" + q$ + alt$ + q$ + " >"
FILE_WRITELN 10,"</html>"
FILE_CLOSE 10
HVIEWER n
width n,w : height n,h : top n,y : left n,x
FILE_LOAD n,html$ : FILE_DELETE html$
n = n + 1
END_SUB
rem ============================================================================
Accueil 
Calendrier
