Technic_ChangeStock等事件为何无响应　[金字塔]

Sub Technic_ChangeStock(Grid, Code, Market, Result)
msgbox 222
End Sub

这个FRAME_CHANGESTOCK事件要怎么写?

这个事件是你在技术分析图上改变了当前分析的品种时，发生的，比如：你需要让技术分析图上一直显示某一个合约，可是别人不知道，换成了别的合约，你就可以通过这个代码换回来。

Sub Technic_ChangeStock(Grid,Code,Market,Result) '用户改变合约代码时发生
 if Code<>"IF06" then
  application.MsgOut "图表上不是现在交易的合约"
  Application.ActivateFrameWithCode "Technic","IF06","ZJ",0  '激活IF06的1F周期的交易合约
  'Call application.ActivateFrame("Cl")      '这个是激活CL的框架，如果你使用自定义框架，就可以使用这个方法。
 end if 
End Sub