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

Memahami KeyWord Option Explicit dalam Visual Basic 6.0

Di bawah ini merupakan contoh kode, sehingga kita dapat memahami Statement Option Explicit dalam Visual Basic 6.0. Untuk keperluan ini, copy dan pastekan kode di bawah ini (tanpa menggunakan Option Explicit).

Private Sub Form_Load()
   i = 1
   MsgBox i
End Sub

Apa yang terjadi, apakah terjadi error? Tidak!
Selanjutnya copy dan pastekan kode di bawah ini (dengan menggunakan Option Explicit):

Option Explicit

Private Sub Form_Load()
   i = 1
   MsgBox i
End Sub

Apa yang terjadi, apakah terjadi error? Ya! dengan error 'Variable not defined' mengapa? karena Visual Basic 6.0 tidak mengenal 'i', 'i' tersebut belum didefinisikan menjadi sebuah variable atau dengan kata lain belum dideklarasikan. Sekarang copy dan pastekan code di bawah ini:

Option Explicit

Private Sub Form_Load()
   Dim i as Integer
   i = 1
   MsgBox i
End Sub

Apakah terjadi error? tidak! sekarang 'i' telah didefinisikan (dideklarasikan) menjadi sebuah variable.

Maka kesimpulannya:
Tanpa menggunakan Option Explicit, semua variable yang tidak terdefinisi secara default akan didefinisikan oleh Visual Basic 6.0 menjadi sebuah variable yang memiliki data type Variant.
Dengan menggunakan KeyWord Option Explicit, akan memaksa seluruh variable yang belum terdefinisi untuk didefinisikan terlebih dahulu, yakni Visual Basic 6.0 tersebut akan dengan senang hati menampilkan pesan error "Variable not defined".

READ MORE - Memahami KeyWord Option Explicit dalam Visual Basic 6.0

Visual Basic 6.0 - Memahami KeyWord Option Base

Di bawah ini merupakan contoh kode sehingga kita bisa memahami Statement Option Base. Untuk keperluan tersebut copy dan pastekan code di bawah ini:

Kode dengan menggunakan Option Base 1

Option Explicit
Option Base 1

Private Sub Form_Load()
 Dim Arr(5) As Integer
 MsgBox LBound(Arr)
End Sub

Terlihat bahwa MsgBox tersebut menampilkan angka 1

Kode dengan tanpa menggunakan Option Base 1

Option Explicit

Private Sub Form_Load()
 Dim Arr(5) As Integer
 MsgBox LBound(Arr)
End Sub

Terlihat bahwa MsgBox tersebut menampilkan angka 0

Maka Kesimpulannya:

1. Dengan menggunakan Option Base 1, maka LBound atau Lower Bound (batas terendah dari sebuah array sama dengan 1)
2. Secara default Visual Basic 6.0 men-set Option Base 0, apabila secara explicit kita tidak menuliskan Option Base 1
3. Option Base tidak bisa diberi nilai yang lebih dari 1

READ MORE - Visual Basic 6.0 - Memahami KeyWord Option Base