It's possible make a graph like this?
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Chart Control
Forum Description: Topics Related to Codejock Chart Control
URL: http://forum.codejock.com/forum_posts.asp?TID=17885
Printed Date: 13 December 2025 at 7:57pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: It's possible make a graph like this?
Posted By: zabogar
Subject: It's possible make a graph like this?
Date Posted: 15 February 2011 at 6:32am
|
Hello everyone, I'm a codejock user from some years ... Now, i'm very interest to buy chart control .. I tried the evaluation version but in the end also looking closely at the examples i'm not able to do what I need. It's a little bit hard to me explain the problem (i don't speak and write well in English  )It's possible make a chart like this??  many many thanks for the help. |
Replies:
Posted By: Oleg
Date Posted: 15 February 2011 at 8:42am
|
Hi,
Here some code for your start Private Sub Form_Load() Dim Series As ChartSeries Dim Style As ChartStackedSplineAreaSeriesStyle ' 0 Set Series = ChartControl1.Content.Series.Add("0") Set Style = New ChartStackedSplineAreaSeriesStyle Set Series.Style = Style Series.ArgumentScaleType = xtpChartScaleNumerical Style.Label.Visible = False Style.Transparency = 1 Series.Points.Add 0, 2 Series.Points.Add 1, 8 Series.Points.Add 2, 10 Series.Points.Add 3, 12 Series.Points.Add 6, 14 Series.Points.Add 10, 20 ' 1 Set Series = ChartControl1.Content.Series.Add("1") Set Style = New ChartStackedSplineAreaSeriesStyle Set Series.Style = Style Series.ArgumentScaleType = xtpChartScaleNumerical Style.Label.Visible = False Series.Points.Add 0, 2 Series.Points.Add 1, 10 Series.Points.Add 2, 14 Series.Points.Add 3, 15.6 Series.Points.Add 6, 20 Series.Points.Add 10, 25 ' 2 Set Series = ChartControl1.Content.Series.Add("2") Set Style = New ChartStackedSplineAreaSeriesStyle Set Series.Style = Style Series.ArgumentScaleType = xtpChartScaleNumerical Style.Label.Visible = False Series.Points.Add 0, 2 Series.Points.Add 1, 12 Series.Points.Add 2, 15 Series.Points.Add 3, 18 Series.Points.Add 6, 26 Series.Points.Add 10, 40 ' 3 Set Series = ChartControl1.Content.Series.Add("2") Dim LineStyle As ChartLineSeriesStyle Set LineStyle = New ChartLineSeriesStyle Set Series.Style = LineStyle Series.ArgumentScaleType = xtpChartScaleNumerical LineStyle.Color = vbRed Series.Points.Add 0, 2 Series.Points.Add 0.4, 5 Series.Points.Add 1, 12 Series.Points.Add 3, 15 End Sub ------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: zabogar
Date Posted: 16 February 2011 at 4:11am
Hello Oleg, many many thanks for your valuable aid  This morning I purchased the control chart !!  Can you help me with something else? How can I display a label for each series until the end of each (or / and in the middle) as shown in my example? The numbers are virtually the title of each series  Thanks for all. |
Posted By: Oleg
Date Posted: 16 February 2011 at 7:43am
|
Sorry you can only show all or none of labels. remove Style.Label.Visible = False from my lines and you will see all labels. Also please check ChartStackedAreaSeriesStyle style. Spline one not always draw as you need :(
------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: zabogar
Date Posted: 16 February 2011 at 8:05am
|
Thanks for the fast reply .. .. this is a big problem for me ...  my goal it's show a text label at the end of each line .. not the last value of the series. for you this it's possible?? thanks. |
Posted By: Oleg
Date Posted: 16 February 2011 at 1:42pm
|
Hi, Checking what can be changed for 15.0.2 quickfix release. what big differece beween "end of each line" and "the last value of the series" on screenshot its almost same ? ------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: Simon HB9DRV
Date Posted: 16 February 2011 at 2:28pm
|
I would also like to be able to display the label for a specific point. ------------- Simon HB9DRV |
Posted By: Oleg
Date Posted: 16 February 2011 at 2:29pm
|
Added solution for 15.0.2 release to Hide and Show only some of Labels. Pelase wait a little will be published very soon.
------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: zabogar
Date Posted: 17 February 2011 at 2:59am
|
Hello everyone and thanks to Oleg for your big big aid! Just to be clear: in my example picture the 97, 90, 75, 50, 25, 10, 5 it's not the last value of the series it's the label of each series. For now I solved my problem by creating another set with only one point in the same position of last point of each set and then writing the name in the .Format = "97" .Format = "90" Sorry again, I do a little hard to explain clearly. Thanks! |
Posted By: jpbro
Date Posted: 17 February 2011 at 7:56am
|
That's a nice chart Oleg, and the Label visibility feature will be useful. Would it also be possible to set the Label alpha/transparency? I ask because sometimes labels overlap on some charts, and it would be nice if we could change the transparency of labels on mouse-over (so that the one the mouse is over is fully opaque, and the others could be 25% alpha or something). Again, nice work. ------------- Product: Xtreme SuitePro (ActiveX) version 16.2.6 Platform: Windows XP - SP3 Language: Visual Basic 6.0 SP6 |
Posted By: Simon HB9DRV
Date Posted: 17 February 2011 at 8:12am
Agreed, I would like a solution like this, maybe a mangifying option ? Or show labels only if close t mouse or on current mouse posn or ... But for a first release - outstanding. ------------- Simon HB9DRV |
jpbro wrote:Posted By: Oleg
Date Posted: 18 February 2011 at 7:18am
|
Transparency added for SeriesLabel. ------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: jpbro
Date Posted: 18 February 2011 at 8:19am
|
Fantastic, thanks a lot Oleg!
------------- Product: Xtreme SuitePro (ActiveX) version 16.2.6 Platform: Windows XP - SP3 Language: Visual Basic 6.0 SP6 |