Menampilkan DialogBox

Menampilkan DialogBox

Tutorial kali ini bersifat sederhana tapi penting, yaitu bagaimana caranya menampilkan Dialog Box di Visual Basic 6.0. DialogBox itu sendiri adalah sebuah tampilan yang berguna untuk memberitahu user atau metode untuk melakukan sesuatu.

Dalam kesempatan ini, penulis akan mendaftar beberapa bentuk DialogBox yang paling lazim digunakan oleh kebanyakan programmer visual basic 6.0, diantaranya adalah:

Konfirmasi setelah user mengklik icon/ tombol Exit program

 Contoh:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim strTanya As Integer
strTanya = MsgBox("Are you sure you want to exit this program?", _
vbQuestion + vbYesNo, "Confirmation")
If strTanya = vbNo Then Cancel = -1
End Sub 

Pada contoh diatas, kita menggunakan strTanya sebagai Variabel untuk memunculkan dialogbox.
Bentuk penulisannya adalah sebagai berikut:

Variabel = MsgBox ("..... pertanyaan .....", vbQuestion + vbYesNo," .... juduldialogbox ....")

Sehingga menjadi:

strTanya = MsgBox("Are you sure you want to exit this program?", vbQuestion + vbYesNo, "Confirmation")

Anda dapat menggunakan kata lain secara bebas atas Variabel tersebut. Artinya tidak harus seperti itu.
Keterangan:

vbQuestion: menampilkan gambar/ilustrasi berbentuk tanda tanya.
vbYesNo: menampilkan otomatis tombol [YES] dan [NO].

Contoh lainnya:

vbCritical
vbExclamation
vbInformation
vbQuestion
vbYesNo
vbYesNoCancel
vbOKCancel
vbOKOnly

Didalam penggunaannya, anda dapat menggunakan atribut tersebut secara sendiri atau digabungkan dengan atribut lainnya dengan cara:

atribut1 + atribut2

Misalnya:

vbQuestion + vbYesNoCancel
vbExclamation + vbOkOnly
dsb.

Bagaimana bila user menekan salah satu tombol itu? bagaimana cara menuliskannya?
Perhatikan langkah dibawah ini:

If strTanya = vbYes Then
   ...............
ElseIf strTanya = vbNo Then
   ...............
End if

Pada contoh diatas, kita hanya menggunakan satu IF, yaitu:

If strTanya = vbNo Then Cancel = -1

Baris itu memiliki makna: "... Jika user mengklik tombol [NO] maka Batalkan exit.
Batalkan Exit dinyatakan dalam bentuk: Cancel = -1

Syntax /Cancel/ pada kode tersebut diambil dari  baris kode diatasnya yaitu:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

yaitu: Cancel As Integer, atau Cancel bernilai -1.
Jika user mengklik tombol [YES] itu artinya Cancel akan bernilai 0 sehingga user keluar dari program tersebut.

DialogBox Input User 

 Berikutnya adalah menampilkan DialogBox yang akan meminta user mengisi / menginput data.
Untuk melakukan hal ini kita akan menggunakan: InputBox

Contoh:

strPassword = InputBox ("Silahkan isi dengan Password anda!", "Password").

Untuk mendeteksi apakah user mengisi atau tidak, dan apakah user telah menginput password dengan benar caranya sebagai berikut:

If strPassword = "" Then
     MsgBox "Anda belum mengisi password apapun!", vbExclamation, "Kosong"
     End
     Exit Sub
ElseIf strPassword = "okay" Then
     frmUtama.Show
     Exit Sub
End If

Pada tampilan DialoqBox InputBox tersebut terdapat 2 tombol yaitu: [OK] dan [Cancel].
Akan tetapi, baris kode diatas telah cukup menghandel kedua tombol tersebut yaitu saat user mengklik tombol [OK] ataupun [Cancel].