Public Function SelectTabByHead(tabControlH, tabHeadStr)
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
tabControlH.Object.SelectedTabPageIndex = currentTabPage.TabIndex
End If
Next
End Function
评论