Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Mengoptimalkan Penggunaan Fungsi Shell

| Comments

Salah satu fungsi built-in vb yang mempunyai mempunyai fungsi serba guna yaitu fungsi Shell. Fungsi ini bisa digunakan untuk :

1. Menjalankan file-file Excutible (.exe, .com, .bat de el el)

Contoh menjalankan notepad:

1
2
Dim ret As Double
ret = Shell("notepad.exe", vbNormalFocus)

2. Menjalankan file-file non Executible (.doc, .xls, .mdb, .txt de el el)

Contoh menjalankan file text:

1
2
Dim ret As Double
ret = Shell("notepad.exe c:\tes.txt", vbNormalFocus) 'dg syarat file tes.txt harus sudah ada

Tapi saran saya untuk menjalankan file-file non executible lebih aman menggunakan fungsi API ShellExecute, karena kita tidak perlu menentukan secara spesifik program apa yang digunakan untuk membuka file tersebut.


3. Mengakses fungsi-fungsi control panel

Contoh kita akan menampilkan dialog Display dan otomatis mengaktifkan tab Background

1
2
3
4
5
6
7
8
9
Dim ret As Double
'displays the Background tab selected
ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

'displays the Screen Saver tab selected
'ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

'displays the Appearance tab selected
'ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

Sumber command lainnya untuk mengakses fungsi-fungsi control panel bisa dilihat disini. Selamat mencoba :)

visual basic

Tentang Penulis

Software developer yang fokus mengembangkan aplikasi di atas platform .NET (Desktop, ASP.NET MVC, Web Service) dan Android. Senang mempelajari teknologi baru terutama di bidang OOP, Design Pattern, ORM, Database dan Continuous Integration & Deployment.
Saat ini bekerja sebagai staf IT di salah satu PTS di Yogyakarta sebagai senior software developer. Di waktu luang insya Alloh akan terus berbagi pengalaman di blog ini :)

« Membuat animasi sederhana menggunakan objek timer Meningkatkan daya tarik ListView »

Comments