changing fontsize

[ianpaisley]

Hi,

I have a command button and a textbox.

When the command button is pressed, I want font size to increase. Currently I have:

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 2
End Sub

This works to a point, but in the fontproperty of my textbox optional fontsizes are 8,10,12,14,18,24. So the font won't increase after 14 (because there is no 16 option).

Rather than having Text1.FontSize + 2, how do I code it so that it moves to the next biggest fontsize?

Thanks.

[alex_read]

What about using the common dialog control...

Private Const comdiafontflagScreen As String = cdlCFScreenFonts
Private Const comdiafontflagPrinter As String = cdlCFPrinterFonts
Private Const comdiafontflagBoth As String = cdlCFBoth
 
Private Sub Command1_Click()
    With CommonDialog1
        .Flags = comdiafontflagScreen
        .ShowFont
        
        Text1.FontSize = .FontSize
    End With
End Sub

[laserman]

TRY THIS LITTLE FONT SIZE CHANGER