MESSAGEBOX (MSGBOX)

1. MsgBox (Kotak Pesan)

    Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

2. Bentuk Perintah

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

Keterangan gambar:

Œ1. Judul Pesan

2. MsgBoxStyle

Ž3. Isi Pesan

Ada beberapa MsgBoxStyle, yaitu:

1. MsgBoxStyle.Critical (16)   : Tombol OKE dan icon critical 

2. MsgBoxStyle.Question (32)   : Tombol OKE dan icon question

3.MsgBoxStyle.Exlamation (48)   : Tombol OKE dan icon exlamation

4. MsgBoxStyle.Information (64)   : Tombol OKE dan icon information

5.    MsgBoxStyle.AbortRetryIgnore (2)   :    tombol Abort, Retry dan Ignore.

6.    MsgBoxStyle.OkCancel (1)               :    tombol OK dan Cancel.

7.    MsgBoxStyle.OkOnly (0)                   :    tombol OK.

8.    MsgBoxStyle. RetryCancel (5)          :    tombol Retry dan Cancel.

9.    MsgBoxStyle.YesNo (4)                    :    tombol Yes dan No.

10.  MsgBoxStyle. YesNoCancel (3)        :    tombol Yes, No dan Cancel.

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 sender As 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 program setelah dijalankan sebagai berikut:

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 sender As 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

Tampilan program setelah dijalankan sebagai berikut:

 

Latihan:

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

1. Desain Program sbb:

  

Objek	Name
TextBox1	TxtPas
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

Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

 3. Perintah Program

 Ketik pada Button Proses sebagai berikut :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Select Case Val(TxtJPR.Text)
            Case 500 To 1000
                TxtJPR.Text = "Mug Cantik"
            Case 1001 To 1500
                TxtJPR.Text = "Boneka Cantik"
            Case 1501 To 2000
                TxtJPR.Text = "Kipas Angin"
            Case 2001 To 2500
                TxtJPR.Text = "Dispenser"
            Case Else
                TxtJPR.Text = "Tidak Ada"

        End Select
    End Sub

 Ketik pada Button Tutup sebagai berikut :
 

Private Sub BtnTutup_Click(ByVal sender As 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

Tampilan setelah program dijalankan :

Masukkan Jumlah Point Reward sebagai berikut:

 

Lalu klik pada button proses sebagai berikut :

Kemudian klik pada button tutup sebagai berikut :