如何画一个红色的圆圈？如何设置线条的宽度？

foshan

以下的代码是在文本框中画一个圆圈，如何才能实现所画出的圆圈是红色或其它颜色的呢？还有，如何才能设置圆圈的线条的宽度呢？谢谢!

Private Declare Function GetDC& Lib "user32" (ByVal hwnd 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)
Private Declare Function ReleaseDC& Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long)



Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_Click()
Dim TextDC As Long

TextDC = GetDC(Text1.hwnd)
Ellipse TextDC, 0, 0, 100, 100
ReleaseDC Text1.hwnd, TextDC
End Sub gX6hY49z.rar (1.09 KB, 下载次数: 15363)

2005-12-5 17:33 上传

点击文件名下载附件
如何画一个红色的圆圈？

[此贴子已经被作者于2005-12-05 17:35:18编辑过]

马大哈

你好象少放了一个窗体什么的进去.......

马大哈

Asuka 也来了！！

马大哈

以下是引用[I]Asuka[/I]在2005-12-11 19:38:22的发言：<br>这是前些日子复习二级考试做的例子,里面有好多画图栗子

栗子????哈哈

[此贴子已经被作者于2005-12-13 21:17:46编辑过]