这是一个简单的VB6代码段,该代码段使用MSChart控件在VB6.0中显示图表。
要使用此示例,请按照以下步骤操作
在VB6中创建一个新项目
下拉“项目”菜单,然后选择“组件”。
选中Microsoft ChartControl 6.0(OLEDB)旁边的复选框,单击“确定”。
向现有表单添加一个组合框,一个Mschart控件和一个复选框。
将以下代码粘贴到代码窗口中
PrivateSubForm_Load()'Fillthecomboboxwithdifferenttypesofcharttypes.WithCombo1.AddItem"3DBar".AddItem"2DBar".AddItem"3DLine".AddItem"2DLIne".AddItem"3DArea".AddItem"2DArea".AddItem"3DStep".AddItem"2DStep".AddItem"3DCombination".AddItem"2DCombination"EndWith'Declare2Darraytostorevaluesforthechart'Variant----sothatcanstorebothtextaswellasnumbersDimX(1To7,1To6)AsVariantX(1,2)="Steel"X(1,3)="Aluminium"X(1,4)="Copper"X(1,5)="Buxite"X(1,6)="Lead"X(2,1)="JAN"X(2,2)=2X(2,3)=3X(2,4)=4X(2,5)=5X(2,6)=6X(3,1)="FEB"X(3,2)=4X(3,3)=6X(3,4)=3X(3,5)=10X(3,6)=18X(4,1)="MAR"X(4,2)=1X(4,3)=3X(4,4)=8X(4,5)=7X(4,6)=9X(5,1)="APR"X(5,2)=4X(5,3)=6X(5,4)=13X(5,5)=10X(5,6)=12X(6,1)="MAY"X(6,2)=2X(6,3)=9X(6,4)=9X(6,5)=12X(6,6)=7X(7,1)="JUN"X(7,2)=13X(7,3)=20X(7,4)=5X(7,5)=18X(7,6)=11'2Darrayisthedataforthechartcontrol.MSChart1.ChartData=X'Defaultcharttypeisseto2Dbarchart.MSChart1.chartType=1EndSubPrivateSubCheck1_Click()IfCheck1.Value=1Then'ShowLegendsMSChart1.ShowLegend=TrueCheck1.Caption="&HideLegends"Else'HideLegendsMSChart1.ShowLegend=FalseCheck1.Caption="&ShowLegends"EndIfEndSubPrivateSubCombo1_Click()'Tochangethecharttypeatruntime.MSChart1.chartType=Combo1.ListIndexEndSub
注意:-上面的示例代码适用于控件的默认名称,如果控件的名称不同,则需要进行相应的修改。
From: /topic/visual-basic/insights/701826-drawing-chart-using-mschart-control
如果觉得《使用MSChart控件绘制图表。》对你有帮助,请点赞、收藏,并留下你的观点哦!