Thursday, May 13, 2021

【VISUAL VB NET】Web Browser

 Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.GoBack() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click WebBrowser1.Refresh() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click WebBrowser1.[Stop]() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click WebBrowser1.GoForward() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click WebBrowser1.Navigate(TextBox1.Text) End Sub End Class

No comments:

Post a Comment