高分相赠：那位高手会用带圆角的按钮控件?

Question

那位高手会用带圆角的按钮控件?
100 分相赠，不够再加。

Answer 1

lHandle = CreateRoundRectRgn(alData(0), alData(1), alData(2), alData(3), alData(4), alData(5))lReturn = SetWindowRgn(hWnd, lHandle, True)

Answer 2

Private 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 LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hrgn As Long, ByVal bRedraw As Boolean) As Long

Answer 3

nik_Amis(Azrael)  , 可否提供一个能运行的程序？？我很菜的

Answer 4

Private 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 LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hrgn As Long, ByVal bRedraw As Boolean) As LongPrivate Sub cmd_Click()
    Dim lHandle As Long, lReturn As Long
    With cmd
        lHandle = CreateRoundRectRgn(1, 1, .Width / 15, .Height / 15, 20, 20)
        lReturn = SetWindowRgn(.hWnd, lHandle, True)
    End With
End Sub效果不是太好
你可以到www.dapha.net里面招招有很多控件源码