Discussion :

[gontrand16]

Bonjour à tous,

j'aimerais savoir s'il est possible de mettre du gras sur seulement une partie du texte qui est dans ma zone de texte. Lorsque je chosis de souligner une partie de mon texte et bien l'ensemble du texte dans ma zone est mis en gras. Même problème pour le soulignement et l'italique. J'espère que je suis assez clair.

Ex: Mettre du texte en gras, italique et soulignement dans une zone de texte.

Je n'ai pas accès au richtextbox.

[Invité]

Salut,

Réponse "Non", dans une zone de texte c'est l'intégralité de la chaine, le seul truc serait de faire des cumuls de zone de texte de mettre leurs bordures transparantes, et de gérer leur position par programmation, alors là il faudrati être fou.

Mais comme tu n'as pas la richtextbox

Starec

[Tofalu]

Le richtextbox est disponible si tu appliques les derniers services pack office à ton ordinateur

[gontrand16]

Ok, je commence à travailler avec Access, je viens de voir les nouveaux outils.

Est-ce que ce serait le Microsoft Rich textbox Control, version 6,0

Je le sélectionne, j'écris mon texte mais lorsque je sélectionne du texte, le soulignement, gras et italique devienne inaccessible. Est-ce normal ?

[User]

Salut,

Alors la ca devient du VB:

Il me semble que tu va devoir programmer tes propres fonctions de formatage de ton text dans ta RichtextBox:

Pour cela il te faut explorer les propriétés de ton RichTextBox: (ex: SelText, SelBold etc..)

un exemple si tu veux mettre en gras la partie du text sélectionné dans ton RichTextBox1 quand tu clicke sur 1 bouton:

Code :

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

1
2
3
Private Sub CmdBold_Click()
RichTextBox1.SelBold = True
End Sub

1 tour sur le forum vb serait une bonne idée

[Tofalu]

Tout figure dans les codes sources :

http://access.developpez.com/sources

Y a même un exemple à télecharger

[Elnarvalo]

Si ça intéresse quelqu'un :
ZT_phrase est une zone de texte avec la propriété Données/Format du texte : texte enrichi.
Déroulement : il suffit de sélectionner avec la souris la partie de la zone de texte (ZT_phrase) que l'on souhaite mettre en gras, puis de cliquer sur le bouton Command2.
Dans ce code, je mets en gras tous les termes correspondants à la sélection et non qu'un seul.

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Dim texteSel As String  
 
Private Sub Command2_Click()
Me.ZT_phrase = Replace(Me.ZT_phrase, texteSel, "<b>" & texteSel & "</b>")
End Sub
 
Private Sub zt_phrase_Exit(Cancel As Integer)
texteSel = zt_phrase.SelText
End Sub