Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] ma come diavolo faccio a far si che la textbox sia costantemente uguale all'indirizzo del webbrowser??????
Forum - C# / VB.NET - [VB.NET] ma come diavolo faccio a far si che la textbox sia costantemente uguale all'indirizzo del webbrowser??????

Avatar
Lafa_96 (Normal User)
Pro


Messaggi: 111
Iscritto: 09/03/2011

Segnala al moderatore
Postato alle 20:07
Mercoledì, 09/03/2011
Questo topic è stato chiuso dal moderatore

allora sto creando un browser in vb.net e vorrei che la textbox dove inserisco l'indirizzo sia sempre uguale all'indirizzo del webbrowser come avviene in ogni browser per internet.
p.s. il mio browser ha la navigazione a schede quindi uso l'istruzione CType()

Ultima modifica effettuata da Lafa_96 il 09/03/2011 alle 20:08
PM
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 21:50
Mercoledì, 09/03/2011
semplicemente nell'evento DocumentComplete del browser imposti il valore della textbox...

PM
Avatar
Lafa_96 (Normal User)
Pro


Messaggi: 111
Iscritto: 09/03/2011

Segnala al moderatore
Postato alle 22:06
Mercoledì, 09/03/2011
il problema è che non ci riesco con l'istruzione CType!
il mio browser è questo e
Codice sorgente - presumibilmente VB.NET
  1. Public Class Form1
  2.     Dim i As Integer = 0
  3.     Private Sub browse_done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
  4.         TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
  5.         Timer1.Enabled = True
  6.     End Sub
  7.  
  8.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  9.         Dim browse As New WebBrowser
  10.         browse.Name = "bl"
  11.         browse.Dock = DockStyle.Fill
  12.         AddHandler browse.DocumentCompleted, AddressOf browse_done
  13.         TabControl1.TabPages.Add(i, "Pagina " & i + 1)
  14.         TabControl1.SelectTab(i)
  15.         TabControl1.SelectedTab.Controls.Add(browse)
  16.         i = i + 1
  17.         browse.Navigate("www.google.com")
  18.  
  19.         Dim browse1 As New WebBrowser
  20.         browse1.Name = "bl"
  21.         browse1.Dock = DockStyle.Fill
  22.         AddHandler browse1.DocumentCompleted, AddressOf browse_done
  23.         TabControl1.TabPages.Add(i, "Facebook")
  24.         TabControl1.SelectTab(i)
  25.         TabControl1.SelectedTab.Controls.Add(browse1)
  26.         i = i + 1
  27.         browse1.Navigate("www.facebook.com")
  28.  
  29.         Dim browse2 As New WebBrowser
  30.         browse2.Name = "bl"
  31.         browse2.Dock = DockStyle.Fill
  32.         AddHandler browse2.DocumentCompleted, AddressOf browse_done
  33.         TabControl1.TabPages.Add(i, "YouTube")
  34.         TabControl1.SelectTab(i)
  35.         TabControl1.SelectedTab.Controls.Add(browse2)
  36.         i = i + 1
  37.         browse2.Navigate("www.youtube.com")
  38.  
  39.         Dim browse3 As New WebBrowser
  40.         browse3.Name = "bl"
  41.         browse3.Dock = DockStyle.Fill
  42.         AddHandler browse3.DocumentCompleted, AddressOf browse_done
  43.         TabControl1.TabPages.Add(i, "!T$F")
  44.         TabControl1.SelectTab(i)
  45.         TabControl1.SelectedTab.Controls.Add(browse3)
  46.         i = i + 1
  47.         browse3.Navigate("www.itsfclan.com")
  48.  
  49.  
  50.         TabControl1.SelectedIndex = 0
  51.     End Sub
  52.  
  53.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  54.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
  55.     End Sub
  56.  
  57.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  58.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
  59.     End Sub
  60.  
  61.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  62.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
  63.         Timer1.Enabled = True
  64.     End Sub
  65.  
  66.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  67.         TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
  68.     End Sub
  69.  
  70.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  71.         Dim browse As New WebBrowser
  72.         browse.Name = "bl"
  73.         browse.Dock = DockStyle.Fill
  74.         AddHandler browse.DocumentCompleted, AddressOf browse_done
  75.         TabControl1.TabPages.Add(i, "Pagina " & i + 1)
  76.         TabControl1.SelectTab(i)
  77.         TabControl1.SelectedTab.Controls.Add(browse)
  78.         i = i + 1
  79.         browse.Navigate("www.google.com")
  80.     End Sub
  81.  
  82.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  83.         If ComboBox1.SelectedItem = "Google" Then
  84.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.it/search?hl=it&q=" & TextBox2.Text)
  85.         ElseIf ComboBox1.SelectedItem = "Google immagini" Then
  86.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://images.google.it/images?q=" & TextBox2.Text)
  87.         ElseIf ComboBox1.SelectedItem = "Google video" Then
  88.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://video.google.it/videosearch?q=" & TextBox2.Text)
  89.         ElseIf ComboBox1.SelectedItem = "Yahoo" Then
  90.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://it.search.yahoo.com/search?p=" & TextBox2.Text)
  91.         ElseIf ComboBox1.SelectedItem = "Bing" Then
  92.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bing.com/search?q=" & TextBox2.Text)
  93.         ElseIf ComboBox1.SelectedItem = "Youtube" Then
  94.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com/results?search_query=" & TextBox2.Text)
  95.         ElseIf ComboBox1.SelectedItem = "Wikipedia" Then
  96.             CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://it.wikipedia.org/w/index.php?title=Speciale:Ricerca&search=" & TextBox2.Text & "&fulltext=Ricerca")
  97.         End If
  98.     End Sub
  99.  
  100.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  101.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
  102.     End Sub
  103.  
  104.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  105.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
  106.     End Sub
  107. End Class

dove diavolo la metto quell'istruzione?? vi prego aiutatemi sono disperato!!!:hail::hail:

PM
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 23:21
Mercoledì, 09/03/2011
il codice va inserito in browse_done che si occupa del caricamento della pagina
e insieme ad aggiornare il titolo sulla scheda devi aggiornare la textbox 2 volte:

-Quando la pagina viene caricata:
Codice sorgente - presumibilmente VB.NET
  1. Private Sub browse_done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
  2. TabControl1.SelectedTab.Text = Type(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
  3. Timer1.Enabled = True
  4. Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url
  5. End Sub


-Quando si seleziona un'altra scheda e bisogna cambiare l'url della textbox con l'url del webbrowser selezionato:
Codice sorgente - presumibilmente Plain Text
  1. 'evento TabControl1_SelectedIndexChanged
  2. Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url


nulla di più semplice...

Ultima modifica effettuata da walker93 il 09/03/2011 alle 23:26
PM
Avatar
Lafa_96 (Normal User)
Pro


Messaggi: 111
Iscritto: 09/03/2011

Segnala al moderatore
Postato alle 14:08
Giovedì, 10/03/2011
ci avevo già provato così ma mi da giustamente un errore che dice che non puo convertire il formato "Url" in string!
E se metto ".ToString" dopo "Url" mi da errore lo stesso!!
Non esiste un particolare strumento che possa contenere l'Url del webbrowser??
O comunque non c'è una soluzione al mio problema?
Non so se è rilevante ma io uso la prova di 90 giorni di visual studio 2010 ultimate

PM
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 15:16
Giovedì, 10/03/2011
Ho provato personalmente usando ".ToString" e non da nessun errore...
In ogni caso ho provato ad usare:
Codice sorgente - presumibilmente Plain Text
  1. Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.OriginalString

e anche
Codice sorgente - presumibilmente Plain Text
  1. TextBox1.Text = CType(TabControl1.SelectedTab.Controls(0), WebBrowser).Url.AbsoluteUri


e funzionano entrambi...

PM
Avatar
Lafa_96 (Normal User)
Pro


Messaggi: 111
Iscritto: 09/03/2011

Segnala al moderatore
Postato alle 16:48
Giovedì, 10/03/2011
non so perchè il to string non funziona! comunque adesso è tutto apposto!! GRAZIE 100!!:)

PM