Gradientfill from Lebans.com

  • Thread starter Thread starter Speedtriple
  • Start date Start date
S

Speedtriple

Hi People,

I found source code for performing a gradient fill on forms in access on
Lebans.com. Works great, however I would like to apply the fill pattern on
the form header section. The Code only refers to the whole form. Anyone have
an idea how to go about it ?
Definition is as follows:
Public Function GradientFill(frm As Access.Form, RGBStart As Long, etc...).
I need to change "frm As Access.Form " to something like "frm As
Access.FormHeader " although I don't know the correct reference.

Thanks
Speedy
 
The actual function takes the passed Form object and simply grabs the
exposed window handle(hWnd) property of the form. It then calls
GetClientRect to ascertain the current dimensions of the Form. You could
use the FindHeaderSection function found in several of my projects(the
TabColor class for sure) and simply set the hWnd variable to point to
the Header section hWnd instead to achive the desired effect.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
 
Back
Top