Setelah selesai
menginput data-data pada sebuah form dan mengklik simpan, hapus, atau ubah
kadang-kadan kita diberikan pilihan “Apakah anda akan
menyimpan/menghapus/mengubah data ini”
jika kita memilih yes maka data akan tersimpan namun jika kita memilih
no maka data tadi tidak jadi untuk disimpan dan kembali ke form tadi.
Na perintah
inilah yang akan kita pelajari sob,
untuk
menampilkan messagebox yes/no tersebut kita harus menggunakan sedikit logika
yaitu menggunakan if else (sebenarnya ada banyak sih logika yang dapat
digunakan namun menurut saya if else lebih mudah untuk di pahami). Hehehehe
ok kita langsung
saja ke TKP.
- Seperti biasa kita buat projek baru terserah sobat namanya (sedikit saran kalau bisa namanya yang sesuai dengan apa yang sedang dipelajari supaya nanti mudah saat mencari nya hehehe).
- Tambah sebuah button pada form. Set properties text = Pesan Pilihan dan name=btnPesanPilihan
- Klik dua kali pada button Pesan Pilihan.
- Berikan perintah pada button Pesan Pilihan dengan coding dibawah ini.
Private Sub btnPesanPilihan_Click(sender As Object, e As EventArgs) Handles btnPesanPilihan.Click
If MsgBox("Silahkan Pilih 'Ya' untuk keluar dari form dan tidak untuk tetap diform ini!!!", MsgBoxStyle.YesNo, "Pilihan!") = MsgBoxResult.Yes Then
Me.Close()
Else
MsgBox("Anda tetap di form ini", MsgBoxStyle.Information, "Info!")
End If
End Sub
Keterangan:
Logika
dari perintah coding diatas yaitu:
Kita
memberikan kondisi yaitu pada if (jika) MessageBox.YesNo kita berikan perintah
messageResult.Yes then (maka) me.Close() form ini akan ditutup/keluar.
Kemudian
else (jika tidak/jika kita memilih no) maka akan ditampilkan MessageBox “Anda
tetap di form ini” dan tidak keluar dari form.
Penggunaan
MessagBoxResult ini ada beberapa pilihan untuk meberikan pilihan kepada kita
misal Ok dan Cancel, Ok only, Yes dan No dan sebagainya silahkan anda
berexplorasi untuk penggunaan fungsi ini.
Hehehe
Catatan
:
Penggunaan
perintah MessageBoxResult harus sama dengan MessageStyle.
Misal
pada MessageBoxStyle.YesNo maka MessageBoxResult nya harus MessageBoxResult.Yes
atau MessageBoxResult.No
Comments
Post a Comment