主题：框架vba编程指定窗口显示合约?

以下内容为程序代码:

1 '调用子过程, 可存放于全局 Global模块中
2 Sub FrameSwitchStock(Frame, Grid, Code, Market, IndexWinName)
3 dim indexCode, indexMarket
4 indexCode = Code
5 indexMarket = Market
6
7 '期货品种的周线显示对应的连续合约
8 if Market="DQ" OR Market="ZJ" OR Market="SQ" or Market="SY" or Market="ZQ" then '有什么方法可以方便地判断指定市场的种类是期货市场 ?
9     indexCode = Left(Code,Len(Code)-2) & "00"
10     indexMarket = Market
11 end if
12
13 Set IndexGrid = Frame.GetGridByName(IndexWinName)
14 if IndexGrid is Nothing then
15     Application.MsgOut "目标窗口不存在: " & IndexWinName
16 else
17     if IndexGrid.StockLabel＜＞ indexCode THEN
18     call IndexGrid.ChangeStock(indexCode, indexMarket)
19     IndexGrid.reInitData
20     Frame.Refresh
21     Frame.InitAllGrid
22     END IF
23 end if
24 end Sub
25
26 '从列表切换合约时触发
27 Sub MyChart_TableChangeStock(Grid, Code, Market, Result)
28 'Application.MsgOut "TableChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market
29     call FrameSwitchStock(MyChart, Grid, Code, Market, "WeekWin")
30     call FrameSwitchStock(MyChart, Grid, Code, Market, "MonthWin")
31 End Sub
32
33 '子窗口直接输入代码切换合约时触发
34 Sub MyChart_ChangeStock(Grid, Code, Market, Result)
35 'Application.MsgOut "ChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market
36 if Grid.Name ＜＞ "WeekWin" then
37         call FrameSwitchStock(MyChart, Grid, Code, Market, "WeekWin")
38     end if
39     if Grid.Name ＜＞ "MonthWin" then
40         call FrameSwitchStock(MyChart, Grid, Code, Market, "MonthWin")
41     end if
42 End Sub
43