求教，VB如何做圆形按钮

我用一个命令按钮来实现你所说的效果 Private Sub Command1_Click() Dim r As Single r = Val(InputBox("请输入圆的半径：", "输入")) MsgBox "当半径为" &r &"时圆的面积为：" &r * r * 3.14 End Sub 代码我已经在电脑上试过了，应该满足你...

自己用PhotoShop之类的图像处理软件做一个圆角按钮图片，放到窗体上作为Image控件，然后用下面的代码代替按钮的代码：

Private Sub Image1_Click()

'这里放入点击图片后要执行的代码

End Sub

如果想更美观一些，你可以另外再做一张鼠标悬停时的图片，以及鼠标点击时候的图片，然后结合Image1_MouseMove事件和Image1_MouseDown事件，做出有动态效果的图形按钮来

设置按钮的属性Style为1,且将按钮的属性Picture选你想加载的图片或设置按钮的属性BackColor的颜色,都可作出漂亮的按钮.如要改变按钮形状则较复杂.可使用2个Shape控件和1个Label控件完成（仿3D效果），3控件的颜色设成一样。如需加载图片则Label控件改用PictureBox控件，具体代码：

Private Sub Form_Load()

Shape2.Visible = False

End Sub

Private Sub Label1_Click()

Form2.Show

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape2.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape2.Visible = False

End Sub

---