Tuesday, March 16, 2010

VB6 Code - Fungsi Untuk Meng-Cascade Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk Meng-Cascade Seluruh Windows. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:
Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")
Option Explicit

Sub CascadeWindows()
Dim sh As New Shell32.Shell
sh.CascadeWindows
Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
CascadeWindows
End Sub