This is my web browser for my VB.NET beginner project, fairly simple. Here is the code:
' Quick Search for my favourite websites
If (txtAddress.Text.ToString().ToUpper = "GOOGLE") Then
txtAddress.Text = "http://www.google.com.au"
ElseIf (txtAddress.Text.ToString().ToUpper = "") Then
txtAddress.Text = "http://www.google.com.au"
ElseIf (txtAddress.Text.ToString().ToUpper = "CTRL") Then
txtAddress.Text = "http://www.cad-comic.com"
ElseIf (txtAddress.Text.ToString().ToUpper = "CAD") Then
txtAddress.Text = "http://www.cad-comic.com"
ElseIf (txtAddress.Text.ToString().ToUpper = "BLOG") Then
txtAddress.Text = "https://www.blogger.com/start"
ElseIf (txtAddress.Text.ToString().ToUpper = "BLOGGER") Then
txtAddress.Text = "https://www.blogger.com/start"
ElseIf (txtAddress.Text.ToString().ToUpper = "GAME") Then
txtAddress.Text = "http://gmc.yoyogames.com"
ElseIf (txtAddress.Text.ToString().ToUpper = "GMC") Then
txtAddress.Text = "http://gmc.yoyogames.com"
End If
' Go to the site
wbBrowser.Navigate(txtAddress.Text)
No comments:
Post a Comment