gradient.bas

来自「收集的100多个适合不同层次VB爱好者编程的实例源码」· BAS 代码 · 共 25 行

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