Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
'//定义曲线 1X 轴变量为时间
Private X1(19) As String
'//定义曲线 1Y 轴变量为瞬时流量
Private Y1(19) As Double
'//定义曲线 2X 轴变量为时间
Private X2(19) As String
'//定义曲线 2Y 轴变量为瞬时流量
Private Y2(19) As Double
'//定义画图区域变量
Private *uxArea As ChartArea
'//定义 Serial 对象
Private *uxLine1 As Series
Private *uxLine2 As Series
'//定义 Legends 对象
Private *uxLegend As Legend
Private Sub InitChartSet()
'//初始化 Chart 对象设置
'//设置控件背景色
Chart1.BackColor = Color.Black
'//定义标题对象变量
Dim ChartTitle As New Title
'//设置 Title 信息
With ChartTitle
.Text = "皮带秤流量实时曲线"
.ForeColor = Color.Yellow
.Font = New System.Drawing.Font(" 微 软 雅 黑 ", 16.0!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
End With
'//清除所有标题对象
资源评论
