怎样把FORM的四个角变成圆角。

Question

Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Type POINTAPI
    X As Long
    Y As Long
End Type '    Dim Daw(1 To 5) As POINTAPI
    '
    '
    '    Daw(i).X = 300 + 250 * Cos(((i - 1) * 0.4 + 0.1) * 3.1416)
    '
    '    Daw(i).Y = 300 - 250 * Sin(((i - 1) * 0.4 + 0.1) * 3.1416)
    '
    '    Next
    '
    '    SetWindowRgn Me.hWnd, CreatePolygonRgn(Daw(1), 5, 1), True
看看形状是什么洋的，你可以根据自己的需要可以该还有你可以侃侃这几个api
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'''''''''''''

Answer 1

你昨天说多好，我现在在嘉兴，回上海再说吧。
不过相信还有很多人会的。