用Ellipse画圆如何设置圆边线颜色

[bclife]

Call Ellipse(hdc, xl + hScrol1, yl + hScrol1, xl - hScrol1, yl - hScrol1)
是画出一个边线颜色为黑色的圆形
用什么方法设置他的边线颜色啊

[舉杯邀明月]

可能是取决于“hdc”的画笔吧。

[智能卡_Snooper]

选择的画笔可以设置颜色

[智能卡_Snooper]

Option Explicit

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long

Private Sub Form_Click()
    Dim tmppen As Long
    Dim pen As Long
    '创建一个画笔
    pen = CreatePen(0, 2, RGB(255, 0, 0))
    '选定一个刷子
    tmppen = SelectObject(Me.hdc, pen)
    '画图
    Rectangle Me.hdc, 15, 15, 50, 50
    Ellipse Me.hdc, 0, 0, 100, 50
    '删除对象
    SelectObject Me.hdc, tmppen
    DeleteObject pen
    Me.Refresh
End Sub

[VBToy]

如果是在窗体或控件上画，设置forecolor就可以了：
Private Sub Form_Click()
Dim tmppen As Long
Me.ForeColor = vbRed
Ellipse Me.hdc, 0, 0, 100, 50
End Sub

[bclife]

多谢3，4楼