2011年计算机等考二级VB辅导知识技巧总结(6)

会计考友

　VB调用API制作渐变的窗口背景色　　导读:在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变的窗口背景色，似乎是一种既简单又节省资源的方法。
, z, E+ {; A. W) l6 P% s. y　　首先，在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
! t; v  T: O0 x7 S# }  @( I. Z9 W　　Declare Function DeleteObject Lib"GDI"(ByVal hObject _
　　As Integer)As Integer
+ a3 i  G/ l! w* {2 X6 k7 O　　Type RECT
　　left As Integer
# M, v! k# ^" D8 i2 g　　top As Integer
　　right As Integer
6 x" V5 A! h) B. n, G9 K. ?　　bottom As Integer
9 G; A+ m+ @8 k. p. k0 i1 t　　EndType
　　然后，在窗口的Paint事件中加入下列代码：
( ^, E  I  O, ^, ]5 K+ r　　Private Sub Form_Paint()
0 u* ^% z* X/ K6 y- V- g/ y　　Dim Color As Integer
7 \$ c( g, F% d! O# w　　Dim hBrush As Integer
+ S6 Z0 T( F3 o8 C  n# F# r) j　　Dim OldMode As Integer
　　Dim RetVal As Integer
　　Dim StepSize As Integer
2 J+ {6 V" {& H4 ?6 B. X. B　　Dim X As Integer
4 o) N' A& h) _) e7 G. `　　Dim FillArea As RECT
　　OldMode%=Me.ScaleMode
　　Me.ScaleMode=3
0 E0 g# J; L0 M' ~6 B* v2 l5 N+ X　　StepSize%=1+Me.ScaleHeight/80
; c1 X6 C8 I  g　　Color%=255
　　FillArea.left=0
5 m4 q2 m$ }' I, Z　　FillArea.right=Me.ScaleWidth
　　FillArea.top=0
8 O) h- \+ o- ?$ p! b+ M　　FillArea.bottom=StepSize%
　　For X%=1 To 80
　　hBrush%=CreateSolidBrush (RGB(0,0,Color%))
9 B; R! e  a8 j0 {! x　　RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
　　RetVal%=DeleteObject(hBrush%)
　　Color%=Color%-4
8 y% O5 _! V3 b7 h, K" g　　If Color% $#@60; 0 Then Color%=0
- I- U7 h1 I2 F; g0 m; p　　FillArea.top=FillArea.bottom
9 a) I0 f) s5 g) V0 X, e8 y  p5 d　　FillArea.bottom=FillArea.bottom+StepSize%
　　Next
　　Me.ScaleMode=OldMode%
% X# r: F" r+ Z: i! y+ I　　EndSub
　　按F5运行，就会出现一个以从上至下、由浅至深的渐变蓝色为背景的窗口。对上述代码稍加改动，便可制作出各种颜色和水平方向的渐变背景。