Font/Combo Box Thing

[lavarock09]

using This Site: http://www.developerfusion.co.uk/show/1659/

I Have Made A Combo Box On My Form, Combo 1 And A Module, Module1

I Have added the code it says on this site and all the fonts are listed in the combo box, now how do i get the font in the combo box to change the font in the richtextbox i am using, called richtextbox1

[kfcSmitty]

something like

richtextbox1.selfont = combobox1.value

should work

[lavarock09]

nope, didn't work

[kfcSmitty]

I just noticed there is

richtextbox1.selfontname
and
richtextbox1.selfontsize

those should work

[lavarock09]

i have this

Private Sub Combo2_Change()
RichTextBox1.SelFontName = Combo2.Text
End Sub

and it still doesn't work

[kfcSmitty]

try combo2.value

and what exactly is listed in the combobox? because the command selfontname would only work with something like "Times New Roman" or another font name in that general format

[lavarock09]

i tried .value

and it isn't a propetry of the combobox

[kfcSmitty]

and what exactly is listed in the combobox? because the command selfontname would only work with something like "Times New Roman" or another font name in that general format

So whats lsited in ur combobox? can you take a screenshot?

[lavarock09]

just all the fonts installed on my PC, and if it was run on someone elses, it would have all of their fonts

[kfcSmitty]

so it displays them like
"Wingdings"
"Times New Roman"
"Arial"
?

because I just tried that and it works fine...

[lavarock09]

yeah, it says from A-Z in alphabetical order like this

Arial
Times New Roman

etc. with no speech marks ""

[kfcSmitty]

you realise with .selfontname you have to have the text selected right?

I have also noticed that with the combo1_change event, it takes focus away from the textbox, thus unhighlighting the text

[lavarock09]

yeah, i also noticed that,

[Hack]

RichTextBox1.Font.Name = Combo1.Text

[lavarock09]

still don't work

[kfcSmitty]

the code itself works..you just need to find a way to keep the text selected while changing the combo box

maybe store the selstart and sellength in a variable and right before you change the font, rehighlight the text?

[lavarock09]

how would i code this, i'm rather new to VB

[Hack]

I Have Made A Combo Box On My Form, Combo 1 And A Module, Module1

I Have added the code it says on this site and all the fonts are listed in the combo box, now how do i get the font in the combo box to change the font in the richtextbox i am using, called richtextbox1

Attached is a one form project with a richtextbox and a combo box. If you run it, the font in the richtextbox will change to whatever font you select from the combo.

This is what you are after, correct?

[kfcSmitty]

'Declarations
Dim SelectionStart As Integer
Dim SelectionLength As Integer
 
Private Sub Combo2_Click()
RichTextBox1.SetFocus
DoEvents
RichTextBox1.SelStart = SelectionStart
RichTextBox1.SelLength = SelectionLength
RichTextBox1.SelFontName = Combo1.Text
End Sub
 
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
SelectionStart = RichTextBox1.SelStart
SelectionLength = RichTextBox1.SelLength
End Sub

this works for me

[lavarock09]

thanx, that does what i wanted, thanx

[lavarock09]

I Do have 2 Other Things i couldn't do,

1. was to have a character count on,
2. was to be able to right click my rtb and see the edit menu, cut, copy paste etc