Char FX 7 VB

Imports ChartFX.WinForms.Adornments Imports ChartFX.WinForms Public Class Form1Class Form1 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load setChartFX() End Sub Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '' 导出图像 Chart1.Export(FileFormat.Bitmap, "d:chart.bmp") MessageBox.Show("OK!") End Sub Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '' 刷新数据 setChartFX() End Sub Private Sub setChartFX()Sub setChartFX() '' 右键菜单使用可 Chart1.ContextMenus = True '' 工具栏表示 Chart1.ToolBar.Visible = True '' 菜单栏表示 Chart1.MenuBar.Visible = True '' DataGrid表示 Chart1.DataGrid.Visible = True '' ChartFX边框 Chart1.Border = New ImageBorder(ImageBorderType.Pulsar, System.Drawing.Color.Silver) '' ChartFX标题 Dim TitleDockable1 As ChartFX.WinForms.TitleDockable = New ChartFX.WinForms.TitleDockable TitleDockable1.Text = "ChartFX Sample" Me.Chart1.Titles.AddRange(New ChartFX.WinForms.TitleDockable() {TitleDockable1}) Chart1.Data.Clear() '' 三条数据线 Chart1.Data.Series = 3 '' 50个数据节点 Chart1.Data.Points = 30 '' 右侧说明方框显示 Chart1.LegendBox.Visible = True '' 方框位置 Chart1.LegendBox.Dock = DockArea.Right '' 设置ChartFX属性 For serno As Integer = 0 To Chart1.Series.Count - 1 Dim sattr As SeriesAttributes sattr = Chart1.Series(serno) '' 表示模式 sattr.Gallery = Gallery.Curve '' 右侧方框中显示内容 sattr.Text = "Test " & serno '' 数据线颜色 If serno = 0 Then sattr.Color = Color.Blue ElseIf serno = 1 Then sattr.Color = Color.Red Else sattr.Color = Color.Green End If Next '' X轴名称 Chart1.AxisX.Title.Text = "X Value" '' Y轴名称 Chart1.AxisY.Title.Text = "Y Value" '' X轴分割单位 Chart1.AxisX.Step = 3 '' Y轴分割单位 Chart1.AxisY.Step = 20 '' X轴单元格表示 Chart1.AxisX.Grids.Major.Visible = True '' Y轴单元格表示 Chart1.AxisY.Grids.Major.Visible = True '' 数据线各点表示样式 Chart1.AllSeries.MarkerShape = MarkerShape.None '' 填充模式 Chart1.AllSeries.FillMode = FillMode.Gradient 'Chart1.AllSeries.AlternateColor = Color.MintCream '' 设置随即数据，以10为分割点，显示三条数据线 Dim random As New Random Dim value As Integer For i As Integer = 0 To Chart1.Data.Points - 1 value = random.Next(30, 100) If i < 10 Then Chart1.Data(0, i) = value Chart1.Data(2, i) = Chart.Hidden ElseIf i = 10 Then Chart1.Data(0, i) = value Chart1.Data(1, i) = value Chart1.Data(2, i) = value Else Chart1.Data(0, i) = Chart.Hidden Chart1.Data(1, i) = random.Next(30, 80) Chart1.Data(2, i) = value End If Chart1.AxisX.Labels(i) = i & "#" Next '' 在分割点处划线（竖线） Dim custom1 As New CustomGridLine custom1.Value = 11 custom1.Color = System.Drawing.Color.Brown custom1.Width = 1 Chart1.AxisX.CustomGridLines.Add(custom1) Chart1.RecalculateScale() Chart1.Refresh() End Sub End Class 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/tyouvivi/archive/2007/06/06/1640702.aspx