Question

lineto和movetoex函数的使用方法

Private Sub Command3_Click()
Dim i As Long
While (i < 33000)
data_tab_ch1(i) = 3
i = i + 1
Wend
i = 0
While (i < 33000)
RESULT = MoveToEx(Picture1.hWnd, i, data_tab_ch1(i), LpPoint1)
RESULT = LineTo(Picture1.hWnd, i, data_tab_ch1(i + 1))
i = i + 1
Wend
End Sub
上面是我用VB写的代码，要实现的功能是一点击command3按钮就在picture1中显示波形，要形成波形的数据存在data_tab_ch1中，上面是实验用，所以都设了相同值，但是运行后不显示任何图形（正确的话应该显示一条直线），望知情者告知那里出错了，可以的话帮忙修改下代码，不胜感激！！！！1

Answer 1

函数的第一个参数是hDC, 而不是hWnd！