[RESOLVED] Statusbar font size

[krtxmrtz]

Is it possible to modift the font size in a statusbar control? Maybe subclassing can do the trick but is there any clever way around?

[jmsrickland]

Statusbar like many other controls has a Font property. Hasn't it ever occurred to you to look at the properties of controls

[gibra]

Simply change the font attribute (size, bold, ...) in Properties, or from code:

Private Sub Form_Load()
    With StatusBar1
        .Font.Size = 14
        .Font.Underline = True
        With .Panels(1)
            .Text = "Date"
            .Width = 1000
        End With
        With .Panels(2)
            .Text = Date
            .Width = 2000
        End With
    End With
End Sub

[krtxmrtz]

In the past I never needed to change the font size for a control that didn't have its own fontsize property so I wasn't even aware fonts have their own properties.

Thanks.

[dilettante]

Having a FontSize property is a quirk inherited from the early days of VB, probably VB4 and earlier.

Starting with VB5 (and maybe VB4 32-bit, hard to remember that far back) we had the StdFont type, saving lots of coding to implement so many separate font-related properties when writing a control. Intrinsic VB controls already had the code written so it only needed to be kept updated as VB evolved.

[DataMiser]

Yes VB4 has the Font property like VB6 where VB3 has the font settings all separated in the properties menu
I re-installed both of these a while back to help someone convert an old VB3 project to VB6