vb 怎么画圆角矩形

来源：百度知道 编辑：UC知道 时间：2024/06/05 22:07:42
不要用那个 Shape ，用绘图函数

请用 API 函数 RoundRect。

例子（点击窗体，画圆角矩形）：
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, 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 Long

Private Sub Form_Click()
Call RoundRect(Me.hdc, 10, 10, 110, 110, 10, 10)
End Sub

参数：
hdc 设备上下文。比如 Me.hDC，Picture1.hDC就可以。
X1,Y1 左上角
X2,Y2 右下角
X3,Y3 圆角内偏移（即圆角半径，0表示直角）

上面的坐标什么的都以像素计，不同于VB默认的Twip