imprimer un ListIconGadget avec son contenu [Résolu]

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

imprimer un ListIconGadget avec son contenu [Résolu]

Message par MetalOS »

Salut tous le monde, voila je cherche à imprimer un ListIconGadget avec les données qui y sont inscrite. En faite je voudrais faire une capture d'écran du ListeIcon au format jpg ou bmp peut importe et ensuite imprimer cette image, le problème c que je ne c pas par ou commencer. Si defois vous avez une idée Merci d'avance.
Dernière modification par MetalOS le mer. 28/mai/2008 13:52, modifié 1 fois.
Haut
Stefou
Messages : 234
Inscription : jeu. 18/janv./2007 14:08

Message par Stefou »

Salut MetalOS

Je ne sais pas si cela va répondre à ta question mais bon j'ai ca sous le coude...

Deux étapes :
1 - créer ton image avec ta listicon
2 - imprimer l'image

Pour la 1 je te tape les étapes importante à toi de compléter :
createimage() ; pour créer ton image qui va reçevoir la liste
Startdrawing() ; pour commençer à dessiner sur ton image
for i=0 to countgadgetitem(#listicon)-1 ; on boucle pour chaque élément que l'on écris sur ton image
drawtext(10,i*20, getgadgetitemtext(#listicon,i) ; on ecrit l'élément
next
stopdrawing()

Voilà tu as ton image

Pour l'étape 2 je serais plus précis avec ce code qui te permet d'imprimer une image

Code : Tout sélectionner

Procedure impression_image(id_im,nom_impression$="Impression",retournement=1,choix_imprimante=1)
  ;retournement=1 retournmt auto
  ;retournement=0 pas de retournement
  ;retournement=2  retournement forcé
  If choix_imprimante=1
    PrintRequester()
  Else
    
    DefaultPrinter()
  EndIf
  
  If StartPrinting(nom_impression$)
    ImageX=ImageWidth(id_im)
    ImageY=ImageHeight(id_im)
    If  (ImageX>ImageY And retournement=1 ) Or retournement=2
      retourne=1
      
      
      Dim Pixel.l(ImageX, ImageY)
      
      StartDrawing(ImageOutput(id_im))
      For Px = 0 To ImageX
        For Py = 0 To ImageY
          Pixel(Px, Py) = Point(Px, Py)
        Next
      Next
      StopDrawing()
      
      
      ResizeImage(id_im, ImageY, ImageX)
      StartDrawing(ImageOutput(id_im)) ; on dessine sur l'image
      
      x = 0 ; on se place en x=0 sur l'image
      y_base=ImageY
      Repeat
        
        y = 0 ; on se place en y=0 sur l'image
        x_base=0
        Repeat
          
          Plot(x, y, Pixel(x_base, y_base)) ; on dessine un carré qui fait le nouveau pixel de la même couleur que celle récupéré en x et y
          
          ; on se déplace sur l'image en y de la taille d'un pixel
          y = y + 1
          x_base = x_base+1
        Until y >= ImageX ; si on a finit la colonne de l'image placé en x
        
        ; on se déplace sur l'image en x de la taille d'un pixel
        x = x + 1
        y_base = y_base-1
        
      Until x >= ImageY ; si on a traité toutes les lignes de l'image
      ;SaveImage(0, "d:\ess.jpg", #PB_ImagePlugin_JPEG, 7)
      StopDrawing()
    EndIf
    
    If StartDrawing(PrinterOutput())
      
      
      l_print=PrinterPageWidth()
      h_print=PrinterPageHeight()
      l_image=ImageWidth(id_im)
      h_image=ImageHeight(id_im)
      rap_image.f=l_image/h_image
      rap_l.f=l_print/l_image
      
      rap_h.f=h_print/h_image
      If rap_l>=rap_h
        DrawImage(ImageID(id_im), 0, 0,PrinterPageHeight()*rap_image,PrinterPageHeight()) 
      Else
        DrawImage(ImageID(id_im), 0, 0,PrinterPageWidth(),PrinterPageWidth()*rap_image) 
      EndIf
      
      
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
  
  
  
EndProcedure
En éspérant que cela te permetera d'avançer....
a+
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Merci Stefou je vais tester ta source.
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

J'ais tester ton code stefou avec 2 colonnes du ListIconGadget mais ca me fait une image assée importante en taille. Si toutefois ya un autre moyen pour imprimer le contenue d'un ListIconGadget qu'en format image ca peut le faire. De mon coté je travail sur un code pour récupérer une à une les données du ListeIconGadget pour les ecrire dans un tableau HTML pour pouvoir l'imprimer ensuite.

Bon voici la Procedure que j'utilise pour convertir le contenue de mon ListIconGadget en fichier HTML pour pouvoir ensuite l'imprimer.

Code : Tout sélectionner

Procedure Imprimer()
  If OpenFile(#Fichier, "Planning.html")
      WriteStringN(#Fichier, "<html>")
      WriteStringN(#Fichier, "    <title>Planning Sécurité Incendie</title>")
      WriteStringN(#Fichier, "     <head>")
      WriteStringN(#Fichier, "     </head>")
      WriteStringN(#Fichier, "       <body>")
         ;*************Titre Tableau*************************** 
          WriteStringN(#Fichier,"<table border=*1*>")
          WriteStringN(#Fichier,"<tr>")
          WriteStringN(#Fichier," <td> DATE </td>")
          WriteStringN(#Fichier," <td> JOURS </td> ")
          WriteStringN(#Fichier," <td> 7H / 19H </td>")
          WriteStringN(#Fichier," <td> 19H / 7H </td>")
          WriteStringN(#Fichier," <td> 4H / 14H </td>")
          WriteStringN(#Fichier," <td> 14H / 24H </td>")
          WriteStringN(#Fichier," <td> 8H / 20H </td>")
          WriteStringN(#Fichier," <td> 9H / 21H </td>")
          WriteStringN(#Fichier,"</tr>")
         ;*************Fin Titre Tableau***********************
         ;*************Ligne N°0*******************************
          WriteStringN(#Fichier,"<tr>")
         L0C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,0) 
          WriteStringN(#Fichier,"<td>" + L0C1$ + "</td>")
         L0C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,1) 
          WriteStringN(#Fichier,"<td>" + L0C2$ + "</td>")
         L0C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,2) 
          WriteStringN(#Fichier,"<td>" + L0C3$ + "</td>")
         L0C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,3) 
          WriteStringN(#Fichier,"<td>" + L0C4$ + "</td>")
         L0C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,4) 
          WriteStringN(#Fichier,"<td>" + L0C5$ + "</td>")
         L0C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,5) 
          WriteStringN(#Fichier,"<td>" + L0C6$ + "</td>")
         L0C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,6) 
          WriteStringN(#Fichier,"<td>" + L0C7$ + "</td>")
         L0C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,7) 
          WriteStringN(#Fichier,"<td>" + L0C8$ + "</td>")
         L0C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,0,8) 
          WriteStringN(#Fichier,"<td>" + L0C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°0**************************** 
         ;*************Ligne N°1*******************************
          WriteStringN(#Fichier,"<tr>")
         L1C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,0) 
          WriteStringN(#Fichier,"<td>" + L1C1$ + "</td>")
         L1C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,1) 
          WriteStringN(#Fichier,"<td>" + L1C2$ + "</td>")
         L1C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,2) 
          WriteStringN(#Fichier,"<td>" + L1C3$ + "</td>")
         L1C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,3) 
          WriteStringN(#Fichier,"<td>" + L1C4$ + "</td>")
         L1C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,4) 
          WriteStringN(#Fichier,"<td>" + L1C5$ + "</td>")
         L1C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,5) 
          WriteStringN(#Fichier,"<td>" + L1C6$ + "</td>")
         L1C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,6) 
          WriteStringN(#Fichier,"<td>" + L1C7$ + "</td>")
         L1C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,7) 
          WriteStringN(#Fichier,"<td>" + L1C8$ + "</td>")
         L1C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,1,8) 
          WriteStringN(#Fichier,"<td>" + L1C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°1**************************** 
         ;*************Ligne N°2*******************************
          WriteStringN(#Fichier,"<tr>")
         L2C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,0) 
          WriteStringN(#Fichier,"<td>" + L2C1$ + "</td>")
         L2C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,1) 
          WriteStringN(#Fichier,"<td>" + L2C2$ + "</td>")
         L2C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,2) 
          WriteStringN(#Fichier,"<td>" + L2C3$ + "</td>")
         L2C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,3) 
          WriteStringN(#Fichier,"<td>" + L2C4$ + "</td>")
         L2C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,4) 
          WriteStringN(#Fichier,"<td>" + L2C5$ + "</td>")
         L2C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,5) 
          WriteStringN(#Fichier,"<td>" + L2C6$ + "</td>")
         L2C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,6) 
          WriteStringN(#Fichier,"<td>" + L2C7$ + "</td>")
         L2C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,7) 
          WriteStringN(#Fichier,"<td>" + L2C8$ + "</td>")
         L2C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,2,8) 
          WriteStringN(#Fichier,"<td>" + L2C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°2**************************** 
         ;*************Ligne N°3*******************************
          WriteStringN(#Fichier,"<tr>")
         L3C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,0) 
          WriteStringN(#Fichier,"<td>" + L3C1$ + "</td>")
         L3C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,1) 
          WriteStringN(#Fichier,"<td>" + L3C2$ + "</td>")
         L3C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,2) 
          WriteStringN(#Fichier,"<td>" + L3C3$ + "</td>")
         L3C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,3) 
          WriteStringN(#Fichier,"<td>" + L3C4$ + "</td>")
         L3C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,4) 
          WriteStringN(#Fichier,"<td>" + L3C5$ + "</td>")
         L3C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,5) 
          WriteStringN(#Fichier,"<td>" + L3C6$ + "</td>")
         L3C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,6) 
          WriteStringN(#Fichier,"<td>" + L3C7$ + "</td>")
         L3C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,7) 
          WriteStringN(#Fichier,"<td>" + L3C8$ + "</td>")
         L3C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,3,8) 
          WriteStringN(#Fichier,"<td>" + L3C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°3****************************
         ;*************Ligne N°4*******************************
          WriteStringN(#Fichier,"<tr>")
         L4C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,0) 
          WriteStringN(#Fichier,"<td>" + L4C1$ + "</td>")
         L4C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,1) 
          WriteStringN(#Fichier,"<td>" + L4C2$ + "</td>")
         L4C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,2) 
          WriteStringN(#Fichier,"<td>" + L4C3$ + "</td>")
         L4C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,3) 
          WriteStringN(#Fichier,"<td>" + L4C4$ + "</td>")
         L4C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,4) 
          WriteStringN(#Fichier,"<td>" + L4C5$ + "</td>")
         L4C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,5) 
          WriteStringN(#Fichier,"<td>" + L4C6$ + "</td>")
         L4C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,6) 
          WriteStringN(#Fichier,"<td>" + L4C7$ + "</td>")
         L4C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,7) 
          WriteStringN(#Fichier,"<td>" + L4C8$ + "</td>")
         L4C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,4,8) 
          WriteStringN(#Fichier,"<td>" + L4C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°4****************************
         ;*************Ligne N°5*******************************
          WriteStringN(#Fichier,"<tr>")
         L5C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,0) 
          WriteStringN(#Fichier,"<td>" + L5C1$ + "</td>")
         L5C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,1) 
          WriteStringN(#Fichier,"<td>" + L5C2$ + "</td>")
         L5C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,2) 
          WriteStringN(#Fichier,"<td>" + L5C3$ + "</td>")
         L5C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,3) 
          WriteStringN(#Fichier,"<td>" + L5C4$ + "</td>")
         L5C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,4) 
          WriteStringN(#Fichier,"<td>" + L5C5$ + "</td>")
         L5C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,5) 
          WriteStringN(#Fichier,"<td>" + L5C6$ + "</td>")
         L5C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,6) 
          WriteStringN(#Fichier,"<td>" + L5C7$ + "</td>")
         L5C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,7) 
          WriteStringN(#Fichier,"<td>" + L5C8$ + "</td>")
         L5C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,5,8) 
          WriteStringN(#Fichier,"<td>" + L5C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°5**************************** 
         ;*************Ligne N°6*******************************
          WriteStringN(#Fichier,"<tr>")
         L6C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,0) 
          WriteStringN(#Fichier,"<td>" + L6C1$ + "</td>")
         L6C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,1) 
          WriteStringN(#Fichier,"<td>" + L6C2$ + "</td>")
         L6C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,2) 
          WriteStringN(#Fichier,"<td>" + L6C3$ + "</td>")
         L6C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,3) 
          WriteStringN(#Fichier,"<td>" + L6C4$ + "</td>")
         L6C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,4) 
          WriteStringN(#Fichier,"<td>" + L6C5$ + "</td>")
         L6C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,5) 
          WriteStringN(#Fichier,"<td>" + L6C6$ + "</td>")
         L6C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,6) 
          WriteStringN(#Fichier,"<td>" + L6C7$ + "</td>")
         L6C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,7) 
          WriteStringN(#Fichier,"<td>" + L6C8$ + "</td>")
         L6C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,6,8) 
          WriteStringN(#Fichier,"<td>" + L6C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°6**************************** 
         ;*************Ligne N°7*******************************
          WriteStringN(#Fichier,"<tr>")
         L7C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,0) 
          WriteStringN(#Fichier,"<td>" + L7C1$ + "</td>")
         L7C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,1) 
          WriteStringN(#Fichier,"<td>" + L7C2$ + "</td>")
         L7C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,2) 
          WriteStringN(#Fichier,"<td>" + L7C3$ + "</td>")
         L7C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,3) 
          WriteStringN(#Fichier,"<td>" + L7C4$ + "</td>")
         L7C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,4) 
          WriteStringN(#Fichier,"<td>" + L7C5$ + "</td>")
         L7C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,5) 
          WriteStringN(#Fichier,"<td>" + L7C6$ + "</td>")
         L7C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,6) 
          WriteStringN(#Fichier,"<td>" + L7C7$ + "</td>")
         L7C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,7) 
          WriteStringN(#Fichier,"<td>" + L7C8$ + "</td>")
         L7C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,7,8) 
          WriteStringN(#Fichier,"<td>" + L7C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°7**************************** 
         ;*************Ligne N°8*******************************
          WriteStringN(#Fichier,"<tr>")
         L8C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,0) 
          WriteStringN(#Fichier,"<td>" + L8C1$ + "</td>")
         L8C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,1) 
          WriteStringN(#Fichier,"<td>" + L8C2$ + "</td>")
         L8C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,2) 
          WriteStringN(#Fichier,"<td>" + L8C3$ + "</td>")
         L8C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,3) 
          WriteStringN(#Fichier,"<td>" + L8C4$ + "</td>")
         L8C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,4) 
          WriteStringN(#Fichier,"<td>" + L8C5$ + "</td>")
         L8C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,5) 
          WriteStringN(#Fichier,"<td>" + L8C6$ + "</td>")
         L8C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,6) 
          WriteStringN(#Fichier,"<td>" + L8C7$ + "</td>")
         L8C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,7) 
          WriteStringN(#Fichier,"<td>" + L8C8$ + "</td>")
         L8C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,8,8) 
          WriteStringN(#Fichier,"<td>" + L8C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°8**************************** 
         ;*************Ligne N°9*******************************
          WriteStringN(#Fichier,"<tr>")
         L9C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,0) 
          WriteStringN(#Fichier,"<td>" + L9C1$ + "</td>")
         L9C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,1) 
          WriteStringN(#Fichier,"<td>" + L9C2$ + "</td>")
         L9C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,2) 
          WriteStringN(#Fichier,"<td>" + L9C3$ + "</td>")
         L9C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,3) 
          WriteStringN(#Fichier,"<td>" + L9C4$ + "</td>")
         L9C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,4) 
          WriteStringN(#Fichier,"<td>" + L9C5$ + "</td>")
         L9C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,5) 
          WriteStringN(#Fichier,"<td>" + L9C6$ + "</td>")
         L9C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,6) 
          WriteStringN(#Fichier,"<td>" + L9C7$ + "</td>")
         L9C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,7) 
          WriteStringN(#Fichier,"<td>" + L9C8$ + "</td>")
         L9C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,9,8) 
          WriteStringN(#Fichier,"<td>" + L9C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°9**************************** 
         ;*************Ligne N°10*******************************
          WriteStringN(#Fichier,"<tr>")
         L10C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,0) 
          WriteStringN(#Fichier,"<td>" + L10C1$ + "</td>")
         L10C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,1) 
          WriteStringN(#Fichier,"<td>" + L10C2$ + "</td>")
         L10C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,2) 
          WriteStringN(#Fichier,"<td>" + L10C3$ + "</td>")
         L10C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,3) 
          WriteStringN(#Fichier,"<td>" + L10C4$ + "</td>")
         L10C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,4) 
          WriteStringN(#Fichier,"<td>" + L10C5$ + "</td>")
         L10C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,5) 
          WriteStringN(#Fichier,"<td>" + L10C6$ + "</td>")
         L10C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,6) 
          WriteStringN(#Fichier,"<td>" + L10C7$ + "</td>")
         L10C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,7) 
          WriteStringN(#Fichier,"<td>" + L10C8$ + "</td>")
         L10C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,10,8) 
          WriteStringN(#Fichier,"<td>" + L10C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°10**************************** 
         ;*************Ligne N°11*******************************
          WriteStringN(#Fichier,"<tr>")
         L11C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,0) 
          WriteStringN(#Fichier,"<td>" + L11C1$ + "</td>")
         L11C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,1) 
          WriteStringN(#Fichier,"<td>" + L11C2$ + "</td>")
         L11C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,2) 
          WriteStringN(#Fichier,"<td>" + L11C3$ + "</td>")
         L11C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,3) 
          WriteStringN(#Fichier,"<td>" + L11C4$ + "</td>")
         L11C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,4) 
          WriteStringN(#Fichier,"<td>" + L11C5$ + "</td>")
         L11C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,5) 
          WriteStringN(#Fichier,"<td>" + L11C6$ + "</td>")
         L11C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,6) 
          WriteStringN(#Fichier,"<td>" + L11C7$ + "</td>")
         L11C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,7) 
          WriteStringN(#Fichier,"<td>" + L11C8$ + "</td>")
         L11C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,11,8) 
          WriteStringN(#Fichier,"<td>" + L11C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°11****************************
         ;*************Ligne N°12*******************************
          WriteStringN(#Fichier,"<tr>")
         L12C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,0) 
          WriteStringN(#Fichier,"<td>" + L12C1$ + "</td>")
         L12C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,1) 
          WriteStringN(#Fichier,"<td>" + L12C2$ + "</td>")
         L12C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,2) 
          WriteStringN(#Fichier,"<td>" + L12C3$ + "</td>")
         L12C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,3) 
          WriteStringN(#Fichier,"<td>" + L12C4$ + "</td>")
         L12C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,4) 
          WriteStringN(#Fichier,"<td>" + L12C5$ + "</td>")
         L12C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,5) 
          WriteStringN(#Fichier,"<td>" + L12C6$ + "</td>")
         L12C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,6) 
          WriteStringN(#Fichier,"<td>" + L12C7$ + "</td>")
         L12C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,7) 
          WriteStringN(#Fichier,"<td>" + L12C8$ + "</td>")
         L12C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,12,8) 
          WriteStringN(#Fichier,"<td>" + L12C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°12**************************** 
         ;*************Ligne N°13*******************************
          WriteStringN(#Fichier,"<tr>")
         L13C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,0) 
          WriteStringN(#Fichier,"<td>" + L13C1$ + "</td>")
         L13C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,1) 
          WriteStringN(#Fichier,"<td>" + L13C2$ + "</td>")
         L13C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,2) 
          WriteStringN(#Fichier,"<td>" + L13C3$ + "</td>")
         L13C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,3) 
          WriteStringN(#Fichier,"<td>" + L13C4$ + "</td>")
         L13C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,4) 
          WriteStringN(#Fichier,"<td>" + L13C5$ + "</td>")
         L13C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,5) 
          WriteStringN(#Fichier,"<td>" + L13C6$ + "</td>")
         L13C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,6) 
          WriteStringN(#Fichier,"<td>" + L13C7$ + "</td>")
         L13C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,7) 
          WriteStringN(#Fichier,"<td>" + L13C8$ + "</td>")
         L13C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,13,8) 
          WriteStringN(#Fichier,"<td>" + L13C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°13****************************
         ;*************Ligne N°14*******************************
          WriteStringN(#Fichier,"<tr>")
         L14C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,0) 
          WriteStringN(#Fichier,"<td>" + L14C1$ + "</td>")
         L14C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,1) 
          WriteStringN(#Fichier,"<td>" + L14C2$ + "</td>")
         L14C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,2) 
          WriteStringN(#Fichier,"<td>" + L14C3$ + "</td>")
         L14C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,3) 
          WriteStringN(#Fichier,"<td>" + L14C4$ + "</td>")
         L14C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,4) 
          WriteStringN(#Fichier,"<td>" + L14C5$ + "</td>")
         L14C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,5) 
          WriteStringN(#Fichier,"<td>" + L14C6$ + "</td>")
         L14C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,6) 
          WriteStringN(#Fichier,"<td>" + L14C7$ + "</td>")
         L14C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,7) 
          WriteStringN(#Fichier,"<td>" + L14C8$ + "</td>")
         L14C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,14,8) 
          WriteStringN(#Fichier,"<td>" + L14C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°14**************************** 
         ;*************Ligne N°15*******************************
          WriteStringN(#Fichier,"<tr>")
         L15C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,0) 
          WriteStringN(#Fichier,"<td>" + L15C1$ + "</td>")
         L15C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,1) 
          WriteStringN(#Fichier,"<td>" + L15C2$ + "</td>")
         L15C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,2) 
          WriteStringN(#Fichier,"<td>" + L15C3$ + "</td>")
         L15C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,3) 
          WriteStringN(#Fichier,"<td>" + L15C4$ + "</td>")
         L15C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,4) 
          WriteStringN(#Fichier,"<td>" + L15C5$ + "</td>")
         L15C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,5) 
          WriteStringN(#Fichier,"<td>" + L15C6$ + "</td>")
         L15C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,6) 
          WriteStringN(#Fichier,"<td>" + L15C7$ + "</td>")
         L15C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,7) 
          WriteStringN(#Fichier,"<td>" + L15C8$ + "</td>")
         L15C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,15,8) 
          WriteStringN(#Fichier,"<td>" + L15C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°15****************************
         ;*************Ligne N°16*******************************
          WriteStringN(#Fichier,"<tr>")
         L16C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,0) 
          WriteStringN(#Fichier,"<td>" + L16C1$ + "</td>")
         L16C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,1) 
          WriteStringN(#Fichier,"<td>" + L16C2$ + "</td>")
         L16C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,2) 
          WriteStringN(#Fichier,"<td>" + L16C3$ + "</td>")
         L16C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,3) 
          WriteStringN(#Fichier,"<td>" + L16C4$ + "</td>")
         L16C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,4) 
          WriteStringN(#Fichier,"<td>" + L16C5$ + "</td>")
         L16C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,5) 
          WriteStringN(#Fichier,"<td>" + L16C6$ + "</td>")
         L16C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,6) 
          WriteStringN(#Fichier,"<td>" + L16C7$ + "</td>")
         L16C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,7) 
          WriteStringN(#Fichier,"<td>" + L16C8$ + "</td>")
         L16C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,16,8) 
          WriteStringN(#Fichier,"<td>" + L16C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°16**************************** 
         ;*************Ligne N°17*******************************
          WriteStringN(#Fichier,"<tr>")
         L17C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,0) 
          WriteStringN(#Fichier,"<td>" + L17C1$ + "</td>")
         L17C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,1) 
          WriteStringN(#Fichier,"<td>" + L17C2$ + "</td>")
         L17C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,2) 
          WriteStringN(#Fichier,"<td>" + L17C3$ + "</td>")
         L17C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,3) 
          WriteStringN(#Fichier,"<td>" + L17C4$ + "</td>")
         L17C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,4) 
          WriteStringN(#Fichier,"<td>" + L17C5$ + "</td>")
         L17C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,5) 
          WriteStringN(#Fichier,"<td>" + L17C6$ + "</td>")
         L17C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,6) 
          WriteStringN(#Fichier,"<td>" + L17C7$ + "</td>")
         L17C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,7) 
          WriteStringN(#Fichier,"<td>" + L17C8$ + "</td>")
         L17C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,17,8) 
          WriteStringN(#Fichier,"<td>" + L17C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°17****************************
         ;*************Ligne N°18*******************************
          WriteStringN(#Fichier,"<tr>")
         L18C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,0) 
          WriteStringN(#Fichier,"<td>" + L18C1$ + "</td>")
         L18C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,1) 
          WriteStringN(#Fichier,"<td>" + L18C2$ + "</td>")
         L18C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,2) 
          WriteStringN(#Fichier,"<td>" + L18C3$ + "</td>")
         L18C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,3) 
          WriteStringN(#Fichier,"<td>" + L18C4$ + "</td>")
         L18C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,4) 
          WriteStringN(#Fichier,"<td>" + L18C5$ + "</td>")
         L18C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,5) 
          WriteStringN(#Fichier,"<td>" + L18C6$ + "</td>")
         L18C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,6) 
          WriteStringN(#Fichier,"<td>" + L18C7$ + "</td>")
         L18C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,7) 
          WriteStringN(#Fichier,"<td>" + L18C8$ + "</td>")
         L18C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,18,8) 
          WriteStringN(#Fichier,"<td>" + L18C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°18**************************** 
         ;*************Ligne N°19*******************************
          WriteStringN(#Fichier,"<tr>")
         L19C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,0) 
          WriteStringN(#Fichier,"<td>" + L19C1$ + "</td>")
         L19C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,1) 
          WriteStringN(#Fichier,"<td>" + L19C2$ + "</td>")
         L19C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,2) 
          WriteStringN(#Fichier,"<td>" + L19C3$ + "</td>")
         L19C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,3) 
          WriteStringN(#Fichier,"<td>" + L19C4$ + "</td>")
         L19C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,4) 
          WriteStringN(#Fichier,"<td>" + L19C5$ + "</td>")
         L19C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,5) 
          WriteStringN(#Fichier,"<td>" + L19C6$ + "</td>")
         L19C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,6) 
          WriteStringN(#Fichier,"<td>" + L19C7$ + "</td>")
         L19C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,7) 
          WriteStringN(#Fichier,"<td>" + L19C8$ + "</td>")
         L19C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,19,8) 
          WriteStringN(#Fichier,"<td>" + L19C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°19**************************** 
         ;*************Ligne N°20*******************************
          WriteStringN(#Fichier,"<tr>")
         L20C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,0) 
          WriteStringN(#Fichier,"<td>" + L20C1$ + "</td>")
         L20C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,1) 
          WriteStringN(#Fichier,"<td>" + L20C2$ + "</td>")
         L20C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,2) 
          WriteStringN(#Fichier,"<td>" + L20C3$ + "</td>")
         L20C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,3) 
          WriteStringN(#Fichier,"<td>" + L20C4$ + "</td>")
         L20C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,4) 
          WriteStringN(#Fichier,"<td>" + L20C5$ + "</td>")
         L20C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,5) 
          WriteStringN(#Fichier,"<td>" + L20C6$ + "</td>")
         L20C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,6) 
          WriteStringN(#Fichier,"<td>" + L20C7$ + "</td>")
         L20C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,7) 
          WriteStringN(#Fichier,"<td>" + L20C8$ + "</td>")
         L20C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,20,8) 
          WriteStringN(#Fichier,"<td>" + L20C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°20****************************
         ;*************Ligne N°21*******************************
          WriteStringN(#Fichier,"<tr>")
         L21C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,0) 
          WriteStringN(#Fichier,"<td>" + L21C1$ + "</td>")
         L21C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,1) 
          WriteStringN(#Fichier,"<td>" + L21C2$ + "</td>")
         L21C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,2) 
          WriteStringN(#Fichier,"<td>" + L21C3$ + "</td>")
         L21C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,3) 
          WriteStringN(#Fichier,"<td>" + L21C4$ + "</td>")
         L21C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,4) 
          WriteStringN(#Fichier,"<td>" + L21C5$ + "</td>")
         L21C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,5) 
          WriteStringN(#Fichier,"<td>" + L21C6$ + "</td>")
         L21C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,6) 
          WriteStringN(#Fichier,"<td>" + L21C7$ + "</td>")
         L21C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,7) 
          WriteStringN(#Fichier,"<td>" + L21C8$ + "</td>")
         L21C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,21,8) 
          WriteStringN(#Fichier,"<td>" + L21C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°21****************************
         ;*************Ligne N°22*******************************
          WriteStringN(#Fichier,"<tr>")
         L22C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,0) 
          WriteStringN(#Fichier,"<td>" + L22C1$ + "</td>")
         L22C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,1) 
          WriteStringN(#Fichier,"<td>" + L22C2$ + "</td>")
         L22C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,2) 
          WriteStringN(#Fichier,"<td>" + L22C3$ + "</td>")
         L22C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,3) 
          WriteStringN(#Fichier,"<td>" + L22C4$ + "</td>")
         L22C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,4) 
          WriteStringN(#Fichier,"<td>" + L22C5$ + "</td>")
         L22C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,5) 
          WriteStringN(#Fichier,"<td>" + L22C6$ + "</td>")
         L22C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,6) 
          WriteStringN(#Fichier,"<td>" + L22C7$ + "</td>")
         L22C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,7) 
          WriteStringN(#Fichier,"<td>" + L22C8$ + "</td>")
         L22C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,22,8) 
          WriteStringN(#Fichier,"<td>" + L22C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°22**************************** 
         ;*************Ligne N°23*******************************
          WriteStringN(#Fichier,"<tr>")
         L23C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,0) 
          WriteStringN(#Fichier,"<td>" + L23C1$ + "</td>")
         L23C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,1) 
          WriteStringN(#Fichier,"<td>" + L23C2$ + "</td>")
         L23C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,2) 
          WriteStringN(#Fichier,"<td>" + L23C3$ + "</td>")
         L23C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,3) 
          WriteStringN(#Fichier,"<td>" + L23C4$ + "</td>")
         L23C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,4) 
          WriteStringN(#Fichier,"<td>" + L23C5$ + "</td>")
         L23C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,5) 
          WriteStringN(#Fichier,"<td>" + L23C6$ + "</td>")
         L23C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,6) 
          WriteStringN(#Fichier,"<td>" + L23C7$ + "</td>")
         L23C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,7) 
          WriteStringN(#Fichier,"<td>" + L23C8$ + "</td>")
         L23C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,23,8) 
          WriteStringN(#Fichier,"<td>" + L23C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°23****************************
         ;*************Ligne N°24*******************************
          WriteStringN(#Fichier,"<tr>")
         L24C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,0) 
          WriteStringN(#Fichier,"<td>" + L24C1$ + "</td>")
         L24C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,1) 
          WriteStringN(#Fichier,"<td>" + L24C2$ + "</td>")
         L24C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,2) 
          WriteStringN(#Fichier,"<td>" + L24C3$ + "</td>")
         L24C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,3) 
          WriteStringN(#Fichier,"<td>" + L24C4$ + "</td>")
         L24C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,4) 
          WriteStringN(#Fichier,"<td>" + L24C5$ + "</td>")
         L24C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,5) 
          WriteStringN(#Fichier,"<td>" + L24C6$ + "</td>")
         L24C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,6) 
          WriteStringN(#Fichier,"<td>" + L24C7$ + "</td>")
         L24C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,7) 
          WriteStringN(#Fichier,"<td>" + L24C8$ + "</td>")
         L24C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,24,8) 
          WriteStringN(#Fichier,"<td>" + L24C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°24**************************** 
         ;*************Ligne N°25*******************************
          WriteStringN(#Fichier,"<tr>")
         L25C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,0) 
          WriteStringN(#Fichier,"<td>" + L25C1$ + "</td>")
         L25C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,1) 
          WriteStringN(#Fichier,"<td>" + L25C2$ + "</td>")
         L25C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,2) 
          WriteStringN(#Fichier,"<td>" + L25C3$ + "</td>")
         L25C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,3) 
          WriteStringN(#Fichier,"<td>" + L25C4$ + "</td>")
         L25C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,4) 
          WriteStringN(#Fichier,"<td>" + L25C5$ + "</td>")
         L25C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,5) 
          WriteStringN(#Fichier,"<td>" + L25C6$ + "</td>")
         L25C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,6) 
          WriteStringN(#Fichier,"<td>" + L25C7$ + "</td>")
         L25C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,7) 
          WriteStringN(#Fichier,"<td>" + L25C8$ + "</td>")
         L25C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,25,8) 
          WriteStringN(#Fichier,"<td>" + L25C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°25****************************
         ;*************Ligne N°26*******************************
          WriteStringN(#Fichier,"<tr>")
         L26C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,0) 
          WriteStringN(#Fichier,"<td>" + L26C1$ + "</td>")
         L26C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,1) 
          WriteStringN(#Fichier,"<td>" + L26C2$ + "</td>")
         L26C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,2) 
          WriteStringN(#Fichier,"<td>" + L26C3$ + "</td>")
         L26C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,3) 
          WriteStringN(#Fichier,"<td>" + L26C4$ + "</td>")
         L26C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,4) 
          WriteStringN(#Fichier,"<td>" + L26C5$ + "</td>")
         L26C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,5) 
          WriteStringN(#Fichier,"<td>" + L26C6$ + "</td>")
         L26C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,6) 
          WriteStringN(#Fichier,"<td>" + L26C7$ + "</td>")
         L26C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,7) 
          WriteStringN(#Fichier,"<td>" + L26C8$ + "</td>")
         L26C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,26,8) 
          WriteStringN(#Fichier,"<td>" + L26C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°26****************************
         ;*************Ligne N°27*******************************
          WriteStringN(#Fichier,"<tr>")
         L27C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,0) 
          WriteStringN(#Fichier,"<td>" + L27C1$ + "</td>")
         L27C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,1) 
          WriteStringN(#Fichier,"<td>" + L27C2$ + "</td>")
         L27C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,2) 
          WriteStringN(#Fichier,"<td>" + L27C3$ + "</td>")
         L27C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,3) 
          WriteStringN(#Fichier,"<td>" + L27C4$ + "</td>")
         L27C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,4) 
          WriteStringN(#Fichier,"<td>" + L27C5$ + "</td>")
         L27C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,5) 
          WriteStringN(#Fichier,"<td>" + L27C6$ + "</td>")
         L27C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,6) 
          WriteStringN(#Fichier,"<td>" + L27C7$ + "</td>")
         L27C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,7) 
          WriteStringN(#Fichier,"<td>" + L27C8$ + "</td>")
         L27C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,27,8) 
          WriteStringN(#Fichier,"<td>" + L27C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°27****************************
         ;*************Ligne N°28*******************************
          WriteStringN(#Fichier,"<tr>")
         L28C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,0) 
          WriteStringN(#Fichier,"<td>" + L28C1$ + "</td>")
         L28C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,1) 
          WriteStringN(#Fichier,"<td>" + L28C2$ + "</td>")
         L28C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,2) 
          WriteStringN(#Fichier,"<td>" + L28C3$ + "</td>")
         L28C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,3) 
          WriteStringN(#Fichier,"<td>" + L28C4$ + "</td>")
         L28C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,4) 
          WriteStringN(#Fichier,"<td>" + L28C5$ + "</td>")
         L28C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,5) 
          WriteStringN(#Fichier,"<td>" + L28C6$ + "</td>")
         L28C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,6) 
          WriteStringN(#Fichier,"<td>" + L28C7$ + "</td>")
         L28C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,7) 
          WriteStringN(#Fichier,"<td>" + L28C8$ + "</td>")
         L28C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,28,8) 
          WriteStringN(#Fichier,"<td>" + L28C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°28****************************
         ;*************Ligne N°29*******************************
          WriteStringN(#Fichier,"<tr>")
         L29C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,0) 
          WriteStringN(#Fichier,"<td>" + L29C1$ + "</td>")
         L29C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,1) 
          WriteStringN(#Fichier,"<td>" + L29C2$ + "</td>")
         L29C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,2) 
          WriteStringN(#Fichier,"<td>" + L29C3$ + "</td>")
         L29C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,3) 
          WriteStringN(#Fichier,"<td>" + L29C4$ + "</td>")
         L29C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,4) 
          WriteStringN(#Fichier,"<td>" + L29C5$ + "</td>")
         L29C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,5) 
          WriteStringN(#Fichier,"<td>" + L29C6$ + "</td>")
         L29C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,6) 
          WriteStringN(#Fichier,"<td>" + L29C7$ + "</td>")
         L29C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,7) 
          WriteStringN(#Fichier,"<td>" + L29C8$ + "</td>")
         L29C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,29,8) 
          WriteStringN(#Fichier,"<td>" + L29C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°29****************************
         ;*************Ligne N°30*******************************
          WriteStringN(#Fichier,"<tr>")
         L30C1$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,0) 
          WriteStringN(#Fichier,"<td>" + L30C1$ + "</td>")
         L30C2$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,1) 
          WriteStringN(#Fichier,"<td>" + L30C2$ + "</td>")
         L30C3$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,2) 
          WriteStringN(#Fichier,"<td>" + L30C3$ + "</td>")
         L30C4$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,3) 
          WriteStringN(#Fichier,"<td>" + L30C4$ + "</td>")
         L30C5$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,4) 
          WriteStringN(#Fichier,"<td>" + L30C5$ + "</td>")
         L30C6$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,5) 
          WriteStringN(#Fichier,"<td>" + L30C6$ + "</td>")
         L30C7$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,6) 
          WriteStringN(#Fichier,"<td>" + L30C7$ + "</td>")
         L30C8$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,7) 
          WriteStringN(#Fichier,"<td>" + L30C8$ + "</td>")
         L30C9$ = GetGadgetItemText(#Gadget_Form2_ListIcon8,30,8) 
          WriteStringN(#Fichier,"<td>" + L30C9$ + "</td>") 
          WriteStringN(#Fichier,"</tr>")   
         ;************Fin Ligne N°30****************************                                                                
        

      WriteStringN(#Fichier, "     </body>")
      WriteStringN(#Fichier, "</html>")
     CloseFile(#Fichier)
      RunProgram("Planning.html")
  EndIf
  
EndProcedure
Oui c très long mais ca fait ce que je voulais si defois ca peut servir à d'autre. Les variables L1C1$, L2C2$......L30C9$, sont les variable de chaque case du ListIconGadget le L veut dire Ligne et le C Colonne.
Exemple L1C1$ = Ligne 1 Colonne 1.
Haut
Ollivier
Messages : 4197
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :
Contacter Ollivier

Message par Ollivier »

Je me suis permis de faire une réduction de ton code.
Logiquement, ça ne prends en compte que la zone entre HMin x LMin et HMax x LMax.
(H : Hauteur, ligne
L : Largeur, colonne)

Code : Tout sélectionner

Procedure Imprimer(HMin.L, LMin.L, HMax.L, LMax.L)
  Protected H.L
  Protected L.L 
  If OpenFile(#Fichier, "Planning.html") 
      WriteStringN(#Fichier, "<html>") 
      WriteStringN(#Fichier, "    <title>Planning Sécurité Incendie</title>") 
      WriteStringN(#Fichier, "     <head>") 
      WriteStringN(#Fichier, "     </head>") 
      WriteStringN(#Fichier, "       <body>") 
         ;*************Titre Tableau*************************** 
          WriteStringN(#Fichier,"<table border=*1*>") 
          WriteStringN(#Fichier,"<tr>") 
          WriteStringN(#Fichier," <td> DATE </td>") 
          WriteStringN(#Fichier," <td> JOURS </td> ") 
          WriteStringN(#Fichier," <td> 7H / 19H </td>") 
          WriteStringN(#Fichier," <td> 19H / 7H </td>") 
          WriteStringN(#Fichier," <td> 4H / 14H </td>") 
          WriteStringN(#Fichier," <td> 14H / 24H </td>") 
          WriteStringN(#Fichier," <td> 8H / 20H </td>") 
          WriteStringN(#Fichier," <td> 9H / 21H </td>") 
          WriteStringN(#Fichier,"</tr>") 
         ;*************Fin Titre Tableau*********************** 
         ;*************Contenu de la zone******************************* 
         For L = LMin To LMax
           For H = HMin To HMax
             WriteStringN(#Fichier,"<tr>")
             WriteStringN(#Fichier,"<td>" + GetGadgetItemText(#Gadget_Form2_ListIcon8,L,H) + "</td>")
             WriteStringN(#Fichier,"</tr>")
           Next
         Next                            

      WriteStringN(#Fichier, "     </body>") 
      WriteStringN(#Fichier, "</html>") 
     CloseFile(#Fichier) 
      RunProgram("Planning.html") 
  EndIf 
  
EndProcedure
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Grosse réduction je dirais même :D . Merci Olivier.
Haut
Répondre

Revenir à « Débutants »