用vb6.0开发的量化交易软件
VB6量化交易软件的演示视频演示如上
股票软件中的蜡烛图是非常重要的一个东西，这里用VB6.0自带的Picture1控件的Line方法就可以实现绘制。
关于PictureBox 中的line 用法 msdn 上的说明为如下所示
object.Line Step (x1, y1) Step - (x2, y2), color, BF
然而，vb6 提供了一个更简单的画方框的方法。当在 Line 方法中运用 B 选项时，vb6把指定点作为矩形的对角点，可画出一个矩形。所以，可用下列语句，代替上例中的四个语句：
Line (500, 500)--Step(1000, 1000), , B
FillStyle 和 FillColor
只要不改变 FillStyle 属性的设置值，所画的方框将是空的。（该方框运用缺省的 FillStyle 和设置值来进行填充，不过 FillStyle 的缺省值是 1-透明。）可将 FillStyle 属性改变为下表列出的任意设置值。
设置值 描述
0 实心的。可用 FillColor 属性设置的颜色填充方框。
1 透明（缺省值）。无论运用何种色彩，图形对象表现为空。
2 水平线。
3 垂直线。
4 向上的对角线。
5 向下的对角线。
6 十字交叉线。
7 对角交叉线。
所以，将 FillStyle 设置为 0，便可以用 FillColor 属性的颜色设置，将方框填充为实心。
另一种填充方框的方法，是在 B 之后指定 F。（注意，没有 B 就不能用 F。）当运用 F 选项时，Line 方法将忽略 FillColor 和 FillStyle 属性。运用 F 选项时，方框总是被填充为实心。下述语句运用具有 ForeColor 属性的一种实心图样，对方框进行填充
软件采用的是VB6.0开发，无任何第三方组件和DLL模块，纯VB代码实现。
Public Type 股票基本信息结构体
日期 As Date
开盘价 As Double
收盘价 As Double
最高价 As Double
最低价 As Double
成交量 As Long '成交了多少只股票
成交额 As Double '
振幅 As Double
涨幅 As Double '负数代表亏
价差 As Double '负数代表亏 - 这里表示亏多少
换手率 As Double
End Type
Public Function 获取JSON数组成员股价属性(ByVal K线蜡烛图json数据 As String, ByVal 数组序号 As Long) As 股票基本信息结构体
Dim arr
Dim a As 股票基本信息结构体
Dim 起始日期 As Date
Dim 蜡烛数量 As Long, 单个蜡烛信息串 As String, tem As String, i As Long
i = 数组序号
tem = "data.klines" \& i \& "" 'klines
单个蜡烛信息串 = JSONParse(tem, K线蜡烛图json数据) '获取数组长度
If 单个蜡烛信息串 <> "" Then
arr = Split(单个蜡烛信息串, ",") '拆分字符串
a.日期 = arr(0)
a.开盘价 = arr(1)
a.收盘价 = arr(2)
a.最高价 = arr(3)
a.最低价 = arr(4)
a.成交量 = arr(5)
a.成交额 = arr(6)
a.振幅 = arr(7)
a.涨幅 = arr(8)
a.价差 = arr(9)
a.换手率 = arr(10)
'
' Label1.Caption = a.开盘价
' Label2.Caption = a.收盘价
' Label3.Caption = Format(a.涨幅, "00.00") & "%"
获取JSON数组成员股价属性 = a
End If
End Function
