彩票走势图

TeeChart Pro可助你开发出顶级的金融图表。TeeChart Pro拥有三个不同的金融系列和14个特殊的金融功能，它是市场上最灵活的财务图表工具之一。

TeeChart Pro v6 ActiveX控件包含以下财务特点：

金融图表系列：

• 蜡烛(OHLC)系列
• Volume系列
• 点和图系列

财务功能：

• ADX
• RSI
• Moving Average
• Exponential Moving Average
• Momentum
• MACD
• Stochastic
• Bollinger Bands
• Compression, with subtypes Normal, Bar, No Open, No Close, No Border, Line
• Close Location Value
• On Balanced Volume
• Commodity Channel Index
• Volume Oscillator

所有的图标系列和功能都可以在设计时添加到您的图表中。右键单击一个嵌入式的TeeChart ActiveX Object，选择Edit，然后点击add按钮。选择系列标签和子标签，点击左下角的蜡烛系列会出现如下截图：

移动到功能标签上，再次选择选择功能子标签：

添加数据到金融系列中：

Option Explicit

Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset

Private Sub AddAsDatetime()
With TChart1
.RemoveAllSeries
.AddSeries scCandle
With .Series(0)
.DataSource = rst
.asCandle.OpenValues.ValueSource = "Open"
.asCandle.HighValues.ValueSource ="High"
.asCandle.LowValues.ValueSource = "Low"
.asCandle.CloseValues.ValueSource = "Close"
.LabelsSource = "Date"
End With
End With
End Sub

Private Sub AddAsNoWeekend()
Dim Count As Integer
With TChart1
.RemoveAllSeries
.AddSeries scCandle
With rst
.MoveFirst
While Not .EOF
If Weekday(.Fields("Date")) <> 1 And Weekday(.Fields("Date")) <> 7 Then
TChart1.Series(0).asCandle.AddCandle Count, .Fields("Open"),
.Fields("High"), .Fields("Low"), .Fields("Close")
TChart1.Series(0).PointLabel(Count) = .Fields("Date")
Count = Count + 1
End If
.MoveNext
Wend
End With
End With
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
AddAsNoWeekend
Else
AddAsDatetime
End If
End Sub

Private Sub Form_Load()
Set Conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
Conn.Open "DSN=TeeChart Pro Database"
rst.Open "select * from stock", Conn, 1, 1
TChart1.Axis.Bottom.Labels.Angle = 90
Check1.Caption = "Add without weekends"
Check1.Value = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
rst.Close
Conn.Close
End Sub

运行上面的代码会给你以下两个图像，一个有复选框，一个没有选中复选框：

金融功能与金融系列关联

Private Sub Command1_Click()
With TChart1
.AddSeries scFastLine
.Series(1).SetFunction tfBollinger
.Series(1).DataSource = .Series(0)
.Series(1).FunctionType.asBollinger.LowBand.Color = vbCyan
.Series(1).Color = vbCyan
.Series(1).FunctionType.asBollinger.Deviation = 3
.Series(1).FunctionType.asBollinger.Exponential = False
.Series(1).FunctionType.PeriodAlign = paLast
.Series(1).FunctionType.PeriodStyle = psNumPoints
.Series(1).FunctionType.Period = 2
.Series(1).CheckDataSource
End With
End Sub