Discussion :

[jacma]

Bonsoir

J'utilise des ComboBox pour définir les polices, leur taille et leur couleur. Par exemple, pour définir le nom de la police, j'ai le code suivant, rtxtDescription étant un contrôle RichTextBox et cbFontBame une ComboBox pour choisir le nom de police:

Code :

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

1
2
3
4
5
Private Sub cbFontName_Click()
'Choix de la police
  rtxtDescription.SelFontName = cbFontName
  rtxtDescription.SetFocus
End Sub

Cela serait bien... si je pouvais conserver ces caractéristiques pour le texte sélectionné. Mais dès que la combo perd le focus après éxécution du code ci-dessus, le dit texte sélectionné perd sa mise en forme.

Qu'est-ce que j'ai manqué, car j'imagine qu'il y a un moyen de sauvegarder cette mise en forme?

Merci.

PS: le contrôle est lié aux données par l'intermédiaire d'une BondingCollection.

[zazaraignée]

Salut

Propriété TextRTF ?

[jacma]

Propriété TextRTF ?

Merci de ta réponse, mais je ne pense pas...

En fait, depuis ce matin, quand la RTB perd le focus, le texte entier prend les caractéristiques définies pour la sélection.
Après divers essais, j'en suis arrivé à la conclusion que ces problèmes sont dûs à la liaison aux données. J'ai notamment essayé sans liaison. Le texte saisi dans la RTB prend alors correctement les caractéristiques définies pour la sélection...

Donc, j'en arrive à me demander s'il est possible de sauvegarder du texte mis en forme dans autre chose qu'un document RTF, et d'une façon générale, s'il est possible d'utiliser correctement une RTB dans une application VB avec liaison aux données?

[jacma]

Un léger progrès avec la propriété "PropertyName" de l'élement de la BindingCollection définie à "TextRTF" comme suit.

Code :

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

.Add rtxtDescription, "TextRTF", "Description", , "Description"

Le texte sélectionné prend effectivement les caractéristiques définies (à condition de renouveler deux fois la sélection et la définition). Le texte avec ses caractéristiques reste lors de la perte du focus. Cependant, les dites caractéristiques ne sont pas sauvegardées dans la base de données.

[jacma]

Encore un petit pas. Désormais, le texte sélectionné est mis en forme immédiatement en un seul passage. Il suffisait d'enlever le setfoccus...

Code :

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

1
2
3
4
5
6
7
8
Private Sub cbFontName_Click()
'Choix de la police
  With rtxtDescription
    .SelFontName = cbFontName
    '.SetFocus *************************à supprimer
    .Refresh
  End With
End Sub

Il ne reste plus que le problème de la sauvegarde dans la base de données (Access).

[jacma]

Bonjour

Pour sauvegarder le contenu de la RichTextBox avec sa mise en forme, la liaison aux données est possible dans le cadre de la propriété DataBinding de la RTB.

Par contre, il convient de passer par un contrôle ADODC (selon MSDN). Il est également possible d'utiliser un DataEnvironment et un objet Command. Avec l'un ou l'autre, il suffit alors de renseigner les champs de la boite de dialogue "Liaison de données" qui apparaît sur après un click sur la propriété DataBinding.

Je voudrais bien pouvoir programmer cela sans passer par un DataEnvironment, mais pour l'instant, je n'ai pas de piste. Je laisse donc en suspend ma question partiellement résolue...