发信人: mendy.bbs@bbs.nju.edu.cn (孟迪), 信区: cnprogram
标  题: VB调用API技巧--制作渐变的窗口背景色
发信站: nju_bbs (Mon Apr 20 04:41:15 1998)
转信站: Lilac!ustcnews!nju_bbs

发信人: wangzhe (大傻), 信区: RAD
标  题: VB调用API技巧--制作渐变的窗口背景色 (转载)
发信站: '3m紫金飞鸿m' (Fri Feb 13 12:37:11 1998) , 转信

?原文由 xiaobo 所发表 】
转自《中国计算机报》[一九九七年十月六日 总第678期] 第128版

吴斌

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% < 0 Then Color%=0
　　  FillArea.top=FillArea.bottom
  　　FillArea.bottom=FillArea.bottom+StepSize%
　　Next
　　Me.ScaleMode=OldMode%
　　EndSub

　　按F5运行，就会出现一个以从上至下、由浅至深的渐
变蓝色为背景的窗口。对上述代码稍加改动，便可制作出
各种颜色和水平方向的渐变背景。

--

--
m;32m※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 166.111.28.76]m

--
※ 来源:．南大小百合信息交换站 bbs.nju.edu.cn．[FROM: a507yjh.nju.edu]