请问如果我想画一个倾斜的矩形并且填充它要用哪个API？

Question

请问如果我想画一个倾斜的矩形并且填充它要用哪个API？倾斜的角度是任意的，请问有这样的API吗？

Answer 1

Option Explicit
Private Type POINTAPI
        x As Long
        y As Long
End TypePrivate Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hDc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Sub Command1_Click()
    Dim p(3) As POINTAPI
    p(0).x = 30: p(0).y = 30
    p(1).x = 120: p(1).y = 35
    p(2).x = 130: p(2).y = 140
    p(3).x = 40: p(3).y = 150
    Dim hB As Long
    hB = CreateSolidBrush(vbRed)
    SelectObject Picture1.hDc, hB
    Polygon Picture1.hDc, p(0), 4
    DeleteObject hB
    
End Sub