Jump to content

Recommended Posts

Posted

Boas pessoal, ao tentar implementar um gráfico 3d com o objecto chart, e com este código

' Set 3D chart settings
Chart1.ChartAreas("Default").Area3DStyle.Enable3D = true
Chart1.ChartAreas("Default").Area3DStyle.IsRightAngleAxes = false
Chart1.ChartAreas("Default").Area3DStyle.Inclination = 40
Chart1.ChartAreas("Default").Area3DStyle.Rotation = 15
Chart1.ChartAreas("Default").Area3DStyle.LightStyle = LightStyle.Realistic
Chart1.ChartAreas("Default").Area3DStyle.Perspective = 20

' Set SplineArea chart type
Chart1.Series("Series1").ChartType = SeriesChartType.Spline;Area
Chart1.Series("Series2").ChartType = SeriesChartType.Spline;Area

' Set spline line tension 
Chart1.Series("Series1")("LineTension") = "0.6"
Chart1.Series("Series2")("LineTension") = "0.6"

' Disable X axis margin
Chart1.ChartAreas("Series1").AxisX.IsMarginVisible = false
Chart1.ChartAreas("Series2").AxisX.IsMarginVisible = false

' Enable the Marker Lines
chart1.Series("Series1").CustomProperties = "ShowMarkerLines=true"
chart1.Series("Series2").CustomProperties = "ShowMarkerLines=true"

obtenho um erro logo na primeira linha..

A chart element with the name 'Default' could not be found in the 'ChartAreaCollection'.

será falta de código?

Posted

Porque estás a chamar "Default" á tua chartArea? crias-te alguma com esse nome?

corrigi

Chart1.ChartAreas("ChartArea1").Area3DStyle.Enable3D = True

        Chart1.ChartAreas("ChartArea1").Area3DStyle.IsRightAngleAxes = False

        Chart1.ChartAreas("ChartArea1").Area3DStyle.Inclination = 40

        Chart1.ChartAreas("ChartArea1").Area3DStyle.Rotation = 15

        Chart1.ChartAreas("ChartArea1").Area3DStyle.LightStyle = LightStyle.Realistic

        Chart1.ChartAreas("ChartArea1").Area3DStyle.Perspective = 20

        ' Set SplineArea chart type

        Chart1.Series("Series1").ChartType = SeriesChartType.SplineArea

        Chart1.Series("Series2").ChartType = SeriesChartType.SplineArea

        ' Set spline line tension

        Chart1.Series("Series1")("LineTension") = "0.6"

        Chart1.Series("Series2")("LineTension") = "0.6"

        ' Disable X axis margin

        Chart1.ChartAreas("Series1").AxisX.IsMarginVisible = False

        Chart1.ChartAreas("Series2").AxisX.IsMarginVisible = False

        ' Enable the Marker Lines

        Chart1.Series("Series1").CustomProperties = "ShowMarkerLines=true"

        Chart1.Series("Series2").CustomProperties = "ShowMarkerLines=true"

    End Sub

agora da-me erro aqui:

Chart1.Series("Series1").ChartType = SeriesChartType.SplineArea

        Chart1.Series("Series2").ChartType = SeriesChartType.SplineArea

diz que não tenho a series1 e no entando tenho ..

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.