Sunday, September 21, 2008

set a TargetURL for a Tabs ContentPane based on a value in another Tabs ContentPane

Private Sub UltraWebTab1_TabClick(ByVal sender As System.Object, ByVal e As Infragistics.WebUI.UltraWebTab.WebTabEvent) Handles UltraWebTab1.TabClick
Dim oTab As Infragistics.WebUI.UltraWebTab.Tab
Dim tb As TextBox
Dim sText As String

oTab = UltraWebTab1.Tabs(0)
tb = oTab.ContentPane.Controls(0)
sText = tb.Text()

If e.Tab.Text = "New Tab 2" Then
e.Tab.ContentPane.TargetUrl = sText
End If

End Sub

No comments: