Article View: comp.lang.basic.visual.3rdparty
Article #49Re: How to achieve gradient dialog title bar effect
From: Jack Huisman
Date: Wed, 11 Feb 1998 00:00
Date: Wed, 11 Feb 1998 00:00
43 lines
2005 bytes
2005 bytes
Try this in the Form_Load section. I copied it rather quickly, but it is
how we do it.
' Set the background Drawing parameters
AutoRedraw = True
DrawStyle = 6
DrawMode = 13
DrawWidth = 2
ScaleMode = 3
ColorStart = 0
ColorEnd = 255
ScaleHeight = ColorEnd - ColorStart
sngRed=0
sngGreen=0
sngBlue=1
' Draw the colored background
For i% = ColorStart To ColorEnd
ShowColor& = RGB(i% * sngRed, i% * sngGreen, i% * sngBlue)
Line (0, y)-(Width, y + 1), ShowColor&, BF
y = y + 1
Next i%
- Jack
_________________________________________
Jack Huisman
BusinesSoft, Corp.
"Using computers to add Science to the Art of Sales"
919 846-9000
_________________________________________
David Egan wrote in message <01bd32f3$58fc1880$ab2b7dc2@default>...
>Hi all
>
>Require gradient effect on dialog title bar, same effect as used in the
>microsoft Word title bar blue fading to black. I can only assume this can
>be achieved by using an API.
>which one though?
>
Technical Details
Message-ID:
<6bsj4o$s7k$1@news.ipass.net>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<01bd32f3$58fc1880$ab2b7dc2@default>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 10b997,cdd658da1401a6ff X-Google-Attributes: gid10b997,public X-Google-Thread: f5f6f,cdd658da1401a6ff X-Google-Attributes: gidf5f6f,public X-Google-Thread: 110e3b,cdd658da1401a6ff X-Google-Attributes: gid110e3b,public X-Google-Thread: 108062,cdd658da1401a6ff X-Google-Attributes: gid108062,public X-Google-Thread: f88e0,cdd658da1401a6ff X-Google-Attributes: gidf88e0,public From: "Jack Huisman" <jhuisman@ipass.net> Subject: Re: How to achieve gradient dialog title bar effect Date: 1998/02/11 Message-ID: <6bsj4o$s7k$1@news.ipass.net> X-Deja-AN: 324155753 References: <01bd32f3$58fc1880$ab2b7dc2@default> X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 Organization: IPass.net Newsgroups: comp.lang.basic.visual.3rdparty,comp.lang.basic.visual.misc,cz.comp.lang.basic.visual,it.comp.lang.visual-basic,microsoft.public.win32.programmer.yellowpages