facebook mini plus media player menggunakan vb.net 2008

selamat siang semuanya sobat, di postingan kali ini saya akan share membuat aplikasi dari vb.net 2008 yaitu facebook mini plus media player di dalamnya    ..

ini bisa menjadi referensi untuk kalian yang ditugaskan membuat progam dari vb.net  2008

facebook mini+media player

dan ini source codenya :

Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        treMenu.Nodes.Add("Beranda")

        treMenu.Nodes.Add("Pemberitahuan")

        With treMenu.Nodes.Add("Berita")

            .Nodes.Add("Populer")

            .Nodes.Add("Semua Terbaru")

            .Nodes.Add("Status Terbaru")

            .Nodes.Add("Foto Terbaru")

            .Expand()

        End With

        With treMenu.Nodes.Add("Profil")

            .Nodes.Add("Dinding")

            .Nodes.Add("Info")

            .Nodes.Add("Foto")

            .Expand()

        End With

        With treMenu.Nodes.Add("Teman")

            .Nodes.Add("Semua Teman")

            .Nodes.Add("Ulang Tahun")

            .Nodes.Add("Cari Teman")

            .Expand()

        End With

        With treMenu.Nodes.Add("lain-lain")

            .Nodes.Add("games")

            .Nodes.Add("google")

            .Nodes.Add("download")

            .Expand()

        End With

        treMenu.Nodes.Add("Pesan")

        treMenu.Nodes.Add("Acara")

        treMenu.Nodes.Add("Catatan")

        treMenu.Nodes.Add("Grup")

        treMenu.Nodes.Add("Situs")

        treMenu.Nodes.Add("Pengaturan")

        webMain.Navigate("http://m.facebook.com") 'halaman pertama yg dibuka

    End Sub

    Private Sub treMenu_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treMenu.AfterSelect

        Select Case e.Node.Text

            Case "Beranda" : webMain.Navigate("http://m.facebook.com/home.php")

            Case "Pemberitahuan" : webMain.Navigate("http://m.facebook.com/notifications.php")

            Case "Berita" : webMain.Navigate("http://m.facebook.com/stories.php")

            Case "Populer" : webMain.Navigate("http://m.facebook.com/stories.php?tab=top")

            Case "Semua Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php")

            Case "Status Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php?tab=status")

            Case "Foto Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php?tab=photos")

            Case "Profil" : webMain.Navigate("http://m.facebook.com/profile.php")

            Case "Dinding" : webMain.Navigate("http://m.facebook.com/profile.php?v=wall")

            Case "Info" : webMain.Navigate("http://m.facebook.com/profile.php?v=info")

            Case "Foto" : webMain.Navigate("http://m.facebook.com/profile.php?v=photos")

            Case "Teman" : webMain.Navigate("http://m.facebook.com/friends.php")

            Case "Semua Teman" : webMain.Navigate("http://m.facebook.com/friends.php")

            Case "Ulang Tahun" : webMain.Navigate("http://m.facebook.com/birthdays")

            Case "Cari Teman" : webMain.Navigate("http://m.facebook.com/findfriends.php")

            Case "Games" : webMain.Navigate("https://apps.facebook.com/texas_holdem/index.php")

            Case "google" : webMain.Navigate("https://www.google.com/webhp?hl=id&tab=nw")

            Case "download" : webMain.Navigate("http://www.4shared.com/")

            Case "Pesan" : webMain.Navigate("http://m.facebook.com/messages")

            Case "Acara" : webMain.Navigate("http://m.facebook.com/eventhome.php")

            Case "Catatan" : webMain.Navigate("http://m.facebook.com/notes")

            Case "Grup" : webMain.Navigate("http://m.facebook.com/grouphome.php")

            Case "Situs" : webMain.Navigate("http://m.facebook.com/sites.php")

            Case "Pengaturan" : webMain.Navigate("http://m.facebook.com/settings")

        End Select

    End Sub

    Private Sub webMain_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webMain.DocumentCompleted

        btnBack.Enabled = webMain.CanGoBack

        btnForward.Enabled = webMain.CanGoForward

    End Sub

    Private Sub webMain_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles webMain.NewWindow

        webMain.Navigate(webMain.StatusText)

        e.Cancel = True 'memblokir jendela baru

    End Sub

    Private Sub webMain_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webMain.ProgressChanged

        If e.CurrentProgress = 0 And e.MaximumProgress = 0 Then

            btnBack.Enabled = webMain.CanGoBack

            btnForward.Enabled = webMain.CanGoForward

            prgWeb.Visible = False

        Else

            prgWeb.Visible = True

            prgWeb.Maximum = e.MaximumProgress

            prgWeb.Value = e.CurrentProgress

        End If

    End Sub

    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

        Select Case e.ClickedItem.Text

            Case "Kembali" : If webMain.CanGoBack Then webMain.GoBack()

            Case "Kedepan" : If webMain.CanGoForward Then webMain.GoForward()

            Case "Refresh" : webMain.Refresh()

            Case "Berhenti" : webMain.Stop()

        End Select

    End Sub

    Private Sub txtCari_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCari.KeyDown

        If e.KeyCode = 13 Then 'enter yg ditekan

            e.SuppressKeyPress = True

            txtCari.Text = Trim(txtCari.Text)

            If txtCari.Text <> "" Then webMain.Navigate("http://m.facebook.com/search/?query=" & Replace(txtCari.Text, " ", "+"))

        End If

    End Sub

    Private Sub txtCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.Click

    End Sub

    Private Sub AxWindowsMediaPlayer1_Enter_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter

        OpenFileDialog1.ShowDialog()

        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

    End Sub

End Class

hatur nuwun, sekian postingan untuk kali ini sampai jumpa   ..



blog www.deafaroz.blogspot.com BEBAS DI COPY PASTE posting ini di buat untuk memberikan pengetahuan kepada yang belum mengetahuinya,jadi tidak ada larangan untuk tidak mengcopy di blog ini,trimakasih untuk yang udah mau mengcopy di blog ini,sebarkan ilmu semampu anda dengan ikhlas .