VB 如何在picture中用line方法連續(xù)畫線

VB可用object.Line - (x2, y2)寫法實現(xiàn)在對象上繪制連續(xù)折線。

創(chuàng)新互聯(lián)IDC提供業(yè)務(wù):聯(lián)通服務(wù)器托管,成都服務(wù)器租用,聯(lián)通服務(wù)器托管,重慶服務(wù)器租用等四川省內(nèi)主機托管與主機租用業(yè)務(wù);數(shù)據(jù)中心含:雙線機房,BGP機房,電信機房,移動機房,聯(lián)通機房。

Line?方法，在對象上畫直線和矩形。

以下是具體實現(xiàn)繪制曲線的代碼：

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在窗體上多次單擊鼠標左鍵，畫出如圖所示連接各單擊點的連續(xù)折線，單擊鼠標右鍵則在折線終點與起點之間

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就可以了。