VB TabStrip和SSTab选项卡控件

QTP在录制选项卡的点击事件时,录制的是选项卡的坐标,显示器换了,坐标就会变化,脚本也会失效,通用性较差.
VB编程方式实现选项卡的选中
SSTab1.Tab = 2
TabStrip1.Tabs(2).Selected = True
TabStrip和SSTab分别添加三个属性页
TabStrip属性页编号默认从1开始
SSTab默认从0开始

VbWindow("Form1").ActiveX("TabStrip").Click 21,9
VbWindow("Form1").ActiveX("TabStrip").Click 58,11
VbWindow("Form1").ActiveX("TabStrip").Click 91,13

'用运行时属性设置选中选项卡
VbWindow("Form1").ActiveX("TabStrip").Object.Tabs(2).Selected = true

VbWindow("Form1").ActiveX("SSTab").Click 30,14
VbWindow("Form1").ActiveX("SSTab").Click 144,10
VbWindow("Form1").ActiveX("SSTab").Click 282,7


'用运行时属性设置选中选项卡
VbWindow("Form1").ActiveX("SSTab").Object.Tab = 1