vb點虐 做圖表 vb 圖表

用VS2010怎么樣能畫出圖表或者說如何能用Excel表格的畫圖功能 VB點虐

Public?Class?Form3

10年積累的做網(wǎng)站、網(wǎng)站制作經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站設(shè)計制作后付款的網(wǎng)站建設(shè)流程，更有策勒免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

Protected?Sub?iniChart()

Dim?dt?As?New?DataTable

'表增加月份、收入、支出三列

dt.Columns.Add("月份")

dt.Columns.Add("收入")

dt.Columns.Add("支出")

Dim?dr?As?DataRow

For?i?As?Integer?=?1?To?12

'新增行

dr?=?dt.NewRow()

'月份?1-12月

dr.Item(0)?=?i??"月"

Randomize()

'收入

dr.Item(1)?=?3000?+?Int(5000?*?Rnd(8))

Randomize()

'支出

dr.Item(2)?=?600?+?Int(2000?*?Rnd(7))

dt.Rows.Add(dr)

Next

dr?=?Nothing

With?Me.Chart1

.DataSource?=?dt????'dt作為chart1的數(shù)據(jù)源

.Series.Clear()

.Legends.Clear()

.ChartAreas.Clear()

.ChartAreas.Add("收入")

.ChartAreas.Add("支出")

.Legends.Add("收入")

.Legends.Add("支出")

.Series.Add("收入")

.Series.Add("支出")

.Series("支出").ChartArea?=?"支出"??????????????'指定Series所屬ChartArea

.Series("支出").Legend?=?"支出"?????????????????'指定Legend所屬Series

.Series("收入").LegendToolTip?=?"收入圖例"

.Series("收入").IsValueShownAsLabel?=?True????'標(biāo)簽顯示數(shù)據(jù)值

.Legends("收入").DockedToChartArea?=?"收入"?????'指定Legend所屬ChartArea

.Legends("支出").DockedToChartArea?=?"支出"

.ChartAreas("支出").Area3DStyle.Enable3D?=?True??'啟用3D樣式

End?With

With?(Chart1.Series(0))

'指定x、y軸數(shù)據(jù)列

.YValueMembers?=?"收入"

.XValueMember?=?"月份"

'圖表類型

.ChartType?=?DataVisualization.Charting.SeriesChartType.Column

End?With

With?Chart1.Series(1)

.YValueMembers?=?"支出"

.XValueMember?=?"月份"

.ChartType?=?DataVisualization.Charting.SeriesChartType.Pie

End?With

Me.Chart1.DataBind()????'綁定數(shù)據(jù)源

With?Me.Chart1.Series("收入")

Dim?s1?As?Integer

For?i?As?Integer?=?0?To?.Points.Count?-?1

s1?=?s1?+?Val(.Points(i).GetValueByName("y"))

.Points(i).ToolTip?=?.Points(i).AxisLabel??.Points(i).GetValueByName("y")

Next

'圖例顯示總收入

Me.Chart1.Legends("收入").Title?=?"總收入"

.LegendText?=?s1.ToString

End?With

With?Me.Chart1.Series("支出")

.IsValueShownAsLabel?=?True

For?i?As?Integer?=?0?To?.Points.Count?-?1

.Points(i).ToolTip?=?.Points(i).AxisLabel??.Points(i).GetValueByName("y")

.Points(i).LegendText?=?.Points(i).AxisLabel

.Points(i).Label?=?"#PERCENT"???????????????'餅狀圖顯示百分比

.SmartLabelStyle.AllowOutsidePlotArea?=?True

Next

End?With

Me.Chart1.AlignDataPointsByAxisLabel("支出")

With?Me.Chart1.Legends("支出")

.LegendStyle?=?DataVisualization.Charting.LegendStyle.Column

.Title?=?"支出"

End?With

End?Sub

Private?Sub?Form3_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load

Call?iniChart()

Call?iniCombChart()

End?Sub

Private?Sub?iniCombChart()

Dim?tps?As?Array

'枚舉所有SeriesChartType類型

tps?=?System.Enum.GetValues(GetType(Windows.Forms.DataVisualization.Charting.SeriesChartType))

For?Each?i?As?Windows.Forms.DataVisualization.Charting.SeriesChartType?In?tps

Me.ComboBox1.Items.Add(Val(i))

Next

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Call?iniChart()

End?Sub

Private?Sub?ComboBox1_SelectedIndexChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?ComboBox1.SelectedIndexChanged

With?Chart1.Series(0)

'改變圖表樣式

Dim?tps?As?Array

tps?=?System.Enum.GetValues(GetType(System.Windows.Forms.DataVisualization.Charting.SeriesChartType))

For?Each?i?As?Windows.Forms.DataVisualization.Charting.SeriesChartType?In?tps

If?Val(i)?=?Me.ComboBox1.Text?Then

.ChartType?=?i

Exit?For

End?If

Next

End?With

End?Sub

End?Class

VB點虐 2008 NET 3.5 SP1，Chart控件的圖表類型修改

1、檢查一下是不是序列的名稱不對應(yīng)，進行了修改，不是默認(rèn)的"Series1"；

3、修改正確或是沒有錯誤時可全部重新生成一次看看。

希望對你有幫助，還有疑問請追問或是Hi

vb點虐 如何由已知數(shù)據(jù)生成chart圖表

這個說起來有點小復(fù)雜，建議你找專門的文章學(xué)習(xí)。

比如：

vb點虐 中有沒有好用的圖表控件？免費的，能畫折線圖的

TeeChart5

這個畫圖表很不錯。。

百度一下一大堆下載的。

本文標(biāo)題：vb點虐 做圖表 vb 圖表
標(biāo)題鏈接：http://muchs.cn/article6/ddcjoog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、搜索引擎優(yōu)化、網(wǎng)站維護、營銷型網(wǎng)站建設(shè)、網(wǎng)站改版、網(wǎng)站設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)