Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
Bu dersimizde tek satır ile Google yapımını göstereceğim..
Gerekli olanlar:
1 adet textbox
1 adet button
Gerekli olanlar:
1 adet textbox
1 adet button
Kod:
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