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
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
。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