ZedGraph_Graph1

1.Code ：

 1 Imports  ZedGraph
 2 Imports  MySql.Data
 3 Imports  MySql.Data.MySqlClient
 4 Imports  System.Data
 5
 6 Public   Class Form1 Class Form1
 7
 8    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 9        Me.FillCurve()
10    End Sub
11
12    Function DT()Function DT() As DataTable
13        Dim conn As New MySqlConnection("server=192.0.3.169;user id=admin;database=store;")
14        Dim da As New MySqlDataAdapter("select udate,nprice from mytest", conn)
15        Dim ds As New DataSet()
16        da.Fill(ds)
17        Return ds.Tables(0)
18    End Function
19
20    Sub FillCurve()Sub FillCurve()
21        Dim myPane As GraphPane = Me.ZedGraphControl1.GraphPane
22        With myPane
23            .Title.Text = "年度时段对比分析"
24            .XAxis.Title.Text = "时间段"
25            .YAxis.Title.Text = "销售量"
26        End With
27
28        Dim list As New PointPairList()
29        For i As Integer = 0 To DT().Rows.Count - 1
30            Dim x As Double = Convert.ToDateTime(DT().Rows(i)(0)).Hour
31            Dim y As Double = Convert.ToDouble(DT().Rows(i)(1))
32            list.Add(x, y)
33        Next
34
35        Dim myLine As LineItem = myPane.AddCurve("", list, Color.Red, SymbolType.Square)
36        myLine.Symbol.Fill = New Fill(Color.White)
37        myPane.Chart.Fill = New Fill(Color.White, Brushes.LightGoldenrodYellow, FillType.Solid)
38        myPane.XAxis.Scale.Min = 0
39        myPane.XAxis.Scale.Max = 24
40        myPane.YAxis.MajorTic.IsOpposite = False
41        myPane.YAxis.MinorTic.IsOpposite = False
42        myPane.XAxis.MinorTic.IsOpposite = False
43        myPane.XAxis.MajorTic.IsOpposite = False
44
45        Me.ZedGraphControl1.AxisChange()
46
47    End Sub
48End Class
49

2.DemoJPG