建站
咨詢
售后
建站咨詢
新聞中心
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)主機(jī)托管與主機(jī)租用業(yè)務(wù);數(shù)據(jù)中心含:雙線機(jī)房,BGP機(jī)房,電信機(jī)房,移動機(jī)房,聯(lián)通機(jī)房。
Line?方法，在對象上畫直線和矩形。
以下是具體實現(xiàn)繪制曲線的代碼：
Option?Explicit
Const?PI?=?3.14159265432
Private?Sub?Command1_Click()
Picture1.Scale?(-2?*?PI,?1)-(2?*?PI,?-1)?'建立坐標(biāo)系
Dim?I?As?Single
Picture1.CurrentX?=?-2?*?PI?'建立當(dāng)前坐標(biāo)
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個點坐標(biāo)；
(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........
把這些相鄰的點之間用直線連接起來，就是折線了。
VB6可以在窗體上或者PictureBox里繪制圖形，語句為：
對象.Line (x1,y1)-(x2,y2)
其中：(x1,y1)和(x2,y2)分別是兩個點的坐標(biāo)。
vb在窗體上多次單擊鼠標(biāo)左鍵，畫出如圖所示連接各單擊點的連續(xù)折線，單擊鼠標(biāo)右鍵則在折線終點與起點之間
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 '記錄第一次點擊坐標(biāo)
Y2 = Y
Else
Me.Line (X1, Y1)-(X, Y), vbRed '不是第一次點擊，連線
End If
Case 2 '鼠標(biāo)右鍵
Me.Line (X1, Y1)-(X2, Y2), vbRed
X1 = 0
Y1 = 0
Exit Sub
End Select
X1 = X '記錄本次點擊坐標(biāo)
Y1 = Y
End Sub
vb.net怎么在excle里面生成折線圖
你可以通過用VB.net控制excel,讓excel生成曲線圖,然后利用excelVBA將圖輸出,最后導(dǎo)入到VB.net就可以了。
當(dāng)前標(biāo)題：vb.net畫連續(xù)折線 vb折線圖
文章來源：http://fisionsoft.com.cn/article/docdodj.html
