CommonDialong font/color

Hello. Ok this is the code i have so far

VB Code:

Private Sub xpcmdbutton9_Click()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
 
End Sub
Private Sub xpcmdbutton10_Click()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowColor
End Sub

What i want to happen is when the user selects their font, the textbox next to the command button displays their selected font name. And when the user selects their color, the backcolor of the label changes to that selected color. How do i do this?

Private Sub xpcmdbutton9_Click()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
Text1.Font.Name = CommonDialog1.FontName
End Sub
Private Sub xpcmdbutton10_Click()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowColor
LAbel1.BackColor = CommonDialog1.Color
End Sub

Instead of

Text1.Font.Name = CommonDialog1.FontName

use

Text1.Text = CommonDialog1.FontName

if you want to display the font name in the textbox.

Thankyou, and how do i change to font of the textbox to the font selected?

VB Code:

Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.Font.StrikeThough = CommonDialog1.FontStrikeThru
Text1.Font.Size = CommonDialog1.FontSize

Quote:

---

Originally posted by gamezfreakuk
Thankyou, and how do i change to font of the textbox to the font selected?

---

i already showed you how :mad:

Thankyou!:D

Ok new question, How do i save the font and font color to the registry so that the users font setttings are saved? I know how to use savesetting and getsetting (that is used with most of the login area of the program) but i am stuck on this can you help?

waht do you mean? just save the font color and the font name in it. the font color is just a number and the font name is a string of text.

Huh?!?!

I mean like say the user picks "Arial" as their font and "Red" as their font color, how do i save these values to the registry, so that next time my app loads the textbox will display "Arial" (in the font arial) and the label's backcolor will be red.

save a key called "FontName" with string called "Arial" and a Key name "Color" with a string called "1667774595". then load the text and the color what part don't you get? you said you knew how to use savesetting and getsetting

VB Code:

SaveSettings("MyApp", "Font", "Name", CommonDialog1.FontName)
'SaveSettings("MyApp", "Font", "Size", CommonDialog1.FontSize)
'SaveSettings("MyApp", "Font", "Bold", CommonDialog1.FontBold)
'SaveSettings("MyApp", "Font", "Italic", CommonDialog1.FontItalic)
'SaveSettings("MyApp", "Font", "Underline", CommonDialog1.FontUnderline)
'SaveSettings("MyApp", "Font", "StrikeThru", CommonDialog1.FontStrikeThru)
SaveSettings("MyApp", "Font", "Color", Str(CommonDialog1.Color))

VB Code:

Text1.Text = GetSettings("MyApp", "Font", "Name", Arial)
Label1.BackColor = Val(GetSettings("MyApp", "Font", "Color", Str(vbBlack)))

I know this might sound retarded but how do get back those settings?

So that the textbox's font will be the saved font ect.

Read my previous post - I've already showed you how.

VB Code:

Text1.Text = GetSettings("MyApp", "Font", "Name", Arial)
Label1.BackColor = Val(GetSettings("MyApp", "Font", "Color", Str(vbBlack)))

before i try this code, aint that a bit wrong, because if the user chooses "Comic Sans Ms" then the textbox will still display Arial

the last argument for GetSetting is what it would give you do if there wasnt an entry.

it should have been in quotes though
Text1.Text = GetSettings("MyApp", "Font", "Name", "Arial")

and remove the 'S' at the end of savesetting(s) and getsetting(s).

Sorry you will have to explain this to me: -

I want it when the program is next loaded the textbox is formatted with all the settings that the user saved before (eg Font = Arial, Bold)
Or whatever font they saved.

Quote:

---

Originally posted by BuggyProgrammer
and remove the 'S' at the end of savesetting(s) and getsetting(s).

---

Oops

now... i've attached a projct with what you mean. it will work. i've tested it.

Thankyou, I dont need the zip file i have done it now, but thankyou very much please dont shout at me again :(