Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 659
Nombre de snippets : 2085
Connexion

Exporter le contenu d'une listview au format html

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 03/03/2007 00:39:53 et initié par PCPT [Liste]
Vue : 4723
Catégorie(s) : Chaîne de caractères, Divers, Control
Langages dispo pour ce code :
- VB6, VBA
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 03/03/2007
Posté par PCPT [Liste]
Public Function GetHtmlFromListView(LV As ListView) As String
    Dim i As Integer, j As Integer, sTemp As String
    GetHtmlFromListView = "<TABLE  WIDTH=""95%"" BORDER=""1"" BORDERCOLORLIGHT=""#CCCCCC""  BORDERCOLORDARK=""#66CCFF"">" & vbCrLf
    
'    headers
    GetHtmlFromListView = GetHtmlFromListView & "  <TR BGCOLOR=""#CCCCFF"">" & vbCrLf
    For i = 1 To LV.ColumnHeaders.Count
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""3""><B>" & LV.ColumnHeaders(i).Text & "</B></FONT></TD>" & vbCrLf
    Next i
    GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
'    data
    For i = 1 To LV.ListItems.Count
        GetHtmlFromListView = GetHtmlFromListView & "  <TR>" & vbCrLf
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & LV.ListItems(i).Text & "</FONT></TD>" & vbCrLf
        For j = 1 To LV.ColumnHeaders.Count - 1
            sTemp = LV.ListItems(i).SubItems(j)
            If LenB(sTemp) = 0 Then sTemp = "&nbsp;"
            sTemp = Replace(sTemp, "<", "&lt;")
            sTemp = Replace(sTemp, ">", "&gt;")
            GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & sTemp & "</FONT></TD>" & vbCrLf
        Next j
        GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
    Next i
    
'    fin
    GetHtmlFromListView = GetHtmlFromListView  & "</TABLE>" & vbCrLf
End Function
Remarque :
la listview doit avoir au moins une celulle
la fonction retourne la chaîne à enregistrer.
voir sur codyx pour transformer une couleur OLE en HTM et comment enregistrer un fichier, pour personnaliser cette fonction selon vos besoins

Snippets en rapport avec : Html, Listview, Exporter

04/07/2009 - Ajouter une ligne à une listview (items multiples)

26/08/2008 - EXPORTER MSFLEXGRID VERS HTML

13/07/2008 - Exporter facilement des données en Excel

24/04/2008 - Parser http

19/01/2008 - Modifier facilement le contenu d'une cellule d'une ListView

08/12/2007 - Récupérer facilement le contenu d'une cellule d'une ListView

25/11/2007 - Ajout headers et/ou enregistrements dans une ListView via lecture d'une table/Bdd

23/08/2007 - Format html (url) vers format chaîne ascii

02/03/2007 - Redimensionner les colonnes d'un listview en fonction de leur contenu

02/03/2007 - Ajouter une colonne à une listview à partir d'une collection (et alterner les forecolor)



Codes sources en rapport avec : Html, Listview, Exporter

{PHP} CLASSE TABLE HTML DYNAMIQUE
Créer et modifier des tables (x)html dynamique. L'archive contient la source + la doc au format PDF...

{Visual Basic, VB6, VB.NET, VB 2005} FICHIERS_CACHÉS_LECTURE_SEULE
Vous pouvez mettre tous les fichiers d'une même extension en Lecture seule ou en Fichiers cachés. L...

{Visual Basic, VB6, VB.NET, VB 2005} FAVORIS URL
Appeler vos url favoris depuis la zone de notification. Vous pouvez réactualiser à tout moment grâce...

{PDA / PocketPC} RÉCUPÉRER DES VALEURS D'UNE LISTVIEW SOUS WINDOWS MOBILE
N'ayant pu trouver d'explication correcte sur la façon de récupérer les valeurs d'une listview, j'ai...

{Javascript / DHTML} FAIRE UN CV EN HTML VIA XML ET DU XSL
J'ai écris cet article pour vous aider à écrire votre CV en XML et le mettre en forme via du XSL. ...

{PHP} UNICODE TO HTML ENTITIES
Une fonction qui vous permettra de convertir une chaîne UNICODE en entité HTML. Par exemple : Am...

{Python} GÉNÉRATEUR HTML POUR L'UTILISATION DE PYTHON EN CGI
Ma première contribution au monde de l'Open Source :D Bon d'accord, c'est une maigre contribution.....

{Visual Basic, VB6, VB.NET, VB 2005} CARNET D'ADRESSES EXTERNE POUR OUTLOOK EXPRESS ET WINMAIL
Plusieurs amis s'étant fait pirater leur carnet d'adresses, j'ai pensé à faire un carnet perso, donc...

{Visual Basic, VB6, VB.NET, VB 2005} LISTVIEW_TRI_EXTENSIONS
Ce programme tri les fichiers d'un dossier ayant la même extension. Ces fichiers sont automatiquemen...

{C# / C#.NET} UITYPEEDITOR HACKING, PROPERTYGRID ET LISTVIEW CONFIGURABLES, TRÈS SIMPLE
Vous rêvez d'utiliser une PropertyGrid ou un ListView configurable, très simplement dans votre appli...