vb.net画连续折线 vb程序做数据折线图

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
VB 如何在picture中用line方法连续画线VB可用object.Line - (x2, y2)写法实现在对象上绘制连续折线 。
Line 方法,在对象上画直线和矩形 。
以下是具体实现绘制曲线的代码:
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
运行效果:
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怎么在excle里面生成折线图你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了 。
如何用vb画折线图?【vb.net画连续折线 vb程序做数据折线图】采用绘制直线的方法:
你给出了9个点坐标;
(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........
把这些相邻的点之间用直线连接起来,就是折线了 。
VB6可以在窗体上或者PictureBox里绘制图形,语句为:
对象.Line(x1,y1)-(x2,y2)
其中:(x1,y1)和(x2,y2)分别是两个点的坐标 。
关于vb.net画连续折线和vb程序做数据折线图的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读