To replace these content go to Edit HTML of your blog.
Our amazing new site will launch in
sexta-feira, 24 de outubro de 2014
Private Sub btnIr_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIr.Click
'Abre o website se a caixa de texto nÆo estiver vazia
If Not String.IsNullOrEmpty(Me.txtEndereco.Text) Then
If txtEndereco.Text.Contains("http://") Then
Me.Web1.Navigate(New Uri(Me.txtEndereco.Text))
Else
txtEndereco.Text = "http://" & txtEndereco.Text.Trim
Me.Web1.Navigate(New Uri(Me.txtEndereco.Text))
End If
End If
End Sub
Private Sub btnVoltar_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnVoltar.Click
'retorna para a pagina anterior
Me.Web1.GoBack()
End Sub
Private Sub btnAvancar_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnAvancar.Click
'vai para a pr¢xima p gina
Me.Web1.GoForward()
End Sub
Private Sub btnAtualizar_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnAtualizar.Click
'atualiza a pagina
Me.Web1.Refresh()
End Sub
Private Sub txtEndereco_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles txtEndereco.KeyUp
'permite o usu rio abrir um website
'apenas pressionando a tecla enter
'apos digitar a URL no TextBox
If e.Key = Key.Enter Then
btnIr.RaiseEvent(New System.Windows.RoutedEventArgs(Button.ClickEvent))
End If
End Sub
Nenhum comentário:
Postar um comentário