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

Visual Basic 6.0 - Memahami Procedure Function

Di bawah ini merupakan beberapa contoh sehingga Anda dapat memahami Statement Function dalam Visual Basic 6.0, untuk memahaminya copy dan pastekan kode di bawah ini:

Private Sub Form_Load() 
    TampilkanPesan_0 'baris ke-1 
    TampilkanPesan_1 "Ini pesan" 'baris ke-2 
    MsgBox TampilkanPesan_2("Ini pesan") 'baris ke-3 
End Sub 
 
'Fungsi ini yang dipanggil dalam baris ke-1 
Function TampilkanPesan_0() 
    MsgBox "Ini pesan" 
End Function 
 
'Fungsi ini yang dipanggil dalam baris ke-2 
Function TampilkanPesan_1(Pesan As String) 
    MsgBox Pesan 
End Function 
 
'Fungsi ini yang dipanggil dalam baris ke-3 
Function TampilkanPesan_2(Pesan As String) As String 
    TampilkanPesan_2 = Pesan 
End Function 

Catatan:
Fungsi pada baris ke-1 tanpa argumen
Fungsi pada baris ke-2 dengan argumen (yang diberi warna merah)
Fungsi pada baris ke-3 disertai argumen & Return Value (yang diberi tanda merah)

Perhatikan cara memanggilnya!

Nah, sekarang Anda telah memahami Statement Function (Fungsi Statement) dalam Visual Basic 6.0. Perlu diketahui:

1. Function merupakan sebagian dari Procedure, mafhumnya seluruh Function merupakan Procedure akan tetapi tidak seluruh Function merupakan Procedure
2. Seluruh kode dalam Visual Basic ditulis dalam tubuh Procedure, Betapapun rumitnya sebuah program tersebut.

READ MORE - Visual Basic 6.0 - Memahami Procedure Function

VB6 Code - .Show Atau .Zorder dalam MDI

Mengetahui jawaban dari pertanyaan, Mana yang akan dipilih .Show atau .Zorder dalam MDI? lebih baik kita praktekan saja dengan cara buat 1 form MDI dan 4 form SDI, 3 form memiliki properties .MDI Child = True kemudian 1 form kemudian 1 form memiliki properties .MDI Child = False. Selanjutnya Copy dan pastekan kode di bawah ini:

Private Sub Command1_Click()
   Form1.ZOrder 0
End Sub

Private Sub Command2_Click()
   Form2.ZOrder 0
End Sub

Private Sub Command3_Click()
   Form3.ZOrder 0
End Sub

Private Sub Command4_Click()
   Form4.ZOrder 0
End Sub

Private Sub MDIForm_Load()
   Form1.Show 'dengan properties .MDI Child = True
   Form2.Show 'dengan properties .MDI Child = True
   Form3.Show 'dengan properties .MDI Child = True
   Form4.Show 'dengan properties .MDI Child = False
End Sub

Sekarang, coba klik masing-masing Button dari mulai Command1 sampai Command4. Eksperimen dari tahap pertama selesai.

Private Sub Command1_Click()
   Form1.Show
End Sub

Private Sub Command2_Click()
   Form2.Show
End Sub

Private Sub Command3_Click()
   Form3.Show
End Sub

Private Sub Command4_Click()
   Form4.Show
End Sub

Private Sub MDIForm_Load()
   Form1.Show 'dengan properties .MDI Child = True
   Form2.Show 'dengan properties .MDI Child = True
   Form3.Show 'dengan properties .MDI Child = True
   Form4.Show 'dengan properties .MDI Child = False
End Sub

Sekarang, coba klik masing-masing Button dari mulai Command1 sampai Command4. Eksperimen dari tahap pertama selesai.

Apa yang bisa kita simpulkan? Yah, Anda benar tidak ada pengaruhnya sama sekali!

Sekarang coba kita beri 1 objek (misalnya TextBox) pada masing-masing form selain form MDI, coba klik masing-masing Button dari mulai Command1 sampai .Command4. Apa yang bisa kita simpulkan?

Selanjutnya kembalikan lagi properties .Show menjadi method .Zorder 0, coba klik masing-masing objek button dari mulai Command1 sampai Command4, Apa yang bisa Anda tarik kesimpulan? yah, benar. Menakjubkan! Apa yang menakjubkan? Saya tidak tahu! sekarang pertanyaannya, Manakah yang akan dipilih .Show atau .Zorder dalam MDI?

READ MORE - VB6 Code - .Show Atau .Zorder dalam MDI

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