大家帮我看一下这段代码有什么问题呢

Question

本帖最后由 bcrun 于 2011-01-04 10:19:41 编辑

Answer 1

画线需要（x1,y1）-(x2,y2)两个点四个坐标数据，你只给出两个数据，怎么画啊？

Answer 2

这样试试
Private Sub Form_Load()
    With Adodc1
        .Recordset.MoveFirst
        x0 = Val(.Recordset.Fields(1)) * 10
        y0 = Val(.Recordset.Fields(2)) * 10
        Do While .Recordset.EOF = False
            .Recordset.MoveNext
            Form1.Line (x0, y0)-(Val(.Recordset.Fields(1)) * 10, Val(.Recordset.Fields(2)) * 10)
            x0 = Val(.Recordset.Fields(1)) * 10
            y0 = Val(.Recordset.Fields(2)) * 10
        Loop
        .Recordset.MoveFirst
    End With
End Sub

Answer 3

Form_Load中画线，你需要把Form的Autoredraw属性，设为True
另一个办法，不设True，就需把画线代码放到Form_Paint事件中