Je voudrais essaier de changer les types de police lors de=20
l'=E9criture de texte ds une richtextbox. J'ai l'impression=20
que l'ordre des=20
instruction est importante?? d'abord la police ensuite la=20
taille???
voici le code utilis=E9, mais le changement de police ne se=20
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Fonte As String =3D "arial", _ =20
Optional Underlined As Boolean =3D False, _
Optional Bold As Boolean =3D False, _
Optional Italic As Boolean =3D False, _
Optional Size As Single =3D 10, _
Optional append =3D True)
If append Then
RTB.SelStart =3D Len(RTB.Text)
End If
RTB.SelFontName =3D Fonte =20
RTB.SelUnderline =3D Underlined
RTB.SelBold =3D Bold
RTB.SelItalic =3D Italic
RTB.SelFontSize =3D Size
RTB.SelText =3D Text
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" & vbCrLf, "Comic sans MS" AddText RichTextBox1, "Courier New" & vbCrLf, "Courier New" AddText RichTextBox1, "Times New Roman" & vbCrLf, "Times New Roman" End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors de l'écriture de texte ds une richtextbox. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code utilisé, mais le changement de police ne se fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
Hello,
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement:
Private Sub Command1_Click()
RichTextBox1.Text = "" 'Vide le rich text box
AddText RichTextBox1, "Arial" & vbCrLf
AddText RichTextBox1, "Comic sans MS" & vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" & vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" & vbCrLf, "Times New Roman"
End Sub
--
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:332401c47edc$ae7059c0$a301280a@phx.gbl
Je voudrais essaier de changer les types de police lors de
l'écriture de texte ds une richtextbox. J'ai l'impression
que l'ordre des
instruction est importante?? d'abord la police ensuite la
taille???
voici le code utilisé, mais le changement de police ne se
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Fonte As String = "arial", _
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.SelFontName = Fonte
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelText = Text
End Sub
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" & vbCrLf, "Comic sans MS" AddText RichTextBox1, "Courier New" & vbCrLf, "Courier New" AddText RichTextBox1, "Times New Roman" & vbCrLf, "Times New Roman" End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors de l'écriture de texte ds une richtextbox. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code utilisé, mais le changement de police ne se fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
effectivement y a avais une faute... il y a moyen d'avoir la liste des polices que VB utilise dans l'help ou ailleurs?? ce sont les meme que pour word par exemple??
-----Message d'origine----- Hello,
As-tu bien orthographié le nom de la police (Times et pas
time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors
de
l'écriture de texte ds une richtextbox. J'ai
l'impression
que l'ordre des instruction est importante?? d'abord la police ensuite
la
taille??? voici le code utilisé, mais le changement de police ne
se
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
.
effectivement y a avais une faute...
il y a moyen d'avoir la liste des polices que VB utilise
dans l'help ou ailleurs?? ce sont les meme que pour word
par exemple??
-----Message d'origine-----
Hello,
As-tu bien orthographié le nom de la police (Times et pas
time)?
J'ai essayé le code suivant et ça fonctionne parfaitement:
Private Sub Command1_Click()
RichTextBox1.Text = "" 'Vide le rich text box
AddText RichTextBox1, "Arial" & vbCrLf
AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
--
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:332401c47edc$ae7059c0$a301280a@phx.gbl
Je voudrais essaier de changer les types de police lors
de
l'écriture de texte ds une richtextbox. J'ai
l'impression
que l'ordre des
instruction est importante?? d'abord la police ensuite
la
taille???
voici le code utilisé, mais le changement de police ne
se
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Fonte As String = "arial", _
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.SelFontName = Fonte
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelText = Text
End Sub
effectivement y a avais une faute... il y a moyen d'avoir la liste des polices que VB utilise dans l'help ou ailleurs?? ce sont les meme que pour word par exemple??
-----Message d'origine----- Hello,
As-tu bien orthographié le nom de la police (Times et pas
time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors
de
l'écriture de texte ds une richtextbox. J'ai
l'impression
que l'ordre des instruction est importante?? d'abord la police ensuite
la
taille??? voici le code utilisé, mais le changement de police ne
se
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
.
ng
Salut,
Les polices utilisables sont celles installées sur le système, comme pour toutes les applications (c:windowsfont).
On peut les lister par programmation via Screen.Fonts :
Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 Debug.Print Screen.Fonts(i) Next End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
a écrit :
effectivement y a avais une faute... il y a moyen d'avoir la liste des polices que VB utilise dans l'help ou ailleurs?? ce sont les meme que pour word par exemple??
-----Message d'origine----- Hello,
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors de l'écriture de texte ds une richtextbox. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code utilisé, mais le changement de police ne se fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
.
Salut,
Les polices utilisables sont celles installées sur le système, comme pour
toutes les applications (c:windowsfont).
On peut les lister par programmation via Screen.Fonts :
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Debug.Print Screen.Fonts(i)
Next
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
anonymous@discussions.microsoft.com <anonymous@discussions.microsoft.com> a
écrit :
effectivement y a avais une faute...
il y a moyen d'avoir la liste des polices que VB utilise
dans l'help ou ailleurs?? ce sont les meme que pour word
par exemple??
-----Message d'origine-----
Hello,
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement:
Private Sub Command1_Click()
RichTextBox1.Text = "" 'Vide le rich text box
AddText RichTextBox1, "Arial" & vbCrLf
AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
--
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:332401c47edc$ae7059c0$a301280a@phx.gbl
Je voudrais essaier de changer les types de police lors de
l'écriture de texte ds une richtextbox. J'ai l'impression
que l'ordre des
instruction est importante?? d'abord la police ensuite la
taille???
voici le code utilisé, mais le changement de police ne se
fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional Fonte As String = "arial", _
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.SelFontName = Fonte
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelFontSize = Size
RTB.SelText = Text
End Sub
Les polices utilisables sont celles installées sur le système, comme pour toutes les applications (c:windowsfont).
On peut les lister par programmation via Screen.Fonts :
Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 Debug.Print Screen.Fonts(i) Next End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
a écrit :
effectivement y a avais une faute... il y a moyen d'avoir la liste des polices que VB utilise dans l'help ou ailleurs?? ce sont les meme que pour word par exemple??
-----Message d'origine----- Hello,
As-tu bien orthographié le nom de la police (Times et pas time)?
J'ai essayé le code suivant et ça fonctionne parfaitement: Private Sub Command1_Click() RichTextBox1.Text = "" 'Vide le rich text box AddText RichTextBox1, "Arial" & vbCrLf AddText RichTextBox1, "Comic sans MS" &
vbCrLf, "Comic sans MS"
AddText RichTextBox1, "Courier New" &
vbCrLf, "Courier New"
AddText RichTextBox1, "Times New Roman" &
vbCrLf, "Times New Roman"
End Sub
-- 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:332401c47edc$ae7059c0$
Je voudrais essaier de changer les types de police lors de l'écriture de texte ds une richtextbox. J'ai l'impression que l'ordre des instruction est importante?? d'abord la police ensuite la taille??? voici le code utilisé, mais le changement de police ne se fais pas si je lui demande d'ecrire en 'time new roman':
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional Fonte As String = "arial", _ 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.SelFontName = Fonte RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelFontSize = Size RTB.SelText = Text End Sub
