VB調用API制作漸變的窗口背景色

　　在許多Windows軟件的安裝程序中，時常可以看到以某種顏色由淺至深的漸變為背景的窗口。使用VB制作這類窗口的方法有不少，而通過調用API函數繪制漸變的窗口背景色，似乎是一種既簡單又節省資源的方法。

　　首先，在module文件中加入下列聲明語句：

　　

　　Declare Function CreateSolidBrush Lib"GDI"(ByVal _
crColor As Long) As Integer
　　
        Declare Function FillRect Lib"USER"(ByVal hDC As _
Integer，lpRect As RECT，ByVal hBrush As Integer)As Integer
　　
        Declare Function DeleteObject Lib"GDI"(ByVal hObject _
As Integer)As Integer
　　
        Type RECT
　　
        left As Integer
　　 
        top As Integer
　　 
        right As Integer
　　 
        bottom As Integer
　　
        EndType

　　然後，在窗口的Paint事件中加入下列代碼：

　　

　　Private Sub Form_Paint()
　　
        Dim Color As Integer
　　
        Dim hBrush As Integer
　　
        Dim OldMode As Integer
　　
        Dim RetVal As Integer
　　
        Dim StepSize As Integer
　　
        Dim X As Integer
　　
        Dim FillArea As RECT
　　
        OldMode%=Me.ScaleMode
　　
        Me.ScaleMode=3
　　
        StepSize%=1+Me.ScaleHeight/80
　　
        Color%=255
　　
        FillArea.left=0
　　
        FillArea.right=Me.ScaleWidth
　　
        FillArea.top=0
　　
        FillArea.bottom=StepSize%
　　
        For X%=1 To 80
　　
        hBrush%=CreateSolidBrush (RGB(0,0,Color%))
　 　
        RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
　　 
        RetVal%=DeleteObject(hBrush%)
　　
        Color%=Color%-4
　 　
        If Color% $#@60; 0 Then Color%=0
　　 
        FillArea.top=FillArea.bottom
　　
        FillArea.bottom=FillArea.bottom+StepSize%
　　
        Next
　　
        Me.ScaleMode=OldMode%
　　
        EndSub

　　按F5運行，就會出現一個以從上至下、由淺至深的漸變藍色為背景的窗口。對上述代碼稍加改動，便可制作出各種顏色和水平方向的漸變背景。