vb.net画连续折线 vb折线图
VB 如何在picture中用line方法连续画线
VB可用object.Line - (x2, y2)写法实现在对象上绘制连续折线。
创新互联IDC提供业务:联通服务器托管,成都服务器租用,联通服务器托管,重庆服务器租用等四川省内主机托管与主机租用业务;数据中心含:双线机房,BGP机房,电信机房,移动机房,联通机房。
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画折线图?
采用绘制直线的方法:
你给出了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在窗体上多次单击鼠标左键,画出如图所示连接各单击点的连续折线,单击鼠标右键则在折线终点与起点之间
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.net怎么在excle里面生成折线图
你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。
网页标题:vb.net画连续折线 vb折线图
网址分享:http://myzitong.com/article/docdodj.html