增城网站建设,提升网站页面打开速度,传媒公司怎么套路新人,在线购物系统的分析与设计用vb6.0开发的量化交易软件 VB6量化交易软件的演示视频演示如上
股票软件中的蜡烛图是非常重要的一个东西#xff0c;这里用VB6.0自带的Picture1控件的Line方法就可以实现绘制。
关于PictureBox 中的line 用法 msdn 上的说明为如下所示 object.Line [Step] … 用vb6.0开发的量化交易软件 VB6量化交易软件的演示视频演示如上
股票软件中的蜡烛图是非常重要的一个东西这里用VB6.0自带的Picture1控件的Line方法就可以实现绘制。
关于PictureBox 中的line 用法 msdn 上的说明为如下所示 object.Line [Step] (x1, y1) [Step] - (x2, y2), [color], [B][F] 然而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
