[RESOLVED] Font Sized Headache

I am getting an error on this code:

Code:

---

Dim fntfam As String = ComboBox1.Text
Dim fntSize As Single = CInt(ComboBox2.Text)

Label1.Font = New System.Drawing.Font(fntfam, fntSize!, Label1.Font.Style, GraphicsUnit.Point)

---

The error is:

Code:

---

Font 'Vivaldi' does not support style 'Regular'

---

I am not finding anything related to visual studio 2005 relating to this question, google gives me all results that are system wide. This only does this in my program when I run it. Vivaldi works in all other office programs. What am I doing incorrectly?? :confused:

As always, thank you all for you assistance...

D

Like the error say, the font 'Vivaldi' does not support style 'Regular', it might only support Bold, Italic....I dont know, but it sure doesnt support regular;)
You'd need to put that code in a Try-Catch block, as you can not prevent these errors

That's weird though because the code works for me 'as is'.

Maybe try changing it to this as a test to see if it can work:

vb Code:

Label1.Font = New System.Drawing.Font(fntfam, fntSize!, FontStyle.Regular, GraphicsUnit.Point)

which also worked for me.

LOL @ Atheist, yes I realize what the error meant....Poorly posted and duly noted. :p

Stimbo: for most fonts that has/will work, however with some fonts, specifically Vivaldi it does not. I am putting each font (over 300 on my system alone) to the test and see what works and what does not


Everyone: I have already put it into a try catch block, however any ideas on what I need to do to get these fonts available for use? If I default to italic it will work for vivaldi but some of these wont work with italic and I get a similar error. Anybody have any ideas as to how to get around this?

Thanks :wave:

D

Quote:

---

Originally Posted by dminder

LOL @ Atheist, yes I realize what the error meant....Poorly posted and duly noted. :p

Stimbo: for most fonts that has/will work, however with some fonts, specifically Vivaldi it does not. I am putting each font (over 300 on my system alone) to the test and see what works and what does not


Everyone: I have already put it into a try catch block, however any ideas on what I need to do to get these fonts available for use? If I default to italic it will work for vivaldi but some of these wont work with italic and I get a similar error. Anybody have any ideas as to how to get around this?

Thanks :wave:

D

---

What do you mean by 'get these fonts available for use'?
Vivaldi can not be used with regular, no matter how you do.

Well quick update, I got it to work by doing this:

Code:

---

Label1.Font = New System.Drawing.Font(fntfam, fntSize, Label1.Font.Style Xor FontStyle.Italic, GraphicsUnit.Point)

---

I am having some other issues, but I need to figure out what is happening before I just go runnin my mouth. Funny how you can work on something for like an hour and then once you say something about needing help the answer just kind of "pops" up.

Thanks you guys, I will check back later if I still have issues.....well programming ones anyways cause you cannot help me with my mental...nm :bigyello: :D

D

FYI, the FontFamily object has a function called .IsStyleAvailable. You can use that to check if the font family supports your proposed style.

Funny you mention that because I was just implementing that very thing!!!

Final code that works with NO issues. NONE, NADA, NIL, Zip, zilch ok you get the idea.....:lol:

Code:

---

'get font selected
Dim fntfam As String = cboHeaderFontType.Text
'get font size
Dim fntSize As Single = CInt(cboHeaderFontSize.Text)
'declare new font and set it to what was selected
Dim myfontfamily As New FontFamily(fntfam)
'Test
Dim fnt As New Font(fntfam, fntSize, _
            (IIf(myfontfamily.IsStyleAvailable(FontStyle.Regular), FontStyle.Regular, FontStyle.Italic)), GraphicsUnit.Point)
'Set font
Label1.Font = fnt
'Applaud for it has worked and all is well with the world once again.

---

Thank you all again for your assistance!!

D