gradient.bas

100个vb编程实例,什么都有

Attribute VB_Name = "Module1"
Option Explicit
Public Const PLANES = 14       '  Number of planes
Public Const BITSPIXEL = 12    '  Number of bits per pixel
Type RECT
    Left    As Long
    Top     As Long
    Right   As Long
    Bottom  As Long
End Type

Declare Function CreateSolidBrush Lib "gdi32" _
   (ByVal crColor As Long) As Long
   
   Declare Function DeleteObject Lib "gdi32" _
   (ByVal hObject As Long) As Long
   
   Declare Function GetDeviceCaps Lib "gdi32" _
   (ByVal hDC As Long, ByVal nIndex As Long) As Long

Declare Function FillRect Lib "user32" _
(ByVal hDC As Long, lpRect As RECT, _
    ByVal hBrush As Long) As Long