Penggunaan Message Box (MSGBOX) pada Microsoft Visual Studio 2008

➻ 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 ➝ Keterangan Password
2. MsgBoxStyle ➝ Logo Silang / X dan "OK"
3. Isi Pesan ➝ Password yang Anda Masukkan Salah

 ➻ Beberapa MessageBox Style:

⏭ Contoh 1:  

Membuat Form Login dengan tampilan sbb:

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

✯ Perintah 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 

Private Sub txtpas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpas.KeyPress

If e.KeyChar = Chr(13) Then

'btnproses.Focus()

btnproses_Click(sender, New System.EventArgs())

End If

End Sub

⏭ Contoh 2:

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

✯ 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

• Tweet
• Share
• Share