My project Web Browser

This is a project I have been working on in Visual Studio (Visual Basic) 2008. It is a full featured social network web browser with a good many features which I feel others would like to have in a browser. It is still a work in progress. I still need to code the New Tab button, the status label and the progress bar. Also I still need to code the captions for the title bar on the browser and the captions on the tabs to reflect the sites I am currently on. The combobox on the 2nd row of tool buttons will hold your favorites when you add a favorite (have not coded the favorite button yet) and also if you click on the tv, radio or game buttons then that same combobox will load up the tv channels, radio channels and games from a specified site. The red icon on the top toolbar on the far right side will be a website scanner so you can scan the current site for malicious objects. I am still gonna embed a standalone email application in it so you do not have to have a seperate email app for viewing or sending emails, everything will be in one application. Please leave any suggestions you feel I should add or change.
Here is the coding I have done so far: Note, any help would be greatly appreciated on the new tab option and anything else you think I should work on.
Public Class Form1 Dim int As Integer = 0 Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs) ToolStripProgressBar1.Maximum = e.MaximumProgress ToolStripProgressBar1.Value = e.CurrentProgress End Sub Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) TabControl1.SelectedTab.Text = CType(TabControl1Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButt.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle ToolStripComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString End Sub Private Sub ToolStrip2_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip2.ItemClicked End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Browser As New WebBrowser TabControl1.TabPages.Add("New Page") Browser.Name = "Web Browser" Browser.Dock = DockStyle.Fill TabControl1.SelectedTab.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("www.startpage.com") End Sub Private Sub ToolStripButton6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click WebBrowser1.Navigate(ToolStripComboBox1.Text) End Sub Private Sub ToolStripButton23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton23.Click Dim Browser As New WebBrowser TabControl1.TabPages.Add("New Page") TabControl1.SelectTab(int) Browser.Name = "Web Browser" Browser.Dock = DockStyle.Fill TabControl1.SelectedTab.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("www.google.com") End Sub Private Sub ToolStripButton24_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton24.Click If Not TabControl1.TabPages.Count = 1 Then TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex) TabControl1.SelectTab(TabControl1.TabPages.Count - 1) int = int - 1 End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText End Sub Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click WebBrowser1.Navigate("http://www.google.com/#hl=en&sugexp=pfwl&cp=9&gs_id=10&xhr­=t&q=" & ToolStripComboBox2.Text) End Sub Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked End Sub
End Class

Category:

Howto & Style

Tags:

• my
• web
• browser