VB 圆命令按钮

'函数声明 设置椭圆形窗体
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 Long) As Long

Private Sub Form_Load()
Dim a, b As Long
Dim w, h As Long
h = Command1.Height / 15 '圆高直径=Command1.Height
w = h '圆宽直径 = h
a = CreateEllipticRgn(0, 0, w, h)
b = SetWindowRgn(Command1.hWnd, a, True) '把Command1设置成圆形
End Sub

正如二楼所说的，先用CreateEllipticRgn创建一个圆形区域，然后用SetWindowRgn把按钮设设成那个区域。在windows下，所有对象都是窗口，就连文字也是窗口！只不过是特殊的窗口，它们可以适用窗口的API函数

用黑马按钮控件

就可以设置为圆的形状了

VB中命令按钮默认属性是什么？ VB命令按钮如何启动QQ VB圆角按钮按钮怎么做? 请问VB 中有没有命令按钮数组 怎么添加？？ VB里如何改变命令按钮中文字的颜色？ VB 怎么做QQ那样的命令按钮？ vb 里面想用按回车来代替点击命令按钮 vb 的 按回车键上当于单击命令按钮 VB中如何用代码添加命令按钮 vb 判断命令按钮是否被按下!!!如果按下就做输出字符串?