Formatering af skrifttype i TextBox

Tror jeg ikke.. så skal du vist bruge en RichTextBox.. den kan inkluderes..

Hold CTRL nede og tryk på T, eller via menuen Project > Components
Den hedder "Microsoft Rich Textbox Control"..

Okay. Hvordan tilføjer jeg den?

Hehe, tak - tager lige en kigger

Eh... og hvordan gør man så sådan at teksten bliver fed? :)

Så skal du flytte cursoren til den rette placering, og sættes Sellength til længden af den ønskede tekst, hvorefter du kan vælge formateringen :-)

Jeg bruger det ikke normalt.. så jeg er ikke helt sikker.. men det er på den måde..

Nøgleord:

SelStart
SelLength
Font
Face

Hmm.. Det lyder liiidt indviklet :D Du ved tilfældigvis ikke hvor jeg kan finde et eksempel?

Jo, her :-)

Private Sub Command1_Click()

' rtb1 er navnet på select textboxen

rtb1.Text = "helloworld"
rtb1.SelStart = 3
rtb1.SelLength = 6
rtb1.SelBold = True
End Sub

select = selv (aner ikke hvordan..)

dammit..

Smider lige et svar..

Takker :) Lige en sidste ting.. Er det muligt kun at gøre én variabel fed? Altså i stedet for at bruge selstart, og sellength.

Forstår ikke helt hvad du mener.. hvad mener du med en "gøre én variabel fed"..?

Den tekst jeg skal have i min tekstbox består af tre variabler. Jeg ønsker så at markere fx variabel2 med fed skrift.

Ligner det det her?: rtb1.text = var1 & var2 & var3 ?

Ja, noget i den stil :)

Måske (laver var2 med fed):

rtb1.text = var1 & var2 & var3
rtb1.SelStart = InStr(rtb1.text, var2)
rtb1.SelLength = len(var2)
rtb1.SelBold = True

Tæt på :D Den gør ikke det første bogstav i var2 fed, og gør det første i var3 fed.

rtb1.text = var1 & var2 & var3
rtb1.SelStart = InStr(rtb1.text, var2) - 1
rtb1.SelLength = len(var2) - 1
rtb1.SelBold = True

"len(var2) - 1" skal muligvis være "len(var2) - 2".. kommer an på mellemrum osv..

Den kunne nøjes med at være len(var2) :)

Og nu spiller det! Mange tak for hjælpen!

Hygge

Det var så lidt :-)
Takker for points :-)