14 December 2015

VB.NET: Bekerja dengan MessageBox


Messagebox merupakan salah satu fasilitas untuk aplikasi "berkomunikasi" dengan user. Dan sebagai coder kita akan sering menggunakan fasilitas yang satu ini.

Penggunaan yang paling sederhana adalah untuk menampilkan teks pesan. Ada 2 cara untuk menampilkannya:
MessageBox.Show("isi pesan")       MsgBox("isi pesan")
.         

Format yang kanan mungkin lebih familiar buat yang terbiasa dengan VB6. Ada beda nya yah? Ya pada title text atau caption. Ini bisa customize koq, cara nya:
MessageBox.Show("isi pesan", "Judul Pesan")
MsgBox("isi pesan", , "Judul Pesan")



Secara default tombol yang akan ditampilkan adalah button OK. Tetapi lengkapnya kita mempunyai 6 pilihan yaitu:
1. MessageBoxButtons.AbortRetryIgnore
 2. MessageBoxButtons.OK
 3. MessageBoxButtons.OKCancel
 4. MessageBoxButtons.RetryCancel
 5. MessageBoxButtons.YesNo
 6. MessageBoxButtons.YesNoCancel

Contoh penulisan code:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.OKCancel)
MsgBox("isi pesan", MessageBoxButtons.OKCancel, "Judul Pesan")


Message box juga memiliki 9 pilihan icon, walaupun beberapa diantara nya menghasilkan icon yang sama.
1. MessageBoxIcon.Asterisk
2. MessageBoxIcon.Error
3. MessageBoxIcon.Exclamation
4. MessageBoxIcon.Hand
5. MessageBoxIcon.Information
6. MessageBoxIcon.None
7. MessageBoxIcon.Question
8. MessageBoxIcon.Stop
9. MessageBoxIcon.Warning

Contoh penulisan code:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
MsgBox("isi pesan", MessageBoxButtons.OK + MessageBoxIcon.Information, _
       "Judul Pesan")


Untuk messagebox yang memiliki lebih dari satu button, kita bisa menentukan aksi yang berbeda tergantung button mana yang diklik user. Untuk lebih jelasnya mari kita lihat contoh berikut.
UI:
Code:
Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles MyBase.Load
      Button1.Text = "Choose..."
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles Button1.Click

      Dim x As Object = MessageBox.Show("isi pesan", "Judul Pesan", _
                         MessageBoxButtons.YesNoCancel, _
                         MessageBoxIcon.Question)

      If x = Windows.Forms.DialogResult.Yes Then
          TextBox1.Text = "Yes"
      ElseIf x = Windows.Forms.DialogResult.No Then
          TextBox1.Text = "No"
      Else
          TextBox1.Text = "Cancel"
      End If
  End Sub  


End Class


Runtime:


Terakhir jika button messagebox lebih dari 1 dan ingin salah satu tombol menjadi default (tinggal tekan enter). Untuk lebih jelasnya kita lihat pada contoh code dan hasil berikut:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button3)




Click here if you like this article.


0 comments: