vb.net画连续折线 winform画折线图

vb.net怎么在excle里面生成折线图

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

相关问答

Q1: 如何用vb画折线图?

采用绘制直线的方法：

你给出vb.net画连续折线了9个点坐标vb.net画连续折线；

(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........

把这些相邻的点之间用直线连接起来，就是折线vb.net画连续折线了。

VB6可以在窗体上或者PictureBox里绘制图形，语句为：

对象.Line (x1,y1)-(x2,y2)

其中：(x1,y1)和(x2,y2)分别是两个点的坐标。

Q2: VB 如何在picture中用line方法连续画线

VB可用object.Line - (x2, y2)写法实现在对象上绘制连续折线。

Line 方法vb.net画连续折线，在对象上画直线和矩形。

以下是具体实现绘制曲线的代码vb.net画连续折线：

Option Explicit

    Const PI = 3.14159265432

    

Private Sub Command1_Click()

    Picture1.Scale (-2 * PI, 1)-(2 * PI, -1) '建立坐标系

    Dim I As Single

    Picture1.CurrentX = -2 * PI '建立当前坐标

    Picture1.CurrentY = 0

    For I = -2 * PI To 2 * PI Step 0.01

        Picture1.Line -(I, Cos(3 * I) * Sin(5 * I)), vbRed '绘制曲线

    Next

End Sub

运行效果：

Q3: vb在窗体上多次单击鼠标左键，画出如图所示连接各单击点的连续折线，单击鼠标右键则在折线终点与起点之间

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Static X1 As Long, Y1 As Long, X2 As Long, Y2 As Long

Select Case Button

Case 1 '左键

If X1 = 0 And Y1 = 0 Then '如果是第一次点击

X2 = X '记录第一次点击坐标

Y2 = Y

Else

Me.Line (X1, Y1)-(X, Y), vbRed '不是第一次点击，连线

End If

Case 2 '鼠标右键

Me.Line (X1, Y1)-(X2, Y2), vbRed

X1 = 0

Y1 = 0

Exit Sub

End Select

X1 = X '记录本次点击坐标

Y1 = Y

End Sub

Q4: vb.net绘制曲线图

。net  其实还是很好绘制图形vb.net画连续折线的

vb.net画连续折线你可以看下 Graphics  类

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

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

然后  就是vb.net画连续折线你绘制的东西vb.net画连续折线了

线 就是   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）vb.net画连续折线， New Point(200, 200))

        g.Dispose()

        Me.BackgroundImage = d

vb.net画连续折线的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于winform画折线图、vb.net画连续折线的信息别忘了在本站进行查找喔。