VB6 Code - Fungsi Untuk Menampilkan Dialog Shutdown

Di bawah ini merupakan fungsi VB6 untuk menampilkan dialog shutdown. 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 ShowShutDown()
    Dim sh As New Shell32.Shell
    sh.ShutdownWindows
    Set sh = Nothing
End Sub

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

READ MORE - VB6 Code - Fungsi Untuk Menampilkan Dialog Shutdown

VB6 Code - Fungsi Untuk Me-Restore Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk Me-Restore 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")

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

'Contoh Penggunaan Procedure Untuk Me-Minimize Seluruh Windows
Private Sub Form_Load()
   RestoreAll
End Sub

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

VB6 Code - Fungsi Untuk Menampilkan BrowseForFolder

Di bawah ini merupakan fungsi VB6 untuk menampilkan BrowseForFolder. 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
Dim Folder As Shell32.Folder

Menjadi:

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

Function BrowseForFolder(Title As String, Optional RootFolder = "") As String
    On Error Resume Next
    Dim sh As New Shell32.Shell
    Dim Folder As Shell32.Folder
    Set Folder = sh.BrowseForFolder(Me.hwnd, "Open", 1, RootFolder)
    SelectFolder = Folder.Items.Item.Path
    set sh = nothing
    set Folder = nothing
End Function

'Berikut contoh penggunaan Fungsi Untuk Menampilkan BrowseForFolder
Private Sub Command1_Click()
   'jika ingin mengeksplore "c:\" saja
    MsgBox SelectFolder("Open Folder", "c:\")
   'Jika ingin mengeksplore directory keseluruhan
    MsgBox SelectFolder("Open Folder")
End Sub

READ MORE - VB6 Code - Fungsi Untuk Menampilkan BrowseForFolder

VB Code - Fungsi Untuk Mendapatkan Directory My Documents

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory My Documents.

'Fungsi untuk mendapatkan directory My Documents:
Function GetDocumentsPath() As String
    GetDocumentsPath = Environ("USERPROFILE") & "\My Documents"
End Function

'Contoh penggunaan Fungsi untuk mendapatkan directory My Documents:
Private Sub Form_Load()
    MsgBox GetDocumentsPath
End Sub

READ MORE - VB Code - Fungsi Untuk Mendapatkan Directory My Documents