谁知道 GradientFill 怎么用,是API
紫焰月读 2002-05-06 02:28:21 以下为本人所做,只是没有任何反应,不知为何, 请兄弟们帮我看看
Private Const GRADIENT_FILL_RECT_H = 0
Private Const GRADIENT_FILL_RECT_V = 1
Private Const GRADIENT_FILL_TRIANGLE = 2
Private Type TRIVERTEX
x As Long
y As Long
Red As Long
Green As Long
Blue As Long
Alpha As Long
End Type
Private Type GRADIENT_RECT
UpperLeft As Long 'upper-left
LowerRight As Long 'lower-right
End Type
Private Declare Function GradientFill Lib "Msimg32.dll" (ByVal hdc As Long, pVertex As TRIVERTEX, dwNumVertex As Long, pMesh As GRADIENT_RECT, dwNumMesh As Long, dwMode As Long) As Long
Private Sub Command3_Click()
Dim vert(0 To 1) As TRIVERTEX
Dim gRect As GRADIENT_RECT
vert(0).x = 0
vert(0).y = 0
vert(0).Red = 0
vert(0).Green = 0
vert(0).Blue = 0
vert(0).Alpha = 0
vert(1).x = 100
vert(1).y = 320
vert(1).Red = 0
vert(1).Green = 0
vert(1).Blue = &HFF00
vert(1).Alpha = 0
gRect.UpperLeft = 0
gRect.LowerRight = 1
GradientFill Me.hdc, vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H
End Sub