关于 command按钮

Question

可以用SetWindowRgn
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Sub Form_Load()
    Dim hrgnNew As Long
    
    hrgnNew = CreateEllipticRgn(0, 0, Command1.Width / Screen.TwipsPerPixelX, Command1.Height / Screen.TwipsPerPixelY)
    SetWindowRgn Command1.hWnd, hrgnNew, True
End Sub

Answer 1

就是用阿木的方法把按钮变形了，也是很难看的。自己做个ActiveX控件吧。