Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.CenterToScreen() WebBrowser.Navigate("http://www.google.com.ar") page1.Text = WebBrowser.UrlEnd Sub
page1.Text = "XXX"
tabControl1.TabPages(0).Text = "ZZZ"
page1.Text = WebBrowser.Url
txtURL.Text = WebBrowser.URL.ToString()
mira ravenheart, cuando trato de usar esa caracteristica, me dice esto: Referencia a objeto no establecida como instancia de un objeto.el problema aparece cuando pongo esto:Código: [Seleccionar]txtURL.Text = WebBrowser.URL.ToString()
WebBrowser.URL = New System.Uri("http://google.es") ' Navegar a googletxtURL.Text = WebBrowser.URL.ToString()
if (WebBrowser.Url is nothing) then txtURL.Text = "Pestaña vacia"else txtURL.Text = WebBrowser.Url.ToString()endif
Public Class frmBrowser Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.CenterToScreen() WebBrowser.Url = New System.Uri("[url]http://www.google.com.ar/[/url]") txtURL.Text = WebBrowser.Url.ToString() 'EL FALLO ESTA ACA End Sub Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click WebBrowser.GoBack() End Sub Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click WebBrowser.Refresh() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click WebBrowser.Stop() End Sub Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click WebBrowser.GoForward() End Sub Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click WebBrowser.Navigate(txtURL.Text) End Sub Private Sub NewWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewWindowToolStripMenuItem.Click End Sub Private Sub NewFlangeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewFlangeToolStripMenuItem.Click End Sub Private Sub SavePageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SavePageToolStripMenuItem.Click WebBrowser.ShowSaveAsDialog() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub VersionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionToolStripMenuItem.Click MsgBox("Web Browser Version 1.01", MsgBoxStyle.Information, Title:="Web Browser") End Sub Private Sub CopyrightToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyrightToolStripMenuItem.Click MsgBox("Copyright Michael Decima", MsgBoxStyle.Information, Title:="Web Browser") End Sub Private Sub btnOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOptions.Click frmOptions.Show() End SubEnd Class
Private Sub PageLoading() If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then lblLoading.Text = "Ready" End If If WebBrowser.ReadyState = WebBrowserReadyState.Loading Then lblLoading.Text = "Loading" End If End Sub
Este es el codigo del navegador:Código: [Seleccionar]Public Class frmBrowser Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.CenterToScreen() WebBrowser.Url = New System.Uri("[url]http://www.google.com.ar/[/url]") txtURL.Text = WebBrowser.Url.ToString() 'EL FALLO ESTA ACA End Sub[/quote]Parece que el problema está en que Url vale Nothing hasta que la carga de la página empieza (o termina, no estoy seguro). Es decir, que nada más hacer[code]WebBrowser.Url = New System.Uri("http://www.google.com.ar/")el objeto aún aún no está listo y por eso falla. Tienes que esperar un poco.Prueba a meterlo la línea que falla en un botón, (y quitarla del Load), y no le des hasta que la página haya cargado del todo.Luego... te tocará experimentar con eventos y demás, yo lo metería en un Try/Catch y si falla le pondría algo como "Cargando...".Si aún te da problemas sube el proyecto a algún lado y lo miro con más detenimiento.Suerte!
Public Class frmBrowser Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.CenterToScreen() WebBrowser.Url = New System.Uri("[url]http://www.google.com.ar/[/url]") txtURL.Text = WebBrowser.Url.ToString() 'EL FALLO ESTA ACA End Sub[/quote]Parece que el problema está en que Url vale Nothing hasta que la carga de la página empieza (o termina, no estoy seguro). Es decir, que nada más hacer[code]WebBrowser.Url = New System.Uri("http://www.google.com.ar/")