MESSAGEBOX (MSGBOX)

Assalamualaikum....

kembali lagi di blog saya yang ke 6, huehehehehe, udah bnyak rupanya

kali ini saya akan membahas tentang MESSAGEBOX oke lansung saja di simak!

  MsgBox membuat jendela dialog dengan dengan pesan agar pengguna memberikan tanggapan dengan mengklik salah satu tombol yang ada.
Format penulisan : MsgBox(prompt[, Kode_Tombol]][, title][, helpfile, context])

Tujuan

Memberikan pemahaman tentang penggunaan MessageBox.

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah

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

Tuh banyak kan ,kita bisa menggunakan text/angka pada form(sesuai ingatan sih :D)
Sekadang kita masuk ke contoh.

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

⃕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

Contoh 2:

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

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“

√Alur Program:

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

√Perintah Program:

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

Hemehhh... akhrinya.... apa mudah di pahami?

Semoga saja bisa membantu:)

Terimakasih sudah berkunjung