API怎么画出很圆的圆和怎么获得ListView的列对齐方式

API如何画出很圆的圆和如何获得ListView的列对齐方式？
重绘RadioBox过程中，我不想用贴图，于是我用我用 Ellipse 画圆
但直径13的圆一点也不圆，请问下谁有好的方法吗！

还有如何获得ListView的列对齐方式？

------解决方案--------------------
用GDI+画就可以抗锯齿啊:

VB code

'新建工程,添加一个按钮.
Option Explicit
 
 'GDI+画圆,抗锯齿模式
 '
 '   API与结构声明模块请到http://www.vistaswx.com下载.
 '
 'By 嗷嗷叫的老马
 'http://www.m5home.com/
 '
 
 Dim graphics As Long
 Dim pen As Long
 
 Private Sub Form_Load()
     InitGDIPlus
     GdipCreateFromHDC Me.hDC, graphics                                  '创建Graphics对象
     
     Call GdipCreatePen1(&HFF0000FF, 1, UnitPixel, pen)                  '创建一个蓝色不透明的画笔,粗细为1像素
     Call GdipSetSmoothingMode(graphics, SmoothingModeAntiAlias)         '设置为抗锯齿模式
 End Sub
 
 Private Sub Command1_Click()
     Call GdipDrawEllipseI(graphics, pen, 20, 20, 13, 13)                '在20,20的位置画一个13x13的很圆的圈圈....
 End Sub
 
 Private Sub Form_Unload(Cancel As Integer)
     GdipDeletePen pen
     GdipDeleteGraphics graphics
     
     TerminateGDIPlus
 End Sub

API怎么画出很圆的圆和怎么获得ListView的列对齐方式

相关推荐