Public Function flexGridToHtml(flex As MSFlexGrid) As String
Dim nblignes As Integer
Dim nbcolonnes As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
s = "<table>"
nblignes = flex.Rows - 1
nbcolonnes = flex.Cols - 1
For i = 0 To nblignes
s = s & "<tr>"
For j = 1 To nbcolonnes
s = s & "<td>" & flex.TextMatrix(i, j) & "</td>"
Next j
s = s & "</tr>"
Next i
s = s & "</table>"
flexGridToHtml = s
End Function
Remarque :
Cette fonction simple permet d'exporter une MSFlexGrid vers HTML, en vue de l'utiliser ailleurs .
Elle renvoie un tableau HTML classique.
Exemple d'utilisation :
Open "test.html" For Output As #1
Print #1, ""
Print #1, flexGridToHtml(NomDeLaFlexGrid)
Print #1, ""
Close #1