MESSAGE BOX

MESSAGE BOX

Mesagge Box atau Kotak Pesan yang sering digunakan pada program sebagai interaksi kepada pengguna untuk memberikan laporan atau imformasi yang ada .

MsgBox (kotak pesan) adalah sebuah kotak dialog yang dapat digunakan dalam Excel VBA untuk menampilkan informasi kepada pengguna program Anda.

MessageBox pada VB.Net berisi sebuah message akan ditampilkan tepat diatas sebuah form dan akan hilang ketika mendapat respon dari user dengan menklik tombol yang ada pada message box tersebut atau Kotak Pesan yang sering digunakan pada program sebagai interaksi kepada pengguna untuk memberikan laporan atau imformasi yang ada .
Pada Visual Basic , cara menggunakan Message Box sangatlah mudah, yaitu dengan memanggil fungsi tercandang berupa MsgBox.

Bentuk Perintah

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

 contoh:

Membuat Form Login dengan tampilan sbb:

Objek	Name
TextBox1	TxtPas
Button1	BtnProses

Alur Program:

1.   Input Password.

2.   Klik Proses

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

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

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

maka akan seperti di bawah ini: