真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net畫多條曲線,vb實(shí)時(shí)曲線繪制

VB怎么用控件數(shù)組使一條線畫出多條線?

Private Sub Command1_Click()

讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶,將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:國(guó)際域名空間、虛擬主機(jī)、營(yíng)銷軟件、網(wǎng)站建設(shè)、惠陽(yáng)網(wǎng)站維護(hù)、網(wǎng)站推廣。

Static n As Long

If n 5 Then

If n 0 Then Load Line1(n)

Line1(n).Visible = True

Line1(n).X1 = 1000

Line1(n).X2 = 5000

Line1(n).Y1 = 1000 + n * 1000

Line1(n).Y2 = 1000 + n * 1000

n = n + 1

End If

End Sub

Private Sub Command2_Click()

Static n As Long

If n 5 Then

If n 0 Then Load Line2(n)

Line2(n).Visible = True

Line2(n).X1 = 1000 + n * 1000

Line2(n).X2 = 1000 + n * 1000

Line2(n).Y1 = 5000

Line2(n).Y2 = 1000

n = n + 1

End If

End Sub

Private Sub Form_Load()

Line1(0).Visible = False

Line2(0).Visible = False

End Sub

如何在vb中繪制多條曲線

Private Sub Form_Load()

MSChart1.chartType = VtChChartType2dLine

Dim arrValues()

ReDim arrValues(1 To 5, 1 To 6)

Dim i As Integer

For i = 1 To 5

arrValues(i, 1) = "t" i 'x軸

arrValues(i, 2) = 0 + Rnd * 100 '第一條線

arrValues(i, 3) = 0 + Rnd * 100 '第二條線

arrValues(i, 4) = 0 + Rnd * 100 '第三條線

arrValues(i, 5) = 0 + Rnd * 100 '第四條線

arrValues(i, 6) = 0 + Rnd * 100 '第五條線

Next i

MSChart1.ChartData = arrValues

vb.net繪制曲線圖

。net ?其實(shí)還是很好繪制圖形的

你可以看下?Graphics ?類

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個(gè)圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個(gè)圖片是進(jìn)行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復(fù)雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說(shuō)明

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),?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d


分享標(biāo)題:vb.net畫多條曲線,vb實(shí)時(shí)曲線繪制
分享網(wǎng)址:http://weahome.cn/article/heegis.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部