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
參考答案:函数的第一个参数是hDC, 而不是hWnd!