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