蜡烛图K线图采用PictureBox控件绘制是实现量化交易的第一步非python量化

设置值 描述
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)

最后

不知道你们用的什么环境，我一般都是用的Python3.6环境和pycharm解释器，没有软件，或者没有资料，没人解答问题，都可以免费领取（包括今天的代码），过几天我还会做个视频教程出来，有需要也可以领取~

给大家准备的学习资料包括但不限于：

Python 环境、pycharm编辑器/永久激活/翻译插件

python 零基础视频教程

Python 界面开发实战教程

Python 爬虫实战教程

Python 数据分析实战教程

python 游戏开发实战教程

Python 电子书100本

Python 学习路线规划

网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。

需要这份系统化学习资料的朋友，可以戳这里无偿获取

一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！