BackgroundHorizontalGradient – Paint an horizontal gradient background

Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long' Paint an horizontal gradient'' STARTCOLOR is the starting color (applied to left border)' ENDCOLOR is the ending color (applied to right border)' NUMSTEPS is the optional number of stripes (default is 256)' Example: a gradient from black to blue'   BackgroundHorizontalGradient Form1, 0, &HFF0000Sub BackgroundHorizontalGradient(frm As Form, ByVal startColor As Long, _    ByVal endColor As Long, Optional ByVal numSteps As Integer = 256)    Dim startRed As Integer, startGreen As Integer, startBlue As Integer    Dim deltaRed As Integer, deltaGreen As Integer, deltaBlue As Integer    Dim x As Single, dx As Single    Dim stp As Long        ' Split the start color into its RGB components    startRed = startColor And &HFF    startGreen = (startColor And &HFF00&)  256    startBlue = (startColor And &HFF0000)  65536    ' Split the end color into its RGB components    deltaRed = (endColor And &HFF&) - startRed    deltaGreen = (endColor And &HFF00&)  256 - startGreen    deltaBlue = (endColor And &HFF0000)  65536 - startBlue        RealizePalette frm.hdc        ' Eval width of each block    dx = frm.ScaleWidth / numSteps        For stp = 0 To numSteps - 1        frm.Line (x, 0)-(x + dx, frm.ScaleHeight), RGB(startRed + (deltaRed * _            stp)  numSteps, startGreen + (deltaGreen * stp)  numSteps, _            startBlue + (deltaBlue * stp)  numSteps), BF        x = x + dx    NextEnd Sub

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


The Latest

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS