Visual Basic Dersleri

Kolay Google Yapımı

• 1 adet textbox
• 1 adet button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "google" Then
            System.Diagnostics.Process.Start("www.google.com.tr")
        End If
        If TextBox1.Text = "facebook" Then
            System.Diagnostics.Process.Start("www.facebook.com")
        End If
        If TextBox1.Text = "sanalkurs" Then
            System.Diagnostics.Process.Start("www.sanalkurs.net")
        End If
        If TextBox1.Text = "hotmail" Then
            System.Diagnostics.Process.Start("www.hotmail.com")
        End If
        If TextBox1.Text = "meteliksizler" Then
            System.Diagnostics.Process.Start("www.meteliksizler.net")
        End If
end sub