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
关联