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 :)

see this attachment :

Change Font.zip

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

commented: Great code +1
commented: grab this wonderful code +1
commented: good example :) +1
commented: Thanks +2

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

commented: a peace logic +1

as debasisdas said,

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

hope u'll grab some idea.

regards
Shouvik

thanks jx_man. its great program. and debsisdas thx for the logic.

you're welcome

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.