Materi Dialog Box – Versi VB.
NET
A. Kotak Pesan / MsgBox()
Adalah fungsi yang menghasilkan kotak untuk menampilkan pesan-pada user.
Bentuk Umum:
MsgBox("Pesan", [Link], "Judul")
VB6/VBA Makna/Ikon [Link] Padanan (MessageBoxIcon)
VbCritical Ikon Kritis (Error) [Link]
VbQuestion Ikon Pertanyaan [Link]
VbExclamation Ikon Peringatan [Link]
VbInformation Ikon Informasi [Link]
VB6/VBA Makna/Ikon [Link] Padanan (MessageBoxIcon)
VbOkOnly OK [Link]
VbOkCancel OK, Cancel [Link]
VbAbortRetryIgnor
Abort, Retry, Ignore [Link]
e
VbYesNoCancel Yes, No, Cancel [Link]
VbYesNo Yes, No [Link]
VbRetryCancel Retry, Cancel [Link]
Contoh 1:
MsgBox("Anda baru saja menekan tombol", [Link], "Pemberitahuan")
atau
MsgBox("Anda baru saja menekan tombol", [Link], "Pemberitahuan")
Contoh 2:
Dim inthasil As DialogResult
inthasil = [Link]("Tidak dapat mengakses disket", "Warning",
[Link], [Link])
Hasil Fungsi MsgBox()
Nilai Konstanta VB6 Konstanta [Link] (DialogResult) Keterangan
1 vbOK [Link] User memilih tombol OK
2 vbCancel [Link] User memilih tombol Cancel
3 vbAbort [Link] User memilih tombol Abort
4 vbRetry [Link] User memilih tombol Retry
5 vbIgnore [Link] User memilih tombol Ignore
6 vbYes [Link] User memilih tombol Yes
7 vbNo [Link] User memilih tombol No
Contoh 3 (dengan hasil disimpan):
Dim hasil As MsgBoxResult
hasil = MsgBox("Anda benar ingin keluar?", [Link] Or [Link],
"Peringatan")
If hasil = [Link] Then
' Keluar dari aplikasi
[Link]()
Else
' Tidak jadi keluar
End If
Contoh 4 (dengan hasil disimpan):
Dim inthasil As DialogResult
inthasil = [Link]("Tidak dapat mengakses disket", "Warning",
[Link], [Link])
If inthasil = [Link] Then
' Tindakan jika Abort
ElseIf inthasil = [Link] Then
' Tindakan jika Retry
ElseIf inthasil = [Link] Then
' Tindakan jika Ignore
End If
B. Kotak Masukan / InputBox()
Bentuk Umum:
Dim variabel As String
variabel = InputBox("Teks", "Judul", "Nilai Default")
Contoh:
Dim umur As String
umur = InputBox("Berapa Usia Anda?", "Mohon diisi", "0")
MsgBox("Terima kasih, usia anda adalah " & umur, [Link], "Tanggapan")
C. Kotak Dialog (ColorDialog, FontDialog, dsb.)
Kelas Dialog ([Link]) Fungsi Setara dengan (VB6)
OpenFileDialog Menampilkan kotak dialog "Open File" ShowOpen
SaveFileDialog Menampilkan kotak dialog "Save As" ShowSave
ColorDialog Menampilkan pemilih warna ShowColor
FontDialog Menampilkan pemilih font ShowFont
PrintDialog Menampilkan kotak dialog pencetakan ShowPrinter
HelpProvider (dan Untuk bantuan (lebih kompleks
ShowHelp
[Link]) penggunaannya)
metode yang digunakan untuk menampilkan dialog dalam [Link] adalah .ShowDialog()
✅ 1. ShowOpen
Dim ofd As New OpenFileDialog()
If [Link]() = [Link] Then
Dim fileName As String = [Link]
End If
✅ 2. ShowSave
Dim sfd As New SaveFileDialog()
If [Link]() = [Link] Then
Dim savePath As String = [Link]
End If
✅ 3. ShowColor
Dim cd As New ColorDialog()
If [Link]() = [Link] Then
Dim selectedColor As Color = [Link]
End If
✅ 4. ShowFont
Dim fd As New FontDialog()
If [Link]() = [Link] Then
Dim selectedFont As Font = [Link]
End If
✅ 5. ShowPrinter
Dim pd As New PrintDialog()
If [Link]() = [Link] Then
' Konfigurasi printer bisa dilakukan di sini
End If
✅ 6. ShowHelp
[Link] tidak memiliki dialog bantuan langsung seperti di VB6. Tapi Anda bisa menggunakan:
[Link](Me, "[Link]")
Atau pakai HelpProvider untuk kontrol berbasis GUI.
Contoh 1: Menampilkan Dialog Warna
Dim cd As New ColorDialog()
If [Link]() = [Link] Then
[Link] = [Link]
End If
Contoh 2: Menampilkan Dialog Font
Dim fd As New FontDialog()
If [Link]() = [Link] Then
[Link] = [Link]
End If
Contoh 3: Menangani batal pilih warna
Dim cd As New ColorDialog()
If [Link]() = [Link] Then
MsgBox("Anda tidak jadi memilih warna", [Link], "Cancel?!")
Else
[Link] = [Link]
End If