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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
