Rename Tab Title

 

'**********************************************
' Name    : ChangeTabTitle
' Purpose : Use DHTML to Change the Tab Title
'**********************************************
Sub ChangeTabTitle(sTabName, sNewTabTitle) 
    Dim sTabId
    sTabId = "Tab_" + _
    CStr((UIMaster.RUICenter.Form.Tabs(sTabName). _ 
    Ordinal - 2))
    
    UIMaster.documentCenter. _ 
    GetElementById(sTabId).innerText = sNewTabTitle 
         
End Sub

Advertisements