Public Function IsExsitTab(tabControlH, tabHeadStr) As Boolean
    tabCount = tabControlH.Object.TabPages.Count
    For i = 0 to tabCount - 1
        Set currentTabPage = tabControlH.Object.TabPages.Item(i)
        tabHead = currentTabPage.Text
        If tabHead = tabHeadStr Then
            IsExsitTab = True
            Exit Function
        End If
    Next
    IsExsitTab = False
End Function

 

关联

 QTP 根据Head名选择DevExpress的Tab