Fungsi MsgBox & InputBox

Kotak pesan (Message Box) : untuk menampilkan pesan yang dapat digunakan sebaai input/output aplikasi.

Sintax : msgbox(prompt,parameter,judul)
Contoh: msgbox(Hai,vbokOnly,test)


Fungsi MsgBox ini bisa dipakai menggunakan 2 parameter sekaligus.
Macam-macam parameter dalam vb:
1. vbokOnly (0)
2. vbokCancel (1)
3. vbYesNoCancel (3)
4. vbCritical (16)
5. vbExclamation (48)
6. vbInformation (64)
7. vbQuestion dan lain-lain

Kotak input (Input Box) : untuk menampilkan kotak masukan dan menyimpan text.
Sintax : inputbox (promt,judul,xpos,ypos)
Contoh : inputbox (“masukkan nama Anda:”,”input”,3000,2000)

Contoh Program
>> Form MsgBox
>> Code

Private Sub Command1_Click()
Pesan = MsgBox("Bukalah Pintu Hatimu Untukku??", vbYesNo, "Konfirmasi Cinta?")
If Pesan = vbYes Then
Label1.Caption = "Hidup ini memang indah"
Else
Label1.Caption = "Bunuh diri aja lhoooch"
End If
End Sub

>> Form InputBox

>> Code

Private Sub Command1_Click()
'buat input box dengan variabel coba
coba = InputBox("Masukkan Nama Anda:", "Masukkan Nama")
'maka text1 akan menampilkan pesan input box
Text1.Text = "Hallo " + coba
'buat message box
MsgBox "Hallo " + coba, vbOKOnly, "Pesan Terakhir:"
End Sub