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
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment