DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Change Font

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jan 2008

Posts: 97

Reputation: Estella is an unknown quantity at this point

Solved Threads: 6

Estella

Offline

Junior Poster in Training

Change Font

Mar 6th, 2008

I want to change font of all controls in a form.
how i can do this?? i can change font but just for each control not all control in a same time...
please help

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Change Font

Mar 6th, 2008

see this attachment :

Change Font.zip

Hope this helps...
PS: don't remove author name n comment

•

Join Date: Feb 2007

Posts: 2,134

Reputation: debasisdas will become famous soon enough

Solved Threads: 132

debasisdas debasisdas is offline

Offline

Postaholic

Re: Change Font

Mar 6th, 2008

Try using looping through all the controls on the form that have font property.

Share your Knowledge.

•

Join Date: May 2007

Posts: 538

Reputation: choudhuryshouvi is an unknown quantity at this point

Solved Threads: 49

choudhuryshouvi choudhuryshouvi is offline

Offline

Posting Pro

Re: Change Font

Mar 6th, 2008

as debasisdas said,

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
dim ctlcontrol as object
dim fn as string,fsize as integer
 
fn="comic sans ms"
fsize=10
 
on error goto font_mistake
 
for each ctlcontrol in form1.controls
   ctlcontrol.font=fn
   ctlcontrol.fontsize=fsize
next
 
exit sub
 
font_mistake:
   err.clear
   resume next
dim ctlcontrol as object
dim fn as string,fsize as integer

fn="comic sans ms"
fsize=10

on error goto font_mistake

for each ctlcontrol in form1.controls
   ctlcontrol.font=fn
   ctlcontrol.fontsize=fsize
next

exit sub

font_mistake:
   err.clear
   resume next