主题：金字塔VBA常用对象使用范例

五、ReportData对象：

 

    此对象是返回行情数据，之前讲到的MarketData对象的两种获取最新行情数据的方法，getReportData方法、RegReportNotify订阅行情并使用MarketData_ReportNotify事件获取最新行情都是返回这个对象。

还有Grid对象的GetReportData方法也是返回本对象。

 

    本对象的常用属性可以看看编程帮助的说明，本帖只讲一些用的最多的属性。

    LastOpen         昨开价

    LastHigh          昨高价

    LastLow           昨低价

    Open               取开盘价

    High                取最高价

    Low                 取最低价

    NewPrice          取最新价

    Volume             取成交量(手)

    Amount            取成交额(元)

    BuyPrice1         取买1价格

    BuyVolume1      取买1量

    SellPrice1         取卖1价

    SellVolume1      取卖1量

 

下面的例子返回IF07最新价、买1、卖1价

Sub TestReportData()

    set report1=marketdata.getreportdata("IF07","ZJ")

    application.msgout Cdate(time) & ",IF07最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1

End

 

这个对象相对简单，关键是理清楚与grid、marketdata对象的关系，此对象就是一个数据的载体，这样说也许你会理解的快些。

 

有更新，顶一下，大师辛苦了

与ReportData类似的对象有

1、MinuteData 获取分时数据

2、HistoryData 获取历史交易数据

 

这两个对象使用的没有ReportData多，使用方法与ReportData类似，都可以用Grid对象、MarketData对象的GetMinuteData和GetHistoryData方法来获取数据

只是这两个对象与Reportdata对象也有些不同之处，那就是返回的数据是以数组方式存储的，可以使用基于0索引来获取指定位置的数据，而ReportData对象是实时数据。

 

这两个对象在金字塔软件的编程帮助中有例子，请参考。

 

学习了。顶大师

懂交易的很多不懂IT，懂IT的很多不懂交易，两个都懂的是人才。VBA不熟悉，我也在学习，感谢楼主的无私奉献。

七、Menu对象：

 

    这个对象相对简单些，是用于生成菜单的。

    帮助文件有介绍，但是没有例子，本帖主要是列举一个例子，帮助朋友们快速掌握此对象的使用方法。

 

 ''''''''''菜单操作
Sub MENU_Show()
 Menu.AddMenu 0, 0, "菜单项一"
 Menu.AddMenu 1, 1, "菜单项二"
 Menu.AddMenu 2, 2, "菜单项三"
 Menu.AddMenu 3, 3, "菜单项四"
 Menu.AddMenu 4, 4, "菜单项"
End Sub
 
Sub MENU_Command(Cmd)
 Select Case Cmd
 Case 0
  Sub01
 Case 1 
  Sub02

 Case 2
  Sub03
 Case 3
  Sub04
 Case 4
  Sub05
 End Select
End Sub

 

上述代码放在一个模块中，启动VBA，就会在工具->扩展 下生成一个你自己的菜单。

顶，原来还可以这样，很是强大！顶大师

坚决支持guo大师，大师在编写这些对象时，应该花费不少心血。

 

vba内部对象基本上都讲解了，唯一一个遗憾就是缺少“Fun”对象，这个编写数学模型时，需要用到，如能增加就完美了。

 

 

唯一一个遗憾就是缺少“Fun”对象，这个编写数学模型时，需要用到，如能增加就完美了。

这个对象我还没有使用过，可能以后会用到，我用到的东西会优先写的。