Menggunakan kontrol CommonDialog
Kontrol CommonDialog menyediakan sekumpulan kotak dialog standar untuk operasi seperti membuka dan menyimpan file, mengatur opsi pencetakan, dan memilih warna dan font. Kontrol juga dapat menampilkan bantuan ketika mesin Bantuan Windows sedang berjalan.
Kontrol CommonDialog menyediakan antarmuka antara Visual Basic dan rutin perpustakaan tautan dinamis Microsoft Windows Commdlg.dll. Untuk membuat kotak dialog dengan kontrol ini, Commdlg.dll harus berada di direktori MicrosoftWindows/System.
Untuk menggunakan kontrol CommonDialog di aplikasi Anda, Anda harus menambahkannya ke formulir dan mengatur propertinya. Dialog yang ditampilkan oleh kontrol ditentukan oleh metode kontrol. Selama runtime, kotak dialog atau mesin bantuan akan ditampilkan setelah memanggil metode terkait selama desain, kontrol CommonDialog akan ditampilkan sebagai ikon pada formulir. Ukuran ikon ini tidak dapat diubah.
Kontrol CommonDialog dapat menampilkan kotak dialog umum berikut:
"Membuka"
"Simpan sebagai"
"warna"
"font"
"Mencetak"
Untuk menggunakan kontrol CommonDialog
1. Jika kontrol CommonDialog tidak ditambahkan, Anda harus memilih "Komponen" dari menu "Proyek" dan menambahkan kontrol ke kotak alat. Temukan dan pilih kontrol di "Kontrol" pada dialog penandaan, lalu klik tombol "OK".
2. Klik kontrol "CommonDialog" di toolbox dan gambar kontrol pada formulir. Saat Anda menggambar kontrol CommonDialog pada formulir, kontrol akan diubah ukurannya secara otomatis. Seperti kontrol Timer, kontrol CommonDialog tidak terlihat pada saat dijalankan.
3. Saat menjalankan, silakan gunakan metode yang tercantum dalam tabel berikut dengan tepat untuk menampilkan dialog yang diperlukan.
Tampilkan kotak dialog Buka dan Simpan Sebagai
Kotak dialog Buka memungkinkan Anda menentukan drive, direktori, ekstensi file, dan nama file. Kotak dialog Simpan Sebagai tampilannya identik dengan kotak dialog Buka, hanya saja judul kotak dialog dan nama file diredupkan. Setelah memilih file dan menutup kotak dialog saat runtime, Anda dapat menggunakan properti FileName untuk mendapatkan nama file yang dipilih.
Untuk menampilkan kotak dialog Buka
1. Tentukan daftar filter file yang ditampilkan di kotak daftar Jenis File.
Properti Filter dapat diatur dalam format berikut:
deskripsi1|filter1|deskripsi2|filter2...
Deskripsi adalah string yang ditampilkan di kotak daftar - misalnya, TextFiles(*.txt). Filter adalah filter file sebenarnya - misalnya, *.txt. Setiap deskripsi|pengaturan filter harus dipisahkan dengan simbol pipa (|).
2. Gunakan metode ShowOpen untuk menampilkan kotak dialog.
Setelah memilih file, Anda dapat menggunakan properti FileName untuk mendapatkan nama file yang dipilih.
Untuk semua kotak dialog publik, kesalahan dihasilkan ketika properti CancelError adalah True dan pengguna mengklik tombol Batal di kotak dialog. Tangkap kesalahan saat menampilkan kotak dialog untuk mendeteksi apakah tombol Batal ditekan.
Kode berikut menampilkan kotak dialog Buka dan membuka parameter prosedur file dengan nama file yang dipilih:
PrivatSubmnuFileOpen_Click()
'CancelError Benar.
OnErrorGoToErrHandler
'Setel penyaring.
CommonDialog1.Filter=SemuaFile(*.*)|*.*|Teks_
File(*.txt)|*.txt|BatchFiles(*.bat)|*.bat
'Tentukan filter default.
CommonDialog1.FilterIndex=2
'Tampilkan kotak dialog Buka.
CommonDialog1.TampilkanTerbuka
'Panggil prosedur untuk membuka file.
OpenFile(CommonDialog1.NamaFile)
KeluarSub
Pengendali Kesalahan:
'Pengguna menekan tombol "Batal".
KeluarSub
Sub Akhir
Menggunakan kotak dialog Warna
Gunakan kotak dialog Warna untuk memilih warna dari palet warna atau untuk membuat dan memilih warna khusus. Saat runtime, properti Warna dapat digunakan untuk mendapatkan warna yang dipilih setelah memilih warna dan menutup kotak dialog.
Untuk menampilkan kotak dialog Warna
1. Atur properti Flags pada kontrol CommonDialog ke konstanta VisualBasic cdlCCRGBInit.
2. Gunakan metode ShowColor untuk menampilkan kotak dialog.
Anda dapat menggunakan properti Warna untuk mendapatkan nilai RGB dari warna yang dipilih. Kode berikut menampilkan kotak dialog Warna ketika Anda mengklik tombol perintah Command1:
PrivateSubCommand1_Klik()
'Setel Batal ke Benar.
CommonDialog1.CancelError=Benar
OnErrorGoToErrHandler
'Atur properti Bendera.
CommonDialog1.Flags=cdlCCRGBInit
'Tampilkan kotak dialog Warna.
CommonDialog1.TampilkanWarna
'Mengatur warna latar belakang formulir ke warna yang dipilih'.
Form1.BackColor=Dialog Umum1.Warna
KeluarSub
Pengendali Kesalahan:
'Pengguna menekan tombol "Batal".
KeluarSub
Sub Akhir
Menggunakan kotak dialog Font
Kotak dialog Font memilih font berdasarkan ukuran, warna, dan gaya. Setelah pengguna memilih font di kotak dialog Font, properti berikut berisi informasi tentang pilihan pengguna.
Untuk menampilkan kotak dialog Font
1. Atur properti Flags ke salah satu konstanta Visual Basic berikut:
cdlCFScreenFonts (font layar)
cdlCFPrinterFonts (font printer)
cdlCFBoth (bisa berupa font layar atau font printer)
Peringatan Anda harus mengatur properti Flags ke salah satu nilai ini sebelum menampilkan kotak dialog Font, jika tidak, kesalahan font tidak ada akan terjadi.
2. Gunakan metode ShowFont untuk menampilkan kotak dialog.
Kode berikut mengatur properti font kotak teks berdasarkan pilihan pengguna di kotak dialog Font:
PrivateSubCommand1_Klik()
'Setel Batal ke Benar.
CommonDialog1.CancelError=Benar
OnErrorGoToErrHandler
'Atur properti Bendera.
CommonDialog1.Flags=efek cdlCFBothOrcdlCFE
'Tampilkan kotak dialog "Font".
CommonDialog1.ShowFont
'Atur properti teks berdasarkan pilihan pengguna.
Text1.Font.Name=CommonDialog1.FontName
Teks1.Font.Ukuran=UmumDialog1.Ukuran Font
Teks1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=Dialog Umum1.FontStrikethru
Text1.ForeColor=Dialog Umum1.Warna
KeluarSub
Pengendali Kesalahan:
'Pengguna menekan tombol "Batal".
KeluarSub
Sub Akhir
->