Visual Basic Messagebox

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

  

Bentuk Perintah

MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)

 

 

Keterangan gambar:

1. Judul Pesan 
2. MsgBoxStyle  
3. Isi Pesan

Contoh 1:

Membuat Form Login dengan tampilan sbb:

Objek	Name
TextBox1	TxtPas
Button1	BtnProses

Alur Program:

-    Input Password.

-    Klik Proses

-    Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Benar

·    Judul Pesan  :  Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Information.

-    Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:

·    Isi pesan         :  Password yang Anda Masukkan Salah”

·    Judul Pesan  : Info Login

·    MsgBoxStyle  :  Tombol OK dengan gambar icon Critical.

Kode Program:

Kode program diketik pada Objek BtnProses (Tombol Proses)  sbb:

Private Sub BtnProses_Click(ByVal senderAs System.Object, ...

    If TxtPas.Text = "rahasia" Then

        MsgBox("Password yang Anda Masukkan Benar",

               MsgBoxStyle.Information,"Info Login")

    Else

        MsgBox("Password yang Anda Masukkan Salah", 16, "Info")

    End If  

End Sub

 ↓

Tampilan Pasword Salah

 ↓

Tampilan Pasword Benar

Contoh 2:

Tambah tombol Tutup pada form Login, sehingga tampilan form menjadi seperti berikut:

Buat Perintah untuk Tombol Tutup menggunakan MessageBox dengan tampilan sbb:

-    Isi Pesan         :   “Apakah Anda ingin menutup Form Login ini?“

-    MsgBoxStyle   :   Yes dan No dengan icon Question.

-    Judul                :   “Tutup Form Login“

Alur Program:

Jika diklik tombol Yes, maka Program akan ditutup. Jika diklik tombol No, maka Program tidak akan ditutup.

Perintah Program:

Private Sub BtnTutup_Click(ByVal senderAs System.Object, ...

    Dim pesan As String

    pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32,"Tutup Program")

    If pesan = vbYes Then

        End

    Else

        Exit Sub

    End If

End Sub

Klik Tutup, maka akan Muncul seperti gambar

 ______________________________________________________________

Latihan:

Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.

1. Desain Program sbb:

Objek	Name
TextBox1	TxtJPR
Button1	BtnProses
Button2	BtnTutup

  

2. Alur Program

     -    Input Jumlah Point Reward.

     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.         

          Tabel Hadiah sebagai berikut:                    

Point Reward	Hadiah
500 – 1000	Mug Cantik
1001 – 1500	Boneka Cantik
1501 – 2000	Kipas Angin
2001 – 2500	Dispenser

-     Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:

·       Isi Pesan          :    Anda ingin menutup Program ini?

·       MsgBoxStyle   :    OK dan Cancel dengan icon Question.

·       Judul                :    Tutup Program