Membuat browser sederhana dengan visual basic

Pada Artikel ini membahas pembuatan Browser sederhana dengan visual basic dan cara mendesain form dan Penulisan Source code program membuat Web Seacrh. Bermanfaat untuk praktikum atau latihan serta pengembangan Web Seacrh, serta dapat di pelajari untuk yang masih belajar programming visual basic karena di sertakan dengan desain, Source code, dan Properties dalam membuatnya.

1. Buatlah Desain Form Web Seacrh yang terdiri dari 1 form yaitu : form Menu utama. Dapat di jadikan referensi jika masih bingung dengan desainya.

2. Aturlah properties Ke- tiga form tersebut seperti contoh di bawah

Properties membuat browser dengan visual basic

3. Penulisan kode program

yang berminat dengan source code nya silahkan ambil di group Tutorial Visual Basic Indonesia

Letakan pada bagian Declaration

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1
Private Const HWND_TOPMOST As Long = -1

Letakan pada Form_load (FrmMain)

Private Sub Form_Load()
    cmbWeb.ListIndex = 0

    'form selalu di depan
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Letakan pada Label3

Private Sub Label3_Click()
ShellExecute 0, "open", "http://www.visualbasicku.com", "", "", vbMaximizedFocus
End Sub

Letakan pada Tombol Search/cari ( btnSearch)

Private Sub btnSearch_Click()
        If Trim(txtText.Text) = "" Then Exit Sub

        On Error Resume Next

        Dim t As String
        t = txtText.Text

        Dim s As String

        Select Case cmbWeb.Text
        ' Daftar list (catatan : tidak bisa di rubah)
            Case "Tutorial "
                s = "http://www.visualbasicku.com/search?q=" & t
            Case "Google"
                s = "http://www.google.com/search?q=" & t
            Case "Yahoo"
                s = "http://id.search.yahoo.com/search?p=" & t
            Case "Bing"
                s = "http://www.bing.com/search?q=" & t
            Case "Facebook"
                s = "https://www.facebook.com/search/results.php?q" & t
            Case "Twitter"
                s = "https://twitter.com/search/" & t
            Case "Kaskus"
                s = "http://www.kaskus.co.id/search_result.php?q=" & t
            Case "YouTube"
                s = "http://www.youtube.com/results?search_query=" & t
            Case "Wikipedia"
                s = "http://id.wikipedia.org/w/index.php?search=" & t
            Case "4Shared"
                s = "http://search.4shared.com/q/1/" & t
        End Select

        ShellExecute 0, "open", s, "", "", vbMaximizedFocus
End Sub