怎么能画出一条不带锯齿的直线？最好有代码，谢谢

vistaswx有一个封装挺完善的gdip模块，你可以用它画线

这个就是。
说一下用法：
form_load里写上
initgdiplus
form_queryunload里写上
terminategdiplus
怎么画线：
CreateLine(ByVal ContainerHDC As Long, ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, ByVal Width As Long, Optional ByVal Color As Long = &HFF000000)
参数：
ContainerHDC：容器的hdc，即设备场景，如在窗体上画线，则为me.hdc。
X1 Y1 X2 Y2：线的两个端点的坐标值，注意单位是像素（Pixel）而不是缇（Twip），gdip的所有绘图计量单位都是像素。
Width：线宽，必须为正整数。
Color：颜色值，这里的颜色值跟VB原本的颜色值不一样，VB的颜色值是BGR蓝绿红，这里的是ARGB，即透明度α，红色分量r，绿色分量g和蓝色分量b，通明度为&hff时，表示完全不透明，为&h00时，表示完全透明。颜色缺省为完全不透明的黑色。
示例：

左侧为gdip绘制的线（线宽为10），右侧为line方法绘制的线（线宽为10）。可以看到左侧的线已经做了线性平滑抗锯齿处理。不同之处在于线的两端的形状；当线宽很小的时候，两种线的两端可以视作一个点。
【注】createline这个函数是我封装的，不是vistaswx原有的。
这个模块里也有绘制基本形状（椭圆和矩形）和基本文字的函数，都有抗锯齿，你可以试试看。
如果你想要用纯gdip画图形，要先看看画笔（Pen）和画刷（Brush）的用法。

数学好，自己一个个的点。。细线不可能吧

这里跟你解释下原因：由于我在示例代码中用的是Form_Load事件，所以窗体的AutoRedraw（自动重绘）设置为True。在不是Form_Load事件的过程中，需要在绘制完加上容器.Refresh。

此外，Gdip的初始化一般只要写在Form_Load或Form_Initialize中就能使用，不需要在每个过程中写；终止一般只要写在Form_QueryUnload中即可。也就是一个窗体只需要在Form_Load中写初始化，在Form_QueryUnload中写终止就可以保证这个窗体能使用gdip了

在Gdip模块中，有这样一个枚举：
Public Enum SmoothingMode
SmoothingModeInvalid = QualityModeInvalid
SmoothingModeDefault = QualityModeDefault
SmoothingModeHighSpeed = QualityModeLow
SmoothingModeHighQuality = QualityModeHigh
SmoothingModeNone
SmoothingModeAntiAlias
SmoothingModeAntiAlias8x4
SmoothingModeAntiAlias8x8
End Enum
这是平滑样式的枚举。参考地址如下：

测试代码为：
Private Sub Form_Load()
InitGDIPlus
Me.DrawWidth = 2
CreateLine Me.hdc, 10, 20, 40, 40, 2, &HFF000000
Me.Line (50, 20)-(80, 40), vbBlack
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
TerminateGDIPlus
End Sub
在Gdip中的CreateLine中修改这句代码：
GdipSetSmoothingMode tGraphics,平滑模式
分别得到以下结果：
上面这张图需要原图查看，这是绘制结果经过放大若干倍的效果。第一个为用line方法生成直线的对比。
不难看出，在放大后，几种平滑模式的效果还是有所区别的。
至于为什么2像素宽度看不出明显差别呢，我想应该是人眼视力极限的缘故。
但不管怎么说，平滑效果还是有差别的。

如果你要绘制一个椭圆，你会发现差别更加明显了。
这里使用的抗锯齿模式为普通抗锯齿AntiAlias，图片大小为实际大小。

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8235
ClientLeft = 165
ClientTop = 810
ClientWidth = 13140
LinkTopic = "Form1"
ScaleHeight = 549
ScaleMode = 3 'Pixel
ScaleWidth = 876
StartUpPosition = 3 '窗口缺省
Begin VB.Menu GdipMethod
Caption = "Gdip"
End
Begin VB.Menu LineMethod
Caption = "Line"
End
Begin VB.Menu separatebar1
Caption = " "
Enabled = 0 'False
End
Begin VB.Menu DrawStatus
Caption = "Gdip"
Enabled = 0 'False
End
Begin VB.Menu separatebar2
Caption = " "
Enabled = 0 'False
End
Begin VB.Menu ClearBoard
Caption = "Clear"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mFlag As Boolean, Ox As Long, Oy As Long
Dim DrawMethod As Integer
Private Sub ClearBoard_Click()
Me.Cls
End Sub
Private Sub Form_Load()
InitGDIPlus
DrawMethod = 0
Me.DrawWidth = 2
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
mFlag = True
If DrawMethod = 0 Then CreateShape Me.hdc, X, Y, 2, 2, &HFF000000, 0, Ellipse, FillOnly Else Me.PSet (X, Y)
End If
Ox = X
Oy = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mFlag Then
If DrawMethod = 0 Then CreateLine Me.hdc, X, Y, Ox, Oy, 2, &HFF000000 Else Me.Line (X, Y)-(Ox, Oy), vbBlack
End If
Ox = X
Oy = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then mFlag = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
TerminateGDIPlus
End Sub
Private Sub GdipMethod_Click()
DrawMethod = 0
DrawStatus.Caption = "Gdip"
End Sub
Private Sub LineMethod_Click()
DrawMethod = 1
DrawStatus.Caption = "Line"
End Sub