Here's a simple VB6 code snippet that uses the MSChart control to display Charts in VB6.0.
To use this sample, please following steps
Create a new project in VB6
Pull down the Project menu and choose Components .
Select the checkbox next to Microsoft ChartControl 6.0(OLEDB), Click OK.
Add a combobox,one Mschart control and one check box tothe existing form.
Paste in the following code tothe code window - Private Sub Form_Load()
-
'Fill the combo box with different types of chart types.
-
With Combo1
-
.AddItem "3D Bar"
-
.AddItem "2D Bar"
-
.AddItem "3D Line"
-
.AddItem "2D LIne"
-
.AddItem "3D Area"
-
.AddItem "2D Area"
-
.AddItem "3D Step"
-
.AddItem "2D Step"
-
.AddItem "3D Combination"
-
.AddItem "2D Combination"
-
End With
-
'Declare 2D array to store values for the chart
-
'Variant ----so that can store both text as well as numbers
-
Dim X(1 To 7, 1 To 6) As Variant
-
-
X(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) = 2
-
X(2, 3) = 3
-
X(2, 4) = 4
-
X(2, 5) = 5
-
X(2, 6) = 6
-
-
X(3, 1) = "FEB"
-
X(3, 2) = 4
-
X(3, 3) = 6
-
X(3, 4) = 3
-
X(3, 5) = 10
-
X(3, 6) = 18
-
-
X(4, 1) = "MAR"
-
X(4, 2) = 1
-
X(4, 3) = 3
-
X(4, 4) = 8
-
X(4, 5) = 7
-
X(4, 6) = 9
-
-
X(5, 1) = "APR"
-
X(5, 2) = 4
-
X(5, 3) = 6
-
X(5, 4) = 13
-
X(5, 5) = 10
-
X(5, 6) = 12
-
-
X(6, 1) = "MAY"
-
X(6, 2) = 2
-
X(6, 3) = 9
-
X(6, 4) = 9
-
X(6, 5) = 12
-
X(6, 6) = 7
-
-
X(7, 1) = "JUN"
-
X(7, 2) = 13
-
X(7, 3) = 20
-
X(7, 4) = 5
-
X(7, 5) = 18
-
X(7, 6) = 11
-
'2D array is the data for the chart control.
-
MSChart1.ChartData = X
-
'Default chart type is se to 2D bar chart.
-
MSChart1.chartType = 1
-
-
End Sub
-
-
Private Sub Check1_Click()
-
If Check1.Value = 1 Then
-
'Show Legends
-
MSChart1.ShowLegend = True
-
Check1.Caption = "&Hide Legends"
-
Else
-
'Hide Legends
-
MSChart1.ShowLegend = False
-
Check1.Caption = "&Show Legends"
-
End If
-
End Sub
-
-
Private Sub Combo1_Click()
-
'To change the chart type at run time.
-
MSChart1.chartType = Combo1.ListIndex
-
End Sub
NOTE:-The above sample code works for default name of controls ,code need to be modified accordly if the name of controls are different.
0 50923 Sign in to post your reply or Sign up for a free account.
Similar topics
by: Job Lot |
last post by:
How can i dynamically add mschart control to my form. I am getting some
"Inavlid state" error.
thanx
|
by: Jon Henry |
last post by:
Hi,
I have a question regarding using the MSChart control in Visual C#
Standard 2003. I understand that you can add it to the Toolbox and use
it like any other control-- the problem I'm having...
|
by: Don Wash |
last post by:
Hi All!
I've been searching everywhere for a simple sample of producing a bar graph
using CrystalReport by specifying SQL Query, and I've found none of it! I
find so many complex samples with so...
|
by: Jeffrey Spoon |
last post by:
Hello, I'm trying to plot some data on a 2d line chart using MSChart.
The code below worked fine on a 2d bar chart, but nothing appeared when
using the 2dline chart property. Should I use the...
|
by: David Caissie |
last post by:
I am trying to automate a Vb.net chart using the excel COM object. The
problem occurs when trying to run the code in different systems. It is
working fine under one of my computers but once i move...
|
by: debasisdas |
last post by:
Hi i am using MSCHART control in VB6 to create some interactive chart.
It works fine ,but my problem is every time i frame the query dynamically as per user interaction it skips the first record...
|
by: shweta goel |
last post by:
Anyone can tell me : how to draw pie chart using MSChart control having data from 2 or 3 variables.
|
by: Arhan Demirali |
last post by:
Hello Everyone,
I am trying to create an Organizational Chart using C# to display on
the WEB. (web application)
I have a TABLE of data containing the information for who is the
supervisor of...
|
by: Mas Juliza Alias |
last post by:
I have a table (MSFlexgrid1) in a form (frmCalculate) containing 2 columns of Depth and Volume data. I want to draw a line graph of Depth Vs Volume in a new form (frmGraph) by using MSChart control....
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
| |