使用.NET多线程技术显示实时股票信息

　　使用示例的最简单的方法是把下面一些Chart属性复制并粘贴到"Windows窗体设计器生成的"代码段中：

'Chart1 Me.Chart1.AxisX.Staggered = True Me.Chart1.AxisX.Step = 10 Me.Chart1.AxisY.Step = 10 Me.Chart1.BackObject = GradientBackground1 Me.Chart1.DataStyle =SoftwareFX.ChartFX.DataStyle.ReadXValues Me.Chart1.DesignTimeData = _ "C:\Program Files\ChartFX for .NET 6.2\Wizard\XYZero.txt" Me.Chart1.Gallery = SoftwareFX.ChartFX.Gallery.Lines Me.Chart1.InsideColor = System.Drawing.Color.Transparent Me.Chart1.LineWidth = 3 Me.Chart1.Location = New System.Drawing.Point(40, 16) Me.Chart1.MarkerShape =SoftwareFX.ChartFX.MarkerShape.None Me.Chart1.Name = "Chart1" Me.Chart1.NSeries = 1 Me.Chart1.NValues = 20 Me.Chart1.Palette = "HighContrast.HighContrast" Me.Chart1.PointLabels = True Me.Chart1.Size = New System.Drawing.Size(656, 216) Me.Chart1.TabIndex = 12 Me.Chart1.Titles.AddRange(New _ SoftwareFX.ChartFX.TitleDockable(){TitleDockable1})

　　同时，把下面一些数据项添加到组合框控件中："MSFT"、"SUN"、"YHOO"和"GE"。你可以在Form_Load事件中进行这样的操作：

Me.cmbStocks1.Items.AddRange(New String() {"MSFT", "SUN", "YHOO", "GE"})

　激活图形

　　下一步，导入下面的名字空间（在代码窗口的顶部）：

Imports SoftwareFX.ChartFX Imports System.Threading

　　定义用于线程的全局变量t1:

Dim t1 As Thread

　　在Chart1_Load事件中，初始化Chart组件：

Private Sub Chart1_Load(ByVal sender As _ System.Object, ByVal e As System.EventArgs) Handles Chart1.Load 　'x轴上每隔5点显示时间 　Chart1.AxisX.Step = 5 　'每个点之间用5象素间隔 　Chart1.AxisX.PixPerUnit = 5 　'使图表可以滚动 　Chart1.Scrollable = True 　'打开和关闭通讯管道 　Chart1.OpenData(COD.Values, 1, COD.Unknown) 　Chart1.CloseData(COD.Values) End Sub

　　给当前的窗体添加一个叫做StockQuote的类。StockQuote类调用前面的Web服务并用返回的股票价格来更新图表。

Public Class StockQuote 　'组件中图形的数量 　Const NUM_SERIES = 1 　Private lastPoint As Integer = 0 　Dim stockPrice As Single 　Private pStockSymbol As String 　Private pStockSeries As Integer = 0 　Private pChartControl As Chart 　WriteOnly Property StockSymbol() 　　Set(ByVal Value) 　　　pStockSymbol = Value 　　End Set 　End Property 　WriteOnly Property ChartControl() 　　Set(ByVal Value) 　　　pChartControl = Value 　　End Set 　End Property 　Public Sub InvokeWebService() 　　Dim ws As New StockWS.Service1 　　For i As Integer = 0 To 10000 　　　stockPrice = ws.getPrice(pStockSymbol) 　　　pChartControl.Invoke(New _ myDelegate(AddressOf updateChart), New Object() {}) 　　　'继续之前等待1秒钟 　　　Thread.Sleep(1000) 　　Next 　End Sub 　Public Delegate Sub myDelegate() 　　Public Sub updateChart() 　　pChartControl.OpenData(COD.Values, NUM_SERIES, COD.Unknown) 　　pChartControl.Value(pStockSeries, lastPoint) = stockPrice 　　'显示x轴上的时间 　　pChartControl.AxisX.Label(lastPoint) = DateTime.Now.ToShortTimeString 　　lastPoint += 1 　　pChartControl.CloseData(COD.Values) 　　'把滚动条移到最右边 　　pChartControl.AxisX.ScrollPosition = pChartControl.AxisX.ScrollSize 　End Sub End Class

 

上一页  [1] [2] [3] [4] 下一页