Langsung ke konten utama

MESSAGEBOX (MSGBOX)

MESSAGEBOX (MSGBOX)

Langsung Download       

 

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“)

Keterangan gambar:
1.ŒJudul Pesan
2.MsgBoxStyle
3.si Pesan


Ada beberapa MsgBoxStyle, yaitu:
1.     MsgBoxStyle.Critical (16)                   :    tombol OK dan gambar icon Critical

MsgBoxStyle.Question (32)           :           tombol OK dan gambar icon Question
MsgBoxStyle.Exclamation (48)     :           tombol OK dan gambar icon Exclamation
MsgBoxStyle.Information (64)       :           tombol OK dan gambar icon Information
MsgBoxStyle.AbortRetryIgnore (2)          :    tombol Abort, Retry dan Ignore.
6.    MsgBoxStyle.OkCancel (1)                :    tombol OK dan Cancel.
7.    MsgBoxStyle.OkOnly (0)                    :    tombol OK.
8.    MsgBoxStyle. RetryCancel (5)          :    tombol Retry dan Cancel.
9.    MsgBoxStyle.YesNo (4)                      :    tombol Yes dan No.
10.  MsgBoxStyle. YesNoCancel (3)        :    tombol Yes, No dan Cancel.



Contoh 1:
Membuat Form Login dengan tampilan sbb:


Objek
Name
TextBox1
TxtPas
Button1
BtnProses





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:
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

Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.
1. Desain Program sbb:


Objek
Name
TextBox1
TxtJPR
Button1
BtnProses
Button2
BtnTutup





2. Alur Program
     -    Input Jumlah Point Reward.
     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.         
          Tabel Hadiah sebagai berikut:                    
Point Reward
Hadiah
500 – 1000
Mug Cantik
1001 – 1500
Boneka Cantik
1501 – 2000
Kipas Angin
2001 – 2500
Dispenser

-     Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:
·       Isi Pesan          :    Anda ingin menutup Program ini?
·       MsgBoxStyle   :    OK dan Cancel dengan icon Question.
·       Judul                :    Tutup Program
Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

Komentar

Posting Komentar

Postingan populer dari blog ini

Paket Dari Surga Setiap pasang mata itu selalu punya peran masing-masing dalam menjalani kesenjangan di kehidupan. Ini merupan sebuah sifat yang sudah dianggap lumrah pada manusia karna manusia itu merupakan makhluk sosial yang selalu hidup berdampingan, maka dari itu hadirny dua insan yang berbeda, membuatny saling belajar untuk dapat melekapi dalam kehidupan. Ini merupakan sebuah kisah nyata yang tengah ku alami. Kejadian pilu yang menimpa Ku beberapa tahun yang lalu merupakan sebuah kejadian yang tidak akan pernah terlupakan seumur hidup Ku. Aku kehilangan sosok yang paling Ku sayangi dan amat Ku kasihi di dunia ini untuk selamanya. Tapi, ada juga kalanya sering Aku bertanya-tanya. “Bagaimana ya keadaan istriku sekarang di alam surgawi sana,…???” “Baik-baik sajakah ia...???” “Ia pasti sangatlah sedih karena sudah meninggalkan sorang suami yang tidak mampu mengurus rumah dan seorang anak yang masih begitu kecil", ucap hati kecilKu sambil mengerutkan dahi. Yah...
Posting Komentar
Baca selengkapnya
Do’a Baik Untuk Nya By : Bobbay Crispy Kali ini mungkin aku tak lagi samar dengan perasaanku, sebuah perasaan yang kian membanyang diingatan. Semilir hembusan angin yang mengikuti suara helaan nafas, dengan dera ia n air mata seolah berusaha menjadi hiasan, semua membalut dalam kesunyian yang menjadi tema dalam sebuah cerita yang sudah seperti sahabat menurut Ku , dan Semua sepertinya sudah meresap dan menyatu dalam hidup Ku yang senantiasa berjalan berdampingan sebagai pelengkap kalbu. Bahkan semilir nyanyian angin di dalam kesunyian pun terkadang tak dapat menahan deraian airmata Ku yang berjatuhan. Adakah waktu yang enggan bersahabat denganku… ? Mempertemukan Aku yang rindu akan hadirnya dirimu, pada Mu ingin Ku ceritakan semua apa yang ada di dalam angan yang kian menyiksa Ku setiap saat dalam satuan waktu.             Diary seorang gadis cantik dengan senyum manis yang menggoyahkan jiwa.  “Indri”...
Posting Komentar
Baca selengkapnya