VB How to make a WebBrowser Tutorial (Tech Tips) скачать в хорошем качестве

VB How to make a WebBrowser Tutorial (Tech Tips)

Hi all, in this video i could not show you how to create your own WebBrowser step by step but i can give you the source code, as you can see i have some extra on it, if you have a question type comment if youlike it subscribe, thanks for watching! Here is your code: Public Class Form1 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser1.Navigate(TextBox1.Text) If Button5.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.GoBack() If Button1.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.GoForward() If Button2.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.Refresh() If Button3.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser1.Stop() If Button4.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("www.google.com") If WebBrowser1.Enabled = True Then TextBox1.Text = ("www.google.com") End If If WebBrowser1.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser1.Navigate("www.youtube.com") If Button6.Enabled = True Then TextBox1.Text = ("www.youtube.com") End If If Button6.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click WebBrowser1.Navigate("www.in.gr") If Button7.Enabled = True Then TextBox1.Text = ("www.in.gr") End If If Button7.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click WebBrowser1.Navigate("www.showmyip.com") If Button8.Enabled = True Then TextBox1.Text = ("www.showmyip.com") End If If Button8.Enabled = True Then ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum End If End Sub Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripProgressBar1.Click End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click WebBrowser1.Navigate("www.thepiratebay.com") If PictureBox1.Enabled = True Then TextBox1.Text = ("www.thepiratebay.com") End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label2.Text = TimeOfDay End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub End Class Post your comments and Rate If you like it. By subscribing our channel you can get some extra features and advanced tips. Thanks for watching!!