VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan

Artikel di bawah ini kami beri judul Tunggu hingga Aplikasi selesai dijalankan, maksudnya menjalankan sebuah aplikasi kemudian kode yang berada sesudahnya menunggu (tidak dieksekusi [dijalankan]) sebelum aplikasi tersebut ditutup terlebih dahulu. Bagaimana implementasinya dalam pengkodean Visual Basic 6.0, copy dan pastekan kode di bawah ini kemudian buatlah 1 objek CommandButton.

Fungsi tunggu hingga aplikasi selesai dijalankan

Function WaitUntilFinish(sCommand, WindowsStyle, Wait As Boolean)
   Dim wsh As New IWshRuntimeLibrary.WshShell
   wsh.Run "notepad.exe", 1, True
   'code di bawah akan dijalankan apabila notepad telah ditutup.
   Set wsh = Nothing
End Function

Cara penggunaan fungsi tunggu hingga aplikasi selesai dijalankan

Private Sub Command1_Click()
   Call WaitUntilFinish("notepad.exe", 1, True)
   MsgBox "Kode ini dijalankan apabila notepad di tutup"
End Sub

READ MORE - VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan

VB6 Code - Cara Membuat Object Pada Saat Design Time

Artikel ini menjelaskan cara membuat object pada saat design time, tentu saja mudah, tetapi bukan cara membuat yang seperti "itu" yang dimaksud, ini melalui pengkodean (coding). Objek yang kita buat adalah CommandButton, bagaimana dengan objek lainnya? Anda qiyaskan saja dengan cara mengganti "CommandButton" dengan nama objek yang Anda kehendaki misalnya "TextBox" dan sebagainya. Adapun langkah-langkah membuat object pada saat design time:

• Buat project Add-Ins yang terdapat pada template
• Hapus seluruh kode yang terdapat pada frmAddIn
• Gantikan dengan kode di bawah ini:

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub CancelButton_Click()
   Connect.Hide
End Sub

Private Sub OKButton_Click()
   Dim frm As VBForm
   Dim ctl As VBControl
   Dim i As Integer
  
On Error GoTo ErrHandler

   Set frm = VBInstance.SelectedVBComponent.Designer
       For i = 1 To 255
          Set ctl = frm.VBControls.Add("CommandButton")
       Next
   Set frm = Nothing
   Set ctl = Nothing
   Exit Sub
  
ErrHandler:

   MsgBox Err.Description
  
End Sub

• Compile kodenya dengan nama "MyAddIn.dll" (secara otomatis VB6.0 akan meregister file tersebut).
• Tutup Project setelah Anda menyimpannya
• Buka Project baru
• Klik menu Add-Ins, maka disana akan terdapat sub menu yang bernama "My AddIn".
• Selanjutnya klik Sub menu "My AddIn" maka akan terbentuklah objek CommandButton dengan jumlah 254, mengapa 254 tidak 255 seperti yang terdapat dalam kode?

Apa yang bisa kita petik dari kode-kode di atas, tentu saja banyak.

READ MORE - VB6 Code - Cara Membuat Object Pada Saat Design Time

VB6 Code - Cara Mengakses Registry Dengan Mudah

Di bawah merupakan contoh mengakses registry dengan mudah, yang termasuk akses disini: baca, tulis, hapus registry. Sebelum menjalankan kodenya kita harus mereferensi pada "Microsoft Script Host Object Model" atau WSHOM.OCX yang biasa terdapat pada directory %SystemRoot%\System32\Wshom.ocx.

Selain menggunakan wshom.ocx, kita juga dapat membuatnya menggunakan fungsi-fungsi Windows API.

'Fungsi dan konstanta mengakses registry dengan mudah

Option Explicit

Public Const HKEY_LOCAL_MACHINE As String = "HKLM"
Public Const HKEY_CURRENT_USER As String = "HKCU"
Public Const HKEY_CLASSES_ROOT As String = "HKCR"

Public Const REG_BINARY As String = "REG_BINARY"
Public Const REG_DWORD As String = "REG_DWORD"
    
Dim wsh As New IWshRuntimeLibrary.WshShell

Public Function RegDelete(sName As String)
    wsh.RegDelete sName
End Function

Public Function RegRead(sName As String)
    wsh.RegRead sName
End Function

Public Function RegWrite(sName As String, Value, Optional stype)
    wsh.RegWrite sName, Value, stype
End Function

Contoh mengakses registry dengan mudah

Option Explicit

Private Sub Form_Load()
    RegWrite HKEY_LOCAL_MACHINE & "\BYNARY", 1, REG_BINARY
    RegWrite HKEY_LOCAL_MACHINE & "\DWORD", 1, REG_DWORD
    RegWrite HKEY_LOCAL_MACHINE & "\STRING", 1
End Sub

READ MORE - VB6 Code - Cara Mengakses Registry Dengan Mudah

Visual Basic 6 - Membuat Related Documents Pada Project

Artikel kali ini membahas mengenai 'Membuat Related Documents pada Project'.

Apa yang dimaksud Related Docoments? Coba lihat screen Shot ini. Nah, sekarang Anda faham apa yang dimaksud Related Documents itu. Selanjutnya:

Langkah-langkah membuat related documents pada project:

1. Klik menu project
2. Klik menu AddFile
3. Beri tanda centang pada Add As Related Document
4. Masukan file-file yang menurut Anda berhubungan dengan project yang sedang dibuat
5. Selesai

Semoga membantu bagi yang belum mengetahui mengenai tata cara membuat related documents pada project.

READ MORE - Visual Basic 6 - Membuat Related Documents Pada Project