[VB.NET] Refresh TextBox

[nico95]

Ciao a tutti avrei bisogno di sapere come impostare l auto refresh di una textbox ecco il codice che sto usando

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown         
If e.KeyCode = Keys.Enter Then             
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)         End If         
TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri         
Me.Refresh()   
End Sub 

[oregon]

Autorefresh ? Cioè ?

[nico95]

il contenuto della text box (un url) dovrebbe variare al selezionare di ogni tab aperta

[oregon]

Quindi il codice lo devi scrivere nell'opportuno evento del Tab non del Textbox ...

[nico95]

ho gia provato ma con scarsi risultati questa è la parte di codice interessata se mi potresti indicare dove posso piazzare il codice te ne sarei grato

Public Class Form1     
Dim int As Integer = 0     
Dim Home As String = ("http://www.google.com/")     
Dim None As String = ("about:blank")      

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).DocumentTitle
TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.ToString     
End Sub      
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         
Dim Browser As New WebBrowser         
TabControl1.TabPages.Add("Nuova Scheda")         
Browser.Name = "Kamillo Web Browser"         
Browser.Dock = DockStyle.Fill         
TabControl1.SelectedTab.Controls.Add(Browser)         
AddHandler Browser.DocumentCompleted, AddressOf Done         
int = int + 1         
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(Home)         My.Settings.Reload()         
Dim cnt As Integer = My.Settings.Preferiti.Count        
Dim x As Integer        
For x = 0 To cnt - 1             
ListBox1.Items.Add(My.Settings.Preferiti.Item(x))         
Next         
Me.SplitContainer1.Panel1Collapsed = True         
Me.SplitContainer1.Panel2Collapsed = False     
End Sub