图片问题我已经解决了,不过并不完美,这是我的程序,画一个字节中的一位数据,在画字节的时候,只要做个循环,就好了。
希望大家可以指点指点!~~~~~~~~~~~~~~~~~~~~





'一位数据的画线过程,长度为500像素
Private Sub drawpicture(picX As PictureBox, TimeCountX As Long, DataFromComX As Integer, DataFromComLastX As Integer)
If TimeCountX - 1 > 0 Then
picX.Width = picX.Width + 1000
picX.Line ((TimeCountX - 1) * 500, DataFromComLastX)-Step(500, 0), vbRed
picX.Line -(TimeCountX * 500, DataFromComX), vbRed
picX.Line -Step(500, 0), vbRed
picX.Left = picX.Left + 1000
End If
End Sub