Member Avatar for Atove
Atove 0 Newbie Poster

Hi all!
I'm developing some software for my current employer and i'm looking to incorporate an option that changes the font size across all forms for accessibility purposes. Now I have managed to make it work; however the code appears long and inefficient. My question to you guys is: Is there a more efficient way that i can achieve this?

I'd be very interested to hear any theories or alternative directions that you might be able to point me in.

Here is my code:

Public IncreaseFontSize(ByVal FontSize As Integer)

Dim newFont As Font("Microsoft Sans Serif", FontSize, FontStyle.Regular)

FontSize = Me.cboFontSize.SelectedItem

frmMain.btnBookings.Font = newFont
frmMain.btnCompanies.Font = newFont
frmMain.btnEnquiriesLog.Font = newFont

There are many more buttons, labels and other components in the list; this is just a few.

Many Thanks in advance

Atove

  • 1 Contributor
  • 0 Replies
  • 50 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.