荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: VB调用API技巧--制作渐变的窗口背景色
发信站: BBS 荔园晨风站 (Fri Jan 22 13:48:51 1999), 转信
转自《中国计算机报》[一九九七年十月六日 总第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运行,就会出现一个以从上至下、由浅至深的渐
变蓝色为背景的窗口。对上述代码稍加改动,便可制作出
各种颜色和水平方向的渐变背景。
--
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店