拖一个PictureBox1控件 创建一个Paint事件。在事件中加入 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Create pens. Dim redPen As New Pen(Color.Red, 3) Dim greenPen As New Pen(Color.Green, 3) ' Create points that define curve. Dim point1 As New Point(50, 50) Dim point2 As New Point(100, 25) Dim point3 As New Point(200, 5) Dim point4 As New Point(250, 50) Dim point5 As New Point(300, 100) Dim point6 As New Point(350, 200) Dim point7 As New Point(250, 250) Dim curvePoints As Point() = {point1, point2, point3, point4, _ point5, point6, point7} ' Draw lines between original points to screen. e.Graphics.DrawLines(redPen, curvePoints) ' Draw curve to screen. e.Graphics.DrawCurve(greenPen, curvePoints) End Sub 得到数据后,改point的数据。然后PictureBox1.Refresh()就行了
创新互联公司长期为1000多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为鄂伦春企业提供专业的网站制作、网站设计,鄂伦春网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
数组元素intstr(137)是全局声明吗?如果是全局声明,则可以在FORM1中建个定时器或多线程,然后使用me.textbox1.text=intstr(x).ToString即可,如果要把数组全显示完成,则多加个FOR
简单说下思路吧,具体的代码可以查资料
首先要会画曲线图,有三种方法:
1、用mschar控件(vb6的);2、用水晶报表;3、用word图表
x轴为时间,y轴为数据
要实现实时数据刷新,只要用 定时器 定时刷新曲线图的数据就可以了(x、y的数据重写)
程序界面本身就是被windows画出来的,每次显示都要画上一遍,而每次重新画出程序,你的函数并没有因此而重新调用,当然图形就不见.
你可以在窗体的paint()事件里掉用函数