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

本帖最后由 bcrun 于 2011-01-04 10:19:41 编辑画线需要（x1,y1）-(x2,y2)两个点四个坐标数据，你只给出两个数据，怎么画啊？这样试试

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

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

引用 3 楼 homezj 的回复:

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

3楼正解，顺便也感谢2楼的兄弟，谢谢大家！解决问题要结贴

补充：VB ,  基础类