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...

READ MORE - VB6 Code - Fungsi Untuk Menampilkan BrowseForFolder

Contoh Menggunakan CommonDialog Open Save As

'Contoh untuk CommonDialog OpenPrivate Sub Command1_Click() On Error GoTo ErrHandler Dim strPath As String With CommonDialog1 .CancelError = True .Flags = cdlOFNHideReadOnly .Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch...

READ MORE - Contoh Menggunakan CommonDialog Open Save As

Contoh CommonDialog - Print Dengan Range Tertentu

Option ExplicitPrivate Sub Command1_Click() Dim myDatabase As Database Dim rsMyTable As Recordset Dim i As Integer Dim j As Integer Dim startpage As Integer CommonDialog1.Max = 3 CommonDialog1.FromPage = 1 CommonDialog1.ToPage...

READ MORE - Contoh CommonDialog - Print Dengan Range Tertentu

Cara Menggunakan CommonDialog Printer

Private Sub Command1_Click() Dim BeginPage, EndPage, NumCopies, iOn Error GoTo ErrHandler With CommonDialog1 .CancelError = True .ShowPrinter BeginPage = .FromPage EndPage = .ToPage NumCopies = .Copies End...

READ MORE - Cara Menggunakan CommonDialog Printer

CommonDialog Help, Cara Menggunakannya

Private Sub Command1_Click() With CommonDialog1 .HelpFile = "mis.chm" .HelpCommand = cdlHelpContents .ShowHelp End WithEnd ...

READ MORE - CommonDialog Help, Cara Menggunakannya

CommonDialog Font, Cara Menggunakannya

Private Sub Command1_Click() With CommonDialog1 .CancelError = True On Error GoTo ErrHandler .Flags = cdlCFEffects Or cdlCFBoth .ShowFont Text1.Font.Name = .FontName Text1.Font.Size = .FontSize Text1.Font.Bold...

READ MORE - CommonDialog Font, Cara Menggunakannya

CommonDialog Color, Cara Menggunakannya

Private Sub Command1_Click() With CommonDialog1 .CancelError = True On Error GoTo ErrHandler .Flags = cdlCCRGBInit .ShowColor Form1.BackColor = .Color End With Exit SubErrHandler:End ...

READ MORE - CommonDialog Color, Cara Menggunakannya

Menampilkan Dialog Regional Setting Menggunakan VB6

Private Sub Command1_Click() Call Shell("RunDLL32.exe Shell32.dll Control_RunDLL InetCpl.cpl", vbNormalFocus)End ...

READ MORE - Menampilkan Dialog Regional Setting Menggunakan VB6

Bagaimana cara menjalankan Speech Properties Dialog - VB6

Karena Speech Properties dialog tidak terdapat dalam Windows\System32 maka untuk memanggilnya, Kita memerlukan kode di bawah: Option Explicit Private Sub Command1_Click() Shell "rundll32.exe shell32.dll,Control_RunDLL " & Chr(34) & "c:\program...

READ MORE - Bagaimana cara menjalankan Speech Properties Dialog - VB6

VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

Di bawah ini merupakan fungsi VB6 untuk melakukan konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar memiliki sifat mudah digunakan kembali, karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:Option ExplicitPublic...

READ MORE - VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

VB6 Code - Menampilkan Dialog Properties Sebuah File

Di bawah ini merupakan fungsi VB6 untuk menampilkan kotak dialog properties sebuah file.Option ExplicitType SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory...

READ MORE - VB6 Code - Menampilkan Dialog Properties Sebuah File

VB6 Code - Fungsi API Untuk Browse For Folder

Mengenai fungsi-fungsi API untuk menampilkan dialog browse for folder dengan menggunakan kode-kode VB6:Option ExplicitPrivate Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const MAX_PATH = 260Private Declare Function SHBrowseForFolder...

READ MORE - VB6 Code - Fungsi API Untuk Browse For Folder

VB6 Code - Menampilkan Kotak Dialog Shutdown

Di bawah ini merupakan fungsi API untuk menampilkan kotak dialog shutdown menggunakan kode VB6. Fungsi yang digunakan adalah SHShutDownDialog yang terdapat pada Shell32.dll.Option ExplicitPrivate Declare Function SHShutDownDialog Lib "shell32" Alias...

READ MORE - VB6 Code - Menampilkan Kotak Dialog Shutdown

Data Link Properties Dialog Box Cara Menampilkannya

'simpan kode di bawah pada modul Option Explicit Public Function getADOConnectionString(Optional ByVal cnStringToEdit As String = "", Optional sPrePromptUserMessage As String = "") As String Dim sActivity As String Dim dl As Object Dim cn As...

READ MORE - Data Link Properties Dialog Box Cara Menampilkannya

VB6 Code - Menampilkan Dialog Open With

Di bawah ini merupakan kode VB6 untuk menampilkan Dialog Open With. Bagaimanakah caranya:Option ExplicitPrivate Sub ShowOpenWith(Filename As String) Dim x As Long x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & Filename)End SubContoh...

READ MORE - VB6 Code - Menampilkan Dialog Open With