Private Sub Form_Load()Catatan:
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
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:
- Function merupakan sebagian dari Procedure, mafhumnya seluruh Function merupakan Procedure akan tetapi tidak seluruh Function merupakan Procedure
- Seluruh kode dalam Visual Basic ditulis dalam tubuh Procedure, Betapapun rumitnya sebuah program tersebut.