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

VB6 Code - Fungsi Tile Vertically Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk menjadikan Tile Vertically 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 TileVertically()
    Dim sh As New Shell32.Shell
    sh.TileVertically
    Set sh = Nothing
End Sub

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

READ MORE - VB6 Code - Fungsi Tile Vertically Seluruh Windows