How to make an Automated Refreshing Web Browser Using VB.NET





Public Class webbrowser
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If WebBrowser1.Visible Then
            WebBrowser1.Refresh()
        End If
        If WebBrowser2.Visible Then
            WebBrowser2.Refresh()
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If WebBrowser1.Visible Then
            WebBrowser1.Navigate(TextBox1.Text)
        End If
        If WebBrowser2.Visible Then
            WebBrowser2.Navigate(TextBox1.Text)
        End If

    End Sub
End Class

Comments

Post a Comment

Popular posts from this blog

How to make a text to speech program in vb.net

Image
Imports System.Drawing.Font  Imports System.Drawing.FontFamily Imports System.Drawing.FontConverter  Imports System.Speech.Synthesis  Imports System.Collections.ObjectModel  Public Class Text_To_Speech  Private p_objSynth As New SpeechSynthesizer  Dim w As Integer = Screen.PrimaryScreen.Bounds.Width  Dim h As Integer = Screen.PrimaryScreen.Bounds.Height  Private Sub BindCombo()  ComboBox2.DrawMode = DrawMode.OwnerDrawFixed  ComboBox2.Font = New Font("Microsoft Sans Serif, 11.25pt", 11.25)  ComboBox2.ItemHeight = 20  Dim objFontFamily As FontFamily  Dim objFontCollection As System.Drawing.Text.FontCollection  Dim tempFont As Font objFontCollection = New System.Drawing.Text.InstalledFontCollection() For Each objFontFamily In objFontCollection.Families ComboBox2.Items.Add(objFontFamily.Name)  Next  End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ...
Read more