Mais ma police n'est pas soulignée ??? Comment faire svp ???
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
RichTextBox1.SelStart = 2 'après B 'insère C AddText RichTextBox1, "C", True, False End Sub
'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Underlined As Boolean, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelText = Text End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"le_troll" a écrit dans le message de news:
Bonjour,
Je n'arrive pas à avoir la police désirée dans un RTF, je voudrais des alternance suivant besoin, de texte souligné et non
RichTextBox1.SelStart = 2 'après B
'insère C
AddText RichTextBox1, "C", True, False
End Sub
'RTB : richtextbox dans laquelle ajouter le texte
'text : texte à ajouter
'underline : le texte doit il être souligné?
'append : ajouter dans le texte à la position
' actuelle (faux) ou à l'a fin (vrai)?
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Underlined As Boolean, _
Optional append = True)
If append Then
RTB.SelStart = Len(RTB.Text)
End If
RTB.SelUnderline = Underlined
RTB.SelText = Text
End Sub
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"le_troll" <le_trol@paris.fr> a écrit dans le message de
news:uVjdjclcEHA.1356@TK2MSFTNGP09.phx.gbl
Bonjour,
Je n'arrive pas à avoir la police désirée dans un RTF, je
voudrais des alternance suivant besoin, de texte souligné et non
RichTextBox1.SelStart = 2 'après B 'insère C AddText RichTextBox1, "C", True, False End Sub
'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Underlined As Boolean, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelText = Text End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"le_troll" a écrit dans le message de news:
Bonjour,
Je n'arrive pas à avoir la police désirée dans un RTF, je voudrais des alternance suivant besoin, de texte souligné et non
fortonmichael
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour aller a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)
RichTextBox1.SelStart = 2 'après B 'insère C AddText RichTextBox1, "C", True, False End Sub
'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Underlined As Boolean, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelText = Text End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"le_troll" a écrit dans le message de news:
Bonjour,
Je n'arrive pas à avoir la police désirée dans un
RTF, je
voudrais des alternance suivant besoin, de texte
souligné et non
.
Mais comment fait on pour avoir des caractere en bold,
iltalic, de taille et de fontes différentes????
quelle est egalement la methode ma plus facile pour aller
a la ligne ds une RTB?
exemple:
essai (en souligné et gras, taille 14)
125 254 reussi (a la ligne, taille 10, italique)
fin (a la ligne, taille 12, italique)
RichTextBox1.SelStart = 2 'après B
'insère C
AddText RichTextBox1, "C", True, False
End Sub
'RTB : richtextbox dans laquelle ajouter le texte
'text : texte à ajouter
'underline : le texte doit il être souligné?
'append : ajouter dans le texte à la position
' actuelle (faux) ou à l'a fin (vrai)?
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Underlined As Boolean, _
Optional append = True)
If append Then
RTB.SelStart = Len(RTB.Text)
End If
RTB.SelUnderline = Underlined
RTB.SelText = Text
End Sub
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"le_troll" <le_trol@paris.fr> a écrit dans le message de
news:uVjdjclcEHA.1356@TK2MSFTNGP09.phx.gbl
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour aller a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)
RichTextBox1.SelStart = 2 'après B 'insère C AddText RichTextBox1, "C", True, False End Sub
'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Underlined As Boolean, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelText = Text End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"le_troll" a écrit dans le message de news:
Bonjour,
Je n'arrive pas à avoir la police désirée dans un
RTF, je
voudrais des alternance suivant besoin, de texte
souligné et non
.
François Picalausa
Hello,
Tu peux améliorer la méthode que j'avais proprosée: 'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
Pour ajouter un retour à la ligne, tu peux simplement employer: AddText MaRichTextBox, vbCrLf Il est aussi possible d'employer RichTextBox.text = RichTextBox.text & vbCrLf Mais les opérations de concaténations sont lentes et tu perdrais tout le formattage appliqué au texte.
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"fortonmichael" a écrit dans le message de news:159101c47bb8$475ca7b0$
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour aller a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)
Hello,
Tu peux améliorer la méthode que j'avais proprosée:
'RTB : richtextbox dans laquelle ajouter le texte
'text : texte à ajouter
'underline : le texte doit il être souligné?
'append : ajouter dans le texte à la position
' actuelle (faux) ou à l'a fin (vrai)?
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Underlined As Boolean = False, _
Optional Bold As Boolean = False, _
Optional Italic As Boolean = False, _
Optional Size As Single = 10, _
Optional append = True)
If append Then
RTB.SelStart = Len(RTB.Text)
End If
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelText = Text
End Sub
Pour ajouter un retour à la ligne, tu peux simplement employer:
AddText MaRichTextBox, vbCrLf
Il est aussi possible d'employer RichTextBox.text = RichTextBox.text &
vbCrLf
Mais les opérations de concaténations sont lentes et tu perdrais tout le
formattage appliqué au texte.
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"fortonmichael" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:159101c47bb8$475ca7b0$a401280a@phx.gbl
Mais comment fait on pour avoir des caractere en bold,
iltalic, de taille et de fontes différentes????
quelle est egalement la methode ma plus facile pour aller
a la ligne ds une RTB?
exemple:
essai (en souligné et gras, taille 14)
125 254 reussi (a la ligne, taille 10, italique)
fin (a la ligne, taille 12, italique)
Tu peux améliorer la méthode que j'avais proprosée: 'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
Pour ajouter un retour à la ligne, tu peux simplement employer: AddText MaRichTextBox, vbCrLf Il est aussi possible d'employer RichTextBox.text = RichTextBox.text & vbCrLf Mais les opérations de concaténations sont lentes et tu perdrais tout le formattage appliqué au texte.
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"fortonmichael" a écrit dans le message de news:159101c47bb8$475ca7b0$
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour aller a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)
Je voudrais pas vous ennuyer mais j'ai essaier de changer les types de police pour ce que j'ecrit mais j'y arrive pas... il change la police apres lui avoir donné l'instruction. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code modifié: ex: "time new roman" écrit en time new roman "arial" écrit en arial
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional Fonte As String = False, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelFontName = Fonte RTB.SelText = Text End Sub
-----Message d'origine----- Hello,
Tu peux améliorer la méthode que j'avais proprosée: 'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
Pour ajouter un retour à la ligne, tu peux simplement
employer:
AddText MaRichTextBox, vbCrLf Il est aussi possible d'employer RichTextBox.text =
RichTextBox.text &
vbCrLf Mais les opérations de concaténations sont lentes et tu
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"fortonmichael" a
écrit dans le
message de news:159101c47bb8$475ca7b0$
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour
aller
a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)
.
Je voudrais pas vous ennuyer mais j'ai essaier de changer
les types de police pour ce que j'ecrit mais j'y arrive
pas... il change la police apres lui avoir donné
l'instruction. J'ai l'impression que l'ordre des
instruction est importante?? d'abord la police ensuite la
taille???
voici le code modifié:
ex: "time new roman" écrit en time new roman
"arial" écrit en arial
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Underlined As Boolean = False, _
Optional Bold As Boolean = False, _
Optional Italic As Boolean = False, _
Optional Size As Single = 10, _
Optional Fonte As String = False, _
Optional append = True)
If append Then
RTB.SelStart = Len(RTB.Text)
End If
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelFontName = Fonte
RTB.SelText = Text
End Sub
-----Message d'origine-----
Hello,
Tu peux améliorer la méthode que j'avais proprosée:
'RTB : richtextbox dans laquelle ajouter le texte
'text : texte à ajouter
'underline : le texte doit il être souligné?
'append : ajouter dans le texte à la position
' actuelle (faux) ou à l'a fin (vrai)?
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Underlined As Boolean = False, _
Optional Bold As Boolean = False, _
Optional Italic As Boolean = False, _
Optional Size As Single = 10, _
Optional append = True)
If append Then
RTB.SelStart = Len(RTB.Text)
End If
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelText = Text
End Sub
Pour ajouter un retour à la ligne, tu peux simplement
employer:
AddText MaRichTextBox, vbCrLf
Il est aussi possible d'employer RichTextBox.text =
RichTextBox.text &
vbCrLf
Mais les opérations de concaténations sont lentes et tu
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"fortonmichael" <anonymous@discussions.microsoft.com> a
écrit dans le
message de news:159101c47bb8$475ca7b0$a401280a@phx.gbl
Mais comment fait on pour avoir des caractere en bold,
iltalic, de taille et de fontes différentes????
quelle est egalement la methode ma plus facile pour
aller
a la ligne ds une RTB?
exemple:
essai (en souligné et gras, taille 14)
125 254 reussi (a la ligne, taille 10, italique)
fin (a la ligne, taille 12, italique)
Je voudrais pas vous ennuyer mais j'ai essaier de changer les types de police pour ce que j'ecrit mais j'y arrive pas... il change la police apres lui avoir donné l'instruction. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code modifié: ex: "time new roman" écrit en time new roman "arial" écrit en arial
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional Fonte As String = False, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelFontName = Fonte RTB.SelText = Text End Sub
-----Message d'origine----- Hello,
Tu peux améliorer la méthode que j'avais proprosée: 'RTB : richtextbox dans laquelle ajouter le texte 'text : texte à ajouter 'underline : le texte doit il être souligné? 'append : ajouter dans le texte à la position ' actuelle (faux) ou à l'a fin (vrai)? Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Underlined As Boolean = False, _ Optional Bold As Boolean = False, _ Optional Italic As Boolean = False, _ Optional Size As Single = 10, _ Optional append = True)
If append Then RTB.SelStart = Len(RTB.Text) End If
RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
Pour ajouter un retour à la ligne, tu peux simplement
employer:
AddText MaRichTextBox, vbCrLf Il est aussi possible d'employer RichTextBox.text =
RichTextBox.text &
vbCrLf Mais les opérations de concaténations sont lentes et tu
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"fortonmichael" a
écrit dans le
message de news:159101c47bb8$475ca7b0$
Mais comment fait on pour avoir des caractere en bold, iltalic, de taille et de fontes différentes???? quelle est egalement la methode ma plus facile pour
aller
a la ligne ds une RTB? exemple:
essai (en souligné et gras, taille 14) 125 254 reussi (a la ligne, taille 10, italique) fin (a la ligne, taille 12, italique)