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折线图
标题URL：http://kswsj.cn/article/docdodj.html