vb.net连续画线函数 excel中vba循环绘制曲线图

VB如何画连续线

直接这样写：

line（X1，Y1）-（X2，Y2）

line -（X3，Y3）

这样第二次画线就是和第二个点是连在一起的。

这个比例的问题，你可以先用控件line在窗体上画出一个大概的线，经调整之后取line1的

X1，X2，Y1，Y2属性值就可以了。这样画出来的线就比较协调了。

相关问答

Q1: vb.net的picturebox画直线的函数是哪个?vb6.0是picture1.line就可以，但是vb.net没有啊

Dim PtStart As Point '记录绘制直线的起始点

Dim PtEnd As Point '记录绘制直线的终点

Dim ShouldDrawLine As Boolean '是否绘制直线

'记录鼠标左键点击的位置，第二次点击后开始绘制直线

Private Sub Pic1_MouseDown()Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown

If e.Button = Windows.Forms.MouseButtons.Left Then

If Not ShouldDrawLine Then

PtStart = New Point(e.X, e.Y)

ShouldDrawLine = True

Else

PtEnd = New Point(e.X, e.Y)

'下面两句根据需要进行取舍

'Call DrawLine(PtStart, PtEnd) '绘制一条直线

Call DrawLines(PtStart, PtEnd) '绘制多条直线

ShouldDrawLine = False

End If

End If

End Sub

'绘制鼠标两次点击位置之间的直线

Private Sub DrawLine()Sub DrawLine(ByVal mPoint1 As Point, ByVal mPoint2 As Point)

Pic1.Refresh() '用于刷新Picturebox表面

Pic1.CreateGraphics.DrawLine(Pens.Blue, mPoint1, mPoint2) '绘制两点间的直线

End Sub

'绘制多条直线，每两次鼠标点击确定一条线

Private Sub DrawLines()Sub DrawLines(ByVal mPoint1 As Point, ByVal mPoint2 As Point)

'此句不可删除，用于清除鼠标点击前的轨迹

ControlPaint.DrawReversibleLine(Pic1.PointToScreen(mPoint1), Pic1.PointToScreen(mPoint2), Color.Red)

Pic1.CreateGraphics.DrawLine(Pens.Blue, mPoint1, mPoint2) '绘制两点间的直线

End Sub

Q2: VB.net中如何在picturebox画线，有什么函数？

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(b)

g.Clear(Color.White)

Dim p As New Pen(Color.Black)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)

g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)

Dim i As Integer

Dim bs As New SolidBrush(Color.Green)

Dim po As New Point

po.X = 0

po.Y = PictureBox1.Height - 35

For i = 700 To 1000 Step 50

g.DrawString(i, Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)

po.Y -= (PictureBox1.Height - 100) / 6

Next

po.X = 30

po.Y = PictureBox1.Height - 30

For i = 0 To 40 Step 5

g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (PictureBox1.Width - 100) / 8

Next

PictureBox1.Image = b

关于vb.net连续画线函数和excel中vba循环绘制曲线图的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。