Visual Basic İle Site Açma Programı

ads

ads

Bu derste basit bir belirlediğiniz herhangi bir siteyi TextBox'a adını girerek tek tuşla açmaya yarayan bir program yapacağız.

Forma eklemeniz gereken malzemeler:

1 Tane Button + 1 Tane TextBox Ekliyoruz.  Aşağıdaki örnek resimdeki gibi  tasarımınızı yapabilirsiniz.



Buttona çift tıklayın ve Click olayına  aşağıdaki kodları yazınız.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case TextBox1.Text
            Case "google"
                Shell("explorer http://www.google.com.tr")
            Case "Youtube"
                Shell("explorer http://www.youtube.com")
            Case "iF"
                Shell("explorer http://www.ibrahimfirat.net")
            Case "Site Ekle"
                Shell("explorer http://www.alimvar.com")
            Case "Blogger"
                Shell("explorer http://www.bloggertasarimlari.blogspot.com")
            Case "proxy"
                Shell("explorer http://www.world34.blogspot.com")
            Case "Helal Gıda"
                Shell("explorer http://www.helalmarketim.com")
        End Select
    End Sub
End Class

ads