Membuat Pesan / Message Box di VB.Net

03 Dec 2017 oleh Fandi Ahmad Saktianto, pada VB.Net

membuat-pesan--message-box-di-vbnet

Pernahkan anda tidak sengaja menghapus data di aplikasi karena tidak ada pesan pemberitahuan konfirmasi penghapusan data? Jika iya, seharusnya aplikasi tersebut harus dilengkapi dengan pesan pemberitahuan agar terhindar dari kejadian tersebut.

Dalam VB.Net kita dapat menggunakan Message Box yang pengertiannya sudah dibahas di VB.Net Message Box

MEMBUAT PROGRAM

Kita akan membuat satu Message Box dengan tipe Information, YesNo, YesNoCancel, OkCancel

Langkah Pembuatan

  • Buat project baru dengan mengklik File > New > Project > Windows Form Appliation lalu beri nama frmPesan.
  • Buat layout seperti gambar dibawah ini:

  • Lalu ubahlah property pada tiap-tiap komponen diatas dengan ketentuan seperti pada tabel dibawah ini:

No

Nama Property

Text

Name

1

Form

Pesan

frmPesan

2

Button1

Information

btnInformation

3

Button2

Yes No

btnYesNo

4

Button3

Yes No Cancel

btnYesNoCancel

5

Button4

Ok Cancel

btnOkCancel

  •  Hingga menjadi seperti gambar dibawah ini

Kode Program

  • Double klik pada tombol Information, lalu tambahkan code dibawah ini
MsgBox("Isi Pesan", MsgBoxStyle.Information, "Judul Pesan")
  • Double klik pada tombol Yes No, lalu tambahkan code dibawah ini
Dim yesNo As String
yesNo = MsgBox("Lanjutkan?", MsgBoxStyle.YesNo, "Pesan")
If yesNo = DialogResult.Yes Then
   MsgBox("Anda menekan tombol Yes")
ElseIf yesNo = DialogResult.No Then
   MsgBox("Anda menekan tombol No")
End If
  • Double klik pada tombol Yes No Cancel, lalu tambahkan code dibawah ini
Dim yesNoCancel As String
yesNoCancel = MsgBox("Lanjutkan?", MsgBoxStyle.YesNoCancel, "Pesan")
If yesNoCancel = DialogResult.Yes Then
   MsgBox("Anda menekan tombol Yes")
ElseIf yesNoCancel = DialogResult.No Then
   MsgBox("Anda menekan tombol No")
ElseIf yesNoCancel = DialogResult.Cancel Then
   MsgBox("Anda menekan tombol Cancel")
End If
  • Double klik pada tombol Ok Cancel, lalu tambahkan code dibawah ini
Dim okCancel As String
okCancel = MsgBox("Tambahkan ke database?", MsgBoxStyle.OkCancel, "Pesan")
If okCancel = DialogResult.OK Then
   MsgBox("Anda menekan tombol Ok")
ElseIf okCancel = DialogResult.Cancel Then
   MsgBox("Anda menekan tombol Cancel")
End If
  • Lalu compile dengan menekan tombol F5 dan klik pada tombol-tombol untuk mengetes Message Box yang sudah dibuat