On Mar 27, 2007, at 22:16 UTC, Markus Winter wrote:
> However I'm not clear on how I can make t more general, so that I can
> call it for all the different windows in my app ... or in other words
> how do I tell it to do this for all the controls in a certain window
> ...
Sub SetAllTextFont( textFont as String )
for i As Integer = 0 to ControlCount - 1
Dim ctl As Control = Control(i)
if ctl IsA StaticText then
StaticText(ctl).TextFont = textFont
elseif ctl IsA EditField then
EditField(ctl).TextFont = textFont
elseif ctl IsA Listbox then
Listbox(ctl).TextFont = textFont
end if
next i
End Sub
Do something similar for font size, style, etc.
Best,
- Joe
--
Joe Strout -- [EMAIL PROTECTED]
Verified Express, LLC "Making the Internet a Better Place"
http://www.verex.com/
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
