Cara Membuat Web Browser Dengan Tab Menggunakan Visual Basic 6 ~ TuTorial Ku UnTuk Mu

kali ini Tutorial Ku Untuk Mu akan Mengajarkan cara membuat Web Browser Dengan Tab Menggunakan VB6, Oke mari kita Simak Tutorial Dari Saya,
Pertama tama
Siapkan Component:
[-] 1 buah Command button -> mao pake SKIN Button biar lebih menarik DISINI
[-] 1 label
[-] 1 buah combo box
[-] 1 webBrowser { Microsoft Internet Controls }
[-] 1 buah Tab Browser pilih SSTab { Microsoft Tabbed Dialog Control 6.0 }

Buat Sebuah 1 form Lalu Atur Component Di atas Seperti di bawah ini,

nb : Web Browsernya Cukup Di taruh Di Tab 0 di dalam tab 0 atur index pada Web Browser Menjadi 0

nb: Saya membuat 2 button di atas 1 button add tab dan 1 lagi hanya button link jadi cukup 1 button saja yaitu button Add tab,

(saya menggunakan button Skin pada button add tab)

Setelah oke Sekarang Kita Memasukkan Codenya, Sebelumnya kita atur Caption pada component

Component | Caption | Name

WebBrowser1 - - WB1

Command1 - Add Tab - cbAddTab

Label1 - TERSERAH -

Combo1 - Google -

Oke Sekarang Bagian Memasukkan Codenya,

Sekarang Copy Semua Code di bawah ini :

===========================================================

' in declarations
Public nnTABS As Integer

' the sub
Private Sub cbAddTab_Click()
    With SSTab1
        ' 1. first time it is clicked - sets up the controls
        If nnTABS = 0 Then
            nnTABS = nnTABS + 1
            .Visible = True
            .Top = 1440
            .Left = 0
            .Width = 20295
            .Height = 8655
            .Tabs = 1
            .TabsPerRow = 20
            .TabMaxWidth = 1000
            With WB1(0)
                .Top = 1000
                .Left = 120
                .Height = 8295
                .Width = 20295
                .Visible = True
                .Navigate2 "google.com"
            End With
        ' 2 subsequent clicks -- adds new tab and browser instance
        ElseIf nnTABS > 0 Then
            nnTABS = nnTABS + 1
            With SSTab1
                .Tabs = nnTABS
                .Tab = nnTABS - 1
            End With
            Load WB1(nnTABS - 1)
            With WB1(nnTABS - 1)
                .Container = SSTab1
                .Top = 1000
                .Left = 120
                .Height = 8295
                .Width = 20295
                .Visible = True
                If nnTABS = 2 Then
                    .Navigate2 "google.com"
                ElseIf nnTABS = 3 Then
                    .Navigate2 "google.com"
                ElseIf nnTABS = 4 Then
                    .Navigate2 "google.com"
                End If
            End With
        End If
    End With
End Sub

===========================================================

Cara memasukkan codenya pertama Klik 2x pada bagian form atau klik kanan pada form lalu klik View Code, nah lalu paste kan Code di atas
Nb : tanda warna merah pada Code di atas adalah Ukurun SStab1 harus Sesuai dengan ukuran di code di atas dari weight,height,top,left

Oke Selesai jalankan Pencet F5 ada masalah silahkan comment di bawah :)

Ditulis Oleh : Syariƒ™ ~ Tips dan Trik Blogspot

Sobat sedang membaca artikel tentang Cara Membuat Web Browser Dengan Tab Menggunakan Visual Basic 6. TuTorial Ku UnTuK Mu™ Memperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya

<a href="http://sariptrik.blogspot.com/2014/08/cara-membuat-web-browser-dengan-tab.html" target="_blank">Cara Membuat Web Browser Dengan Tab Menggunakan Visual Basic 6</a>