Discussion :

[Invité]

Bonjour.
À l'époque bénie du VB6, il suffisait, pour mettre en forme du texte dans un RichTextBox, d'utiliser les propriétés SelFont, SelBold,...
Mettre la sélection en gras se résumait à ce petit bout de code adorable :

Code :

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

RichTextBox.SelBold = True

mais le VB.NET est arrivé et je ne vois pas, mais alors vraiment pas, comment faire la même chose en VB.Net. Je m'explique.

La propriété "SelectionFont" permet de définir la police de la séléction. Mais ce code

Code :

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

RTB.SelectionFont = New Font (RTB.SelectionFont.Name, RTB.SelectionFont.Size, FontStyle.Bold)

tombe à l'eau dès que le sélection contient des polices ou des tailles multiples, puisque RTB.SelectionFont.Name est "Null" dans ce cas là.
Tout ce que j'ai pu trouver est d'utiliser une boucle pour traiter chaque caractère séparément, mais ça fait pas très propre .

Quelqu'un a une idée SVP ?
Merci.

[hunteshiva]

En fait il faut:

1/ créer une police
2/ l'appliquer au font de ton élément

exemple :

Code :

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

1
2
3
4
5
        '   Création d'un font (police)
        Dim NewFont As New Font("Arial", 15, FontStyle.Bold)
 
        ' Application de la police sur l'élément
        maTextBox.Font = NewFont

[Invité]

oui mais le problème est le même : ça met fort bien en gras, aucun problème là dessus, seulement toute la mise en forme (par exemple : les titres sont en une autre police, les citations sont en italique) est écrasée par ce bout de code
help !

[methylene]

Salut,

Regarde de ce coté-ci : http://plasserre.developpez.com/cour...wpf3#LXI-F-3-d

[Invité]

Si j'ai bien compris c'est un code de ce type

Code :

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

1
2
3
4
5
6
7
8
Dim doc As New FlowDocument
Dim para As New Paragraph
para.Inlines.Add("Ceci est un texte avec une partie")
Dim b As New Bold
b.Inlines.Add("en gras")
para.Inlines.Add(b)
doc.Blocks.Add(para)
RichTextBox1.Document = doc

qui va me permettre de mettre la séléction en gras ?

Mais c'est pas possible chez Redmond ils embauchent des employés rien que pour complexifier les propriétés des RichTextBox d'un langage à l'autre
Enfin je suis assez débutant en VB.NET donc si quelqu'un veut bien m'aider à décrypter ce petit bout de code je suis plus que preneur

[hunteshiva]

pour toi sa devrais être comme sa

Code :

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

1
2
3
4
5
6
7
8
Dim doc As New FlowDocument
Dim para As New Paragraph
para.Inlines.Add("")
Dim b As New Bold
b.Inlines.Add("Tout ton Texte")
para.Inlines.Add(b)
doc.Blocks.Add(para)
RichTextBox1.Document = doc

(donne nous un bout de ton code qui montre
comment tu faire pour remplir ta RichTextBox)
et p-e qu'on pourra t'aider un peut plus