Discussion :

[starkson]

Je m'explique.
J'ai une RichText avec des titres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<OL><LI>Titre1</LI><LI>Titre2</LI></OL>

Que je veux convertir en plusieurs labels

Un par titre & paragraphe.
Mais en plus, je veux pouvoir creer un sommaire "clickable" avec tout les titres.
Et quand je clique sur un titre ça m'affiche la page au niveau du titre.

Jpensais utiliser "directement" des liens du type:
Coté Sommaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<a href="#heading1">Lien vers le titre 1</a>

Coté texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<h1 id="heading1">titre 1</h1>

Mais ça n'a pas l'air de marché des masses.

Est ce la bonne methode? Est ce que vous auriez un exemple de code qui fait ça?

En gros: Commencer creer un lien html dynamiquement sur un label.

(ps: il y a peut etre moyen d'utiliser l'evenement "onclick" du label et utiliser le "Focus" sur le coté texte... mais je n'ai aucune idée de comment mettre ça en place...)

[starkson]

Bon en fait j'ai resolu le probleme tout seul c'etait vraiment des erreurs stupides...

ce n'est pas:
HL ID
mais
H1 ID qu'il faut ecrire.

Et les j'oubliais des double cote

Jcopie une copie de mon code en guise de "résolution":


Grosso modo la fonction parse un texte contenant des balises <LI> et <OL>
Et crée des labels pour chaque paragraphe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Protected Sub AjouterLesLabelTexte(ByVal PTexte As String)
            Dim TitreTexteLabel, CorpsTexteLabel As Label
            Dim boutontest As Button
            Dim i, j, Niveau As Integer
            Dim TableauLignes() As String
            Niveau = 0
            i = 1
 
            ' On splitte
            TableauLignes = Split(PTexte, "<")
            ' On remet les "<"
            While i <= TableauLignes.GetUpperBound(0)
                TableauLignes(i) = "<" + TableauLignes(i)
                i = i + 1
            End While
 
            'Il faut nettoyer le code de toutes les balises inutiles (toutes celles differentes de <OL> et <LI>
            'Boucle de parsing
            i = 1
            While i <= TableauLignes.GetUpperBound(0)
                If TableauLignes(i).Contains("<OL>") Then
                    Niveau = Niveau + 1
                ElseIf TableauLignes(i).Contains("<OL>") Then
                    Niveau = Niveau + 1
                ElseIf TableauLignes(i).Contains("<LI>") Then
                    'On recupere tout le paragraphe
                    CorpsTexteLabel = New Label()
                    CorpsTexteLabel.Text = TableauLignes(i).Substring(4, TableauLignes(i).Length() - 4) 'permet d'enlever le "<LI>"
                    j = i + 1
                    While TableauLignes(j).Contains("LI") And TableauLignes(j).Contains("/LI") And TableauLignes(j).Contains("/OL") And j < TableauLignes.GetUpperBound(0)
                        CorpsTexteLabel.Text += TableauLignes(j)
                        j = j + 1
                    End While
                    'On affiche le paragraphe en lui attribuant un "heading" (lien interne HTML)
                    CorpsTexteLabel.Text = "OUECH OUECH" + CorpsTexteLabel.Text + "<h1 id=""heading" + i.ToString + """>" + "</HL><BR>"
                    PlaceHolder2.Controls.Add(CorpsTexteLabel)
 
                    'On enregistre le titre et on le fait linker vers le heading
                    TitreTexteLabel = New Label()
                    TitreTexteLabel.Text = "<a href=""#heading" + i.ToString + """>" + TableauLignes(i).Substring(4, TableauLignes(i).Length() - 4) + "</a><BR>"
                    TitreTexteLabel.Font.Italic = True
                    PlaceHolder1.Controls.Add(TitreTexteLabel)
 
                ElseIf TableauLignes(i).Contains("</LI>") Then
                        'Rien a faire???
                End If
                i = i + 1
            End While
        End Sub