[VB] ¿Porque no funciona?

[DisTroX]

Código:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laruta As String
        OpenFileDialog1.ShowDialog()
        laruta = OpenFileDialog1.FileName
        TextBox1.Text = laruta
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.WebBrowser1.url = TextBox1.Text

    End Sub
End Class

Lo que no me funciona es lo ultimo que el navegador habra el documento de lo del text1.

PD: Como hago para que cuando se abra el showdialog ponga abajo .html
y no puedan elegir otro formato?

[Mace Windu]

Porque para navegar debes utilizar el procedimiento Navigate:

Código:

WebBrowser1.Navigate(TextBox1.Text)

En cuanto a lo del Common Dialog, existe una propiedad que se llama Filter y debe establecerla antes de invocarlo con el método ShowDialog:

Código:

OpenFileDialog1.Filter = "Páginas Web HTML (*.html)|*.html|Todos los archivos (*.*)|*.*"

He puesto varios para que aprendas como poner varias opciones .

Salu2