Contoh Massage Box

Gambar Contoh program menggunakan MessageBox

Kemudian klik view code dan ketikan kode berikut ini :

Private Sub Command1_Click()

 Dim testMsg As Integer

   testMsg = MsgBox("Silahkan Anda Klik Tombol", 1, "Test")

   If testMsg = 1 Then

      Label1.Caption = "Anda meng-klik tombol OK"

   Else

      Label1.Caption = "Anda meng-klik tombol Cancel"

   End If

End Sub

Kode program di atas menggunakan Style Value untuk menampilkan tombol pada message. Kode program berikut menggunakan Konstanta untuk menmpilkan tombol pada message. Coba Anda ketikkan di Command2_Click dan lihat hasilnya!

Private Sub Command2_Click()

 Dim testMsg As Integer

   testMsg = MsgBox("Silahkan Anda Klik Tombol",vbOKCancel, "Test")

   If testMsg = vbOK Then

      Label1.Caption = "Anda meng-klik tombol OK"

   Else

      Label1.Caption = "Anda meng-klik tombol Cancel"

   End If

End Sub

 

 Gambar Tampilan pesan menggunakan MessageBox