VB6 Code - Fungsi Untuk Me-Minimize Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk me-minimize 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 MinimizeAll()
    Dim sh As New Shell32.Shell
    sh.MinimizeAll
    Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
    Call MinimizeAll
End Sub

READ MORE - VB6 Code - Fungsi Untuk Me-Minimize Seluruh Windows

VB6 Code - Fungsi Tile Vertically Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk menjadikan Tile Vertically 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 TileVertically()
    Dim sh As New Shell32.Shell
    sh.TileVertically
    Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
    Call TileVertically
End Sub

READ MORE - VB6 Code - Fungsi Tile Vertically Seluruh Windows

VB6 Code - Fungsi Tile Horizontally Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk menjadikan Tile Horizontally 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 TileHorizontally()
    Dim sh As New Shell32.Shell
    sh.TileHorizontally
    Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
    Call TileHorizontally
End Sub

READ MORE - VB6 Code - Fungsi Tile Horizontally Seluruh Windows

VB6 Code - Menampilkan Explorer Dengan Directory Tertentu

Di bawah ini merupakan fungsi VB6 untuk menampilkan explorer dengan directory tertentu. 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")

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

'Contoh penggunaan
Private Sub Command1_Click()
    Call Explore("C:\")
End Sub

READ MORE - VB6 Code - Menampilkan Explorer Dengan Directory Tertentu