vb.net保曲线图,vb曲线图控件

vb.net 绘制实时温度曲线

这个要用GDI+画。要看你.net版本。

以下是VS2005中的一段代码。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定义画布

Dim bp As New Bitmap(880, 450) '定义位图,并进行赋值

Dim p As New Pen(Color.Black) '定义画笔

p.Width = 2 '宽度2

p.DashStyle = Drawing2D.DashStyle.Solid '样式直线

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '绘制纵坐标

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标

相关问答

Q1: vb.net绘制曲线图

。net  其实还是很好绘制图形的

你可以看下 Graphics  类

   Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

      Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制的东西了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

 等  如果你用的是 VS的  编译  上面都有详细的参数说明

     Dim d As New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(d)

        g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

        g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

        g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

        g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))

        g.Dispose()

        Me.BackgroundImage = d

Q2: vb.net连续绘制曲线图不消失

您好，您是想问vb.net连续绘制曲线图不消失怎么办？b.net连续绘制曲线图不消失的解决办法如下：

1、首先必须创建bitmap,关联到picturebox1.image上。

2、再在picturebox1.image上创建Graphics,再进行作图。即可显示线图。

Q3: 如何用VB.NET调用excel的画图命令，即用.NET得到一组点坐标后，调用excel根据点画出曲线图并显示在VB.NET里

你可以通过用VB.net控制excel，让excel生成曲线图，然后利用excelVBA将图输出，最后导入到VB.net就可以了。