如何在VB环境中使用API函数将VB中的标准方形按钮变成圆形按钮？付出会有回报！

Question

我这有个自己编的将标准按钮变成椭圆按钮的代码要不要，如果要留下Email！！！！！！

Answer 1

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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 Sub MakeRoundRect(ctl As Control, rx&, ry&)
    On Error Resume Next
    Dim r1 As Long
    With ctl
        r1 = CreateRoundRectRgn(0, 0, .Width, .Height, rx, ry)
        SetWindowRgn .hwnd, r1, True
    End With
    DeleteObject r1
End Sub
然后这样用 MakeRoundRect Command1, x, y

Answer 2

没必要搞那么复杂吧！
要是我自己做我才不要那么多的代码·
其实所有的按钮也只是图片而已，看到的都是假的！
是我的话我就用image自己做呀个假的!只要把它按下浮起的效果做出来一点破绽都没有!