Contoh Membuat Dialog Box pada VB.06
Dialog box yaitu membuat jendela dialog dengan pesan agar pengguna
memberikan tanggapan dengan meng-klik salah satu tombol yang ada (muncul).
DialogBox sering kita jumpai pada handphone yang anda genggam saat ini,
contohnya pada saat anda hendak menghapus pesan yang ada di inbox handphone
anda, dan masih banyak contoh lain yang berhubungan dengan IT. Dibawah ini ada
contoh sederhana membuat msgbox (dialog box), setelah dibuka aplikasi visual
basic 6.0, buatlah tampilan pada lembar design seperti berikut :
Setelah membuat design seperti itu, mulailah untuk memasukan codingannya.
Contoh coding / Listingnya seperti ini :
Setelah anda memasukan coding seperti gambar diatas kemudian run (jalankan)
/ tekan F5 maka akan tampil gambar seperti :
Selanjutnya tekan OK dan akan muncul perintah untuk mengisi data :
Isi data tersebut,Misal :
Setela di isi atau memasukan data, kemudian tekan “OK” akan tampil :
Jika proses telah selesai, tekan “OK” maka akan kembali ke menu awal.
Untuk keluar dari program, tekan tombol “EXIT” akan muncul peringatan
seperti :
Tekan “OK” untuk kembali ke project awal / keluar, atau tekan “CANCEL”
untuk tetap pada menu editor.
Membuat MessageBox VB.06
Ketika
berhadapan dengan komputer, kawan-kawan tentunya sudah tidak asing lagi dengan
yang namanya MessageBox (MsgBox). seperti di bawah ini.
Sebenarnya untuk membuat MsgBox tidak terlalu rumit, Misalnya untuk MsgBox di atas kita bisa membuat source code nya seperti ini.
Private Sub CmdExit_Click()
If MsgBox("Anda yakin mau keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
End
End If
End Sub
Kita bisa merubah icon atau button untuk msgbox. Berikut detail setiap atribut yang ada pada msgbox:
Icon
Constant
|
Value
|
Picture
|
vbCritical
|
16
|
|
vbQuestion
|
32
|
|
vbExclamation
|
48
|
|
vbInformation
|
64
|
Buttons
Constant
|
Value
|
Description
|
vbOkOnly
|
0
|
Menampilkan
tombol OK
|
vbOkCancel
|
1
|
Menampilkan
tombol OK dan Cancel
|
vbAbortRetryIgnore
|
2
|
Menampilkan
tombol Abort, Retry dan Ignore
|
vbYesNoCancel
|
3
|
Menampilkan
tombol Yes, No dan Cancel
|
vbYesNo
|
4
|
Menampilkan
tombol Yes dan No
|
vbRetryCancel
|
5
|
Menampilkan
tombol Retry dan Cancel
|
Return Values
Constant
|
Value
|
Description
|
vbOk
|
1
|
Tombol OK
|
vbCancel
|
2
|
Tombol
Cancel
|
vbAbort
|
3
|
Tombol
Abort
|
vbRetry
|
4
|
Tombol
Retry
|
vbIgnore
|
5
|
Tombol
Ignore
|
vbYes
|
6
|
Tombol Yes
|
vbNo
|
7
|
Tombol No
|
Pada contoh diatas kita mengunakan Constant untuk setiap atribut, seperti vbQuestion, vbYesNo dan vbYes. Atribut itu bisa kita ganti dengan value seperti yang tertera pada tabel diatas, sehingga kodenya menjadi:
Private Sub CmdExit_Click()
If MsgBox("Anda yakin mau keluar?", 32 + 4, "Konfirmasi") = 6 Then
End
End If
End Sub
Sekian contoh pembuatan program sederhana msgbox/dialog box pada aplikasi
VB 6.0 kali ini. Semoga bermanfaat bagi kita semua. Salam UG.
Komentar
Posting Komentar