Source Code Visual Basic Command Button OPEN File .exe

Hallo yo yo yo Galih Cyber kali ini masih membicarakan tentang Visual Basic nih ^_^ memang lagi demen demennya nih mainan VB jadi posting 2x berturut turut tentang Visual Basic ya

Ok langsung aja ke Tutorialnya
Pertama Teman teman tentunya harus Membuat Command Button nya dong
setelah membuat Command Button masukan Source Codenya di bawah ini :

Dim Result As Long
Result = Shell("NAMAFILE.exe", vbNormalFocus)

 Nah di NAMAFILE itu teman teman isikan File .exe nya, atau misalkan Kalian menempatkan File .exe nya bukan di 1 Folder kalian tinggal kasi Alamat Foldernya misalkan :

C://AplikasiGalih/Galih.exe
 
Nah berarti Teman teman tinggal masukan ke NAMAFILE.exe nya contoh :

Dim Result As Long
Result = Shell("C://AplikasiGalih/Galih.exe", vbNormalFocus)

Sudah Jelas kan?
Sip selamat Mencoba Kawan!

Cara Membuat Aplikasi Website kita di Visual Basic 6.0

Membuat Aplikasi Website kita sendiri Menggunakan Visual Basic 6

DUH DUH UDAH LAMA YA GAK POSTING, GAK KERASA GALIH CYBER YG DULU DIBUAT SEJAK ANE MASIH SMP SEKARANG SAYA SUDAH MAU MASUK KE PERGURUAN TINGGI NIH, Nah Berhubung saya ini lagi suka sukanya coding, saya mau Membagikan salah satu ilmu coding nih! :D hehehe

 Mungkin sudah ada yang tau cara buat Web Browser pada VB 6, tapi bagi yang belum tau nih gw kasih tutorial nya.karena saya ada tugas jadi saya posting lagi  :D

Yang perlu disiapkan yaitu Yang penting ada komputer sama Visual Basic 6.

1. Buat project baru, lalu ke “Project” pada menu.
2. Klik Menu Project lalu Klik components, dan cari component “Microsoft Internet Controls,” checklist dan klik “Apply” lalu “Close.”
3. Klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
4. Buat “textbox” , ini akan menjadi URL bar anda.
5. Buat 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh. (Ubah captions sesuai urutan yaitu Cmdgo, Cmdback, CmdForward, dan CmdRefresh).

Ok sekarang kita masuk ke coding:
Tombol Back

 Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Tombol Forward

 Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Tombol Go

 Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Tombol Refresh

 Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub

Dibawah ini adalah source code untuk Form kita

 Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.domainwebsitekamu.com")
End Sub

Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.

nah ini Source Code untuk WebBrowser kita

 Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub

Selesai deh, mudah bukan?