兩個圖形和相同的圖表

Question

我想在同一個asp.net圖表上添加樣條圖形和點圖形。有人可以展示你如何做的一個明確的例子嗎？

謝謝。

Answer 1

很高興知道您是否想要C＃或Visual Basic示例。我有一個適合你的Visual Basic。 （你可以通過在線轉換器將它轉換爲C＃）。我希望這可以幫助你。

.aspx文件：

<form id="form1" runat="server"> 

    <div> 
     <asp:Chart ID="Chart1" runat="server"> 
      <ChartAreas> 
       <asp:ChartArea Name="ChartArea1"></asp:ChartArea> 
      </ChartAreas> 
     </asp:Chart> 
    </div> 

</form> 

.vb文件：

Imports System.Web.UI.DataVisualization.Charting 
Imports System.Drawing 

Public Class ChartExample 
Inherits System.Web.UI.Page 

Private Sub Page_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    ' Add the title 
    Chart1.Titles.Add("Title1") 

    ' Set the text of the title 
    Chart1.Titles("Title1").Text = "Chart Area 1 Title" 

    ' Dock the title to a ChartArea 
    Chart1.Titles("Title1").DockedToChartArea = "ChartArea1" 

    ' Creating the series 
    Dim series1 As New Series("Series1") 
    Dim series2 As New Series("Series2") 

    ' Setting the Chart Type 
    series1.ChartType = SeriesChartType.Spline 
    series2.ChartType = SeriesChartType.Point 

    ' Adding some points 
    series1.Points.AddXY(0, 10) 
    series1.Points.AddXY(5, 16) 
    series1.Points.AddXY(10, 9) 
    series1.Points.AddXY(15, 32) 
    series1.Points.AddXY(20, 21) 

    series2.Points.AddXY(0, 5) 
    series2.Points.AddXY(5, 12) 
    series2.Points.AddXY(10, 18) 
    series2.Points.AddXY(15, 11) 
    series2.Points.AddXY(20, 25) 

    ' Add the series to the chart 
    Chart1.Series.Add(series1) 
    Chart1.Series.Add(series2) 

    ' Set the chart's height and width 
    Chart1.Width = 600 
    Chart1.Height = 600 

    ' Setting the X Axis 
    Chart1.ChartAreas("ChartArea1").AxisX.IsMarginVisible = True 
    Chart1.ChartAreas("ChartArea1").AxisX.Interval = 1 
    Chart1.ChartAreas("ChartArea1").AxisX.Maximum = [Double].NaN 
    Chart1.ChartAreas("ChartArea1").AxisX.Title = "x" 
    Chart1.ChartAreas("ChartArea1").AxisX.TitleFont = New Font("Sans Serif", 10, FontStyle.Bold) 

    ' Setting the Y Axis 
    Chart1.ChartAreas("ChartArea1").AxisY.Interval = 2 
    Chart1.ChartAreas("ChartArea1").AxisY.Maximum = [Double].NaN 
    Chart1.ChartAreas("ChartArea1").AxisY.Title = "y" 
    Chart1.ChartAreas("ChartArea1").AxisY.TitleFont = New Font("Sans Serif", 10, FontStyle.Bold) 

End Sub 

End Class