2011年计算机二级VB辅导知识总结（6）

会计考友

　　VB调用API制作渐变的窗口背景色
　　导读:在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变的窗口背景色，似乎是一种既简单又节省资源的方法。
2 Y; Y2 n% e$ M/ R' k! d" G2 A　　首先，在module文件中加入下列声明语句：
　　Declare Function CreateSolidBrush Lib"GDI"(ByVal _
0 C$ k$ x5 l# y! _) r% \8 S' [" w' R　　crColor As Long) As Integer
　　Declare Function FillRect Lib"USER"(ByVal hDC As _
/ b4 ~$ j. p7 l5 y) Q　　Integer，lpRect As RECT，ByVal hBrush As Integer)As Integer
　　Declare Function DeleteObject Lib"GDI"(ByVal hObject _
　　As Integer)As Integer
! K/ p- _+ w5 e6 d; }　　Type RECT
& O* j3 g  K' q9 s　　left As Integer
　　top As Integer
1 w+ s4 Z  s% w1 F" e! Y3 o　　right As Integer
　　bottom As Integer
　　EndType
$ o3 n7 u4 x" U2 T　　然后，在窗口的Paint事件中加入下列代码：
, Y2 ^) j/ I0 Y　　Private Sub Form_Paint()
　　Dim Color As Integer
　　Dim hBrush As Integer
　　Dim OldMode As Integer
2 ^) A: h6 _3 P　　Dim RetVal As Integer
( [  ]) R5 Y) V' l$ ~5 _, n　　Dim StepSize As Integer
　　Dim X As Integer
　　Dim FillArea As RECT
  H3 u4 N3 p' ~7 B　　OldMode%=Me.ScaleMode
: w' ?% q6 n( k3 J" U, s　　Me.ScaleMode=3
　　StepSize%=1+Me.ScaleHeight/80
　　Color%=255
; w8 T0 }3 Q0 c( ]+ z# X3 {2 j% C$ W　　FillArea.left=0
　　FillArea.right=Me.ScaleWidth
　　FillArea.top=0
! k) D: r. F! _$ y! C8 L& O　　FillArea.bottom=StepSize%
　　For X%=1 To 80
) g5 ]6 I2 u4 U" k' |1 h, `　　hBrush%=CreateSolidBrush (RGB(0,0,Color%))
1 A( |% S- D, }8 }　　RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
　　RetVal%=DeleteObject(hBrush%)
　　Color%=Color%-4
　　If Color% $#@60; 0 Then Color%=0
! ^0 ~- z' j1 P" m8 ?1 i- b4 Y% X　　FillArea.top=FillArea.bottom
　　FillArea.bottom=FillArea.bottom+StepSize%
+ h! @1 U+ G# Z% D( U0 _　　Next
5 N* m3 u  f; w( X  c8 x6 C: `! I　　Me.ScaleMode=OldMode%
　　EndSub
　　按F5运行，就会出现一个以从上至下、由浅至深的渐变蓝色为背景的窗口。对上述代码稍加改动，便可制作出各种颜色和水平方向的渐变背景。