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,
C'est faisable dans une *RichTextBox* :
Private Sub Form_Load() RichTextBox1.Text = "" AddText RichTextBox1, "Comic Sans MS" & vbCrLf, "Comic Sans MS" AddText RichTextBox1, "Arial 18" & vbCrLf, "Arial", , , , 18 End Sub
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional FontName As String = "MS Sans Serif", _ 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 = FontName RTB.SelFontSize = Size RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelText = Text End Sub
Sinon, il pour un TextBox, la seule solution qui me vient à l'esprit serait d'en créer un ownerdrawn, ce qui est loin d'être évident en VB.
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Curl" a écrit dans le message de news:4136f486$0$8391$
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** Texbox (pour écrire le symbole kilo-ohm par exemple)
Hello,
C'est faisable dans une *RichTextBox* :
Private Sub Form_Load()
RichTextBox1.Text = ""
AddText RichTextBox1, "Comic Sans MS" & vbCrLf, "Comic Sans MS"
AddText RichTextBox1, "Arial 18" & vbCrLf, "Arial", , , , 18
End Sub
Private Sub AddText(RTB As RichTextBox, _
Text As String, _
Optional FontName As String = "MS Sans Serif", _
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 = FontName
RTB.SelFontSize = Size
RTB.SelUnderline = Underlined
RTB.SelBold = Bold
RTB.SelItalic = Italic
RTB.SelText = Text
End Sub
Sinon, il pour un TextBox, la seule solution qui me vient à l'esprit serait
d'en créer un ownerdrawn, ce qui est loin d'être évident en VB.
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
"Curl" <Mr.Bilou@microsoft.fr> a écrit dans le message de
news:4136f486$0$8391$626a14ce@news.free.fr
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul***
Texbox
(pour écrire le symbole kilo-ohm par exemple)
Private Sub Form_Load() RichTextBox1.Text = "" AddText RichTextBox1, "Comic Sans MS" & vbCrLf, "Comic Sans MS" AddText RichTextBox1, "Arial 18" & vbCrLf, "Arial", , , , 18 End Sub
Private Sub AddText(RTB As RichTextBox, _ Text As String, _ Optional FontName As String = "MS Sans Serif", _ 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 = FontName RTB.SelFontSize = Size RTB.SelUnderline = Underlined RTB.SelBold = Bold RTB.SelItalic = Italic RTB.SelText = Text End Sub
Sinon, il pour un TextBox, la seule solution qui me vient à l'esprit serait d'en créer un ownerdrawn, ce qui est loin d'être évident en VB.
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Curl" a écrit dans le message de news:4136f486$0$8391$
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** Texbox (pour écrire le symbole kilo-ohm par exemple)
le_troll
Si tu n'as pas beaucoup de texte tu peux ruser en employant plusieurs Label, car le RichTextBox souffre d'un petit problème, c'est que ça va gonfler ta distribution (si tu en fais une), car c'est un objet additif...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Curl" a écrit dans le message de news: 4136f486$0$8391$
Bonjour !
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** Texbox (pour écrire le symbole kilo-ohm par exemple)
D'avance Merci !
Si tu n'as pas beaucoup de texte tu peux ruser en employant plusieurs Label,
car le RichTextBox souffre d'un petit problème, c'est que ça va gonfler ta
distribution (si tu en fais une), car c'est un objet additif...
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"Curl" <Mr.Bilou@microsoft.fr> a écrit dans le message de news:
4136f486$0$8391$626a14ce@news.free.fr...
Bonjour !
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul***
Texbox
(pour écrire le symbole kilo-ohm par exemple)
Si tu n'as pas beaucoup de texte tu peux ruser en employant plusieurs Label, car le RichTextBox souffre d'un petit problème, c'est que ça va gonfler ta distribution (si tu en fais une), car c'est un objet additif...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Curl" a écrit dans le message de news: 4136f486$0$8391$
Bonjour !
Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** Texbox (pour écrire le symbole kilo-ohm par exemple)
D'avance Merci !
Pascal B.
Salut,
Pas avec un TextBox mais bien avec un RichTextBox.
Pascal
"Curl" wrote in message news:4136f486$0$8391$ | Bonjour ! | | Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** | Texbox | (pour écrire le symbole kilo-ohm par exemple) | | D'avance Merci ! | |
Salut,
Pas avec un TextBox mais bien avec un RichTextBox.
Pascal
"Curl" <Mr.Bilou@microsoft.fr> wrote in message news:4136f486$0$8391$626a14ce@news.free.fr...
| Bonjour !
|
| Est il possible d'utiliser ***plusieurs*** polices dans ***un seul***
| Texbox
| (pour écrire le symbole kilo-ohm par exemple)
|
| D'avance Merci !
|
|
Pas avec un TextBox mais bien avec un RichTextBox.
Pascal
"Curl" wrote in message news:4136f486$0$8391$ | Bonjour ! | | Est il possible d'utiliser ***plusieurs*** polices dans ***un seul*** | Texbox | (pour écrire le symbole kilo-ohm par exemple) | | D'avance Merci ! | |