Get this widget!

Rabu, 29 Mei 2013

INFO HACKING TERBARU 2014

CARA MEMBUAT MEDIA PLAYER DENGAN VB 6.0

Baiklah kali ini ane mau posting cara membuat video player dengan visual basic 6.0 meskipun ini udah gk asing lagi tapi gk ada salahnya kan ane ingetin kembali tapi maaf ya ane cuma mau kasih codenya dan toolnya aja. baiklah buka vibi 6 anda dan tambahkan beberapa komponen dengan cara menekan Ctrl+T dan tambahkan komponen sbb: 1. Microsoft common dialog 6.0 (sp 6) 2. Windows Media Player lansung aja tool yangtadi di inputkan ke form yang standard exe ya broo dan masukkan yang tadi itu windows media player ke form dan commondialog1 dan satu buah textboxt dan satu buah commandbutton dan langsung aja setting properti di sebelah kiri dengan cara sbb: untuk Windowsmediaplayer ganti name = Ms, commondialog1 ganti name = wm kalo udah selesai tinggal codingnya ya bro hem ini kodingnya    : masukkan code ini ke command1 "

 Private Sub Command1_Click()

            wm.ShowOpen

         text1 =wm.FileName

         ms.Url =Text1.Text

End Sub

 Nah kalo udah selesai tinggal Run aja Tekan F5 pada keyboard anda Insya Alloh bisa ke SELAMAT MENCOBA

Tunggu  Postingan Selanjutnya Yang Lebih baru..........................STMIK SZ NW  ANJANI

INFO HACKING TERBARU 2014

CARA MEMBUAT MEDIA PLAYER DENGAN VB 6.0

Baiklah kali ini ane mau posting cara membuat video player dengan visual basic 6.0 meskipun ini udah gk asing lagi tapi gk ada salahnya kan ane ingetin kembali tapi maaf ya ane cuma mau kasih codenya dan toolnya aja. baiklah buka vibi 6 anda dan tambahkan beberapa komponen dengan cara menekan Ctrl+T dan tambahkan komponen sbb: 1. Microsoft common dialog 6.0 (sp 6) 2. Windows Media Player lansung aja tool yangtadi di inputkan ke form yang standard exe ya broo dan masukkan yang tadi itu windows media player ke form dan commondialog1 dan satu buah textboxt dan satu buah commandbutton dan langsung aja setting properti di sebelah kiri dengan cara sbb: untuk Windowsmediaplayer ganti name = Ms, commondialog1 ganti name = wm kalo udah selesai tinggal codingnya ya bro hem ini kodingnya    : masukkan code ini ke command1 "

 Private Sub Command1_Click()

            wm.ShowOpen

         text1 =wm.FileName

         ms.Url =Text1.Text

End Sub

 Nah kalo udah selesai tinggal Run aja Tekan F5 pada keyboard anda Insya Alloh bisa ke SELAMAT MENCOBA