MESSAGEBOX (MSGBOX) _ Modul - 6

MESSAGEBOX (MSGBOX)

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah

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

 

Keterangan gambar:

• ŒJudul Pesan 
• MsgBoxStyle
• Isi Pesan

Ada beberapa MsgBoxStyle, yaitu:

1. MsgBoxStyle.Critical (16) : tombol OK dan gambar icon Critical
2. MsgBoxStyle.Question (32) : tombol OK dan gambar icon Question
3. MsgBoxStyle.Exclamation (48) : tombol OK dan gambar icon Exclamation
4. MsgBoxStyle.Information (64) : tombol OK dan gambar 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:

1. Membuat Form Login dengan tampilan sbb:

2. 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.

3. Kode Program
Public Class Form2

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If TxtPasword.Text = "MARTINUS" Then
            MsgBox("Password yang Anda Masukkan Benar", MsgBoxStyle.Information, "Info Login")
        Else
            MsgBox("Password yang Anda Masukkan Salah", 16, "Info")
        End If
    End Sub
End Class
 4. Jalankan Program.
Hasil setelah program di jalankan

Contoh 2:

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

2. 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“

3. Alur Program:

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

4. Kode Program
Public Class Form2

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If TxtPasword.Text = "MARTINUS" Then
            MsgBox("Password yang Anda Masukkan Benar", MsgBoxStyle.Information, "Info Login")
        Else
            MsgBox("Password yang Anda Masukkan Salah", 16, "Info")
        End If
    End Sub

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        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
End Class

5. Jalankan program.
Tampilan setelah program di jalankan