foshan 发表于 2005-12-5 17:33:50

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

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

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
[此贴子已经被作者于2005-12-05 17:35:18编辑过]

马大哈 发表于 2005-12-5 20:24:01

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

马大哈 发表于 2005-12-11 16:09:04

Asuka 也来了！！

马大哈 发表于 2005-12-13 21:17:16

回复：（Asuka）[upload=rar]viewFile.asp?ID=379[/up...

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

栗子????哈哈
[此贴子已经被作者于2005-12-13 21:17:46编辑过]
页: [1]
查看完整版本: 如何画一个红色的圆圈？如何设置线条的宽度？