devepxress qtp 点击子菜单

  Dim L,T,R,B
' click 父亲菜单
SwfWindow( " Form1 ").SwfObject( " SwfObject ").Click  55, 15
' 调用swfobject的方法，得到坐标
SwfWindow( " SwfWindow ").SwfObject( " SwfObject ").GetTextLocation   " Eric Test ", L,T,R,B, True
' click 父亲菜单2次
SwfWindow( " Form1 ").SwfObject( " SwfObject ").Click  54, 18
SwfWindow( " Form1 ").SwfObject( " SwfObject ").Click  54, 18
' click 找到的坐标
SwfWindow( " SwfWindow ").SwfObject( " SwfObject ").Click (L+R)/ 2, (T+B)/ 2
SwfWindow( " Form1 ").Dialog( " #32770 ").WinButton( " 确定 ").Click