VB6 / VBA - Điều khiển CommonDialog
Ứng dụng Visual Basic hoặc VBA cung cấp một môi trường linh hoạt để tạo các công cụ tùy chỉnh để đáp ứng nhu cầu hàng ngày. VBA không chỉ cung cấp một cách để thực hiện một số lượng lớn các phép tính với nỗ lực tối thiểu của con người mà còn cung cấp các cách để kết hợp đầu vào của người dùng trong các giai đoạn nhất định của việc thực thi mã. Một cách kết hợp đầu vào của người dùng là sử dụng Điều khiển CommonDialog. Điều khiển CommonDialog cho phép người dùng đưa ra các đầu vào cụ thể và thực thi các mã có điều kiện cho các đầu vào đó. 
Dưới đây là danh sách tất cả các hằng số có sẵn, mặc dù chúng không được sử dụng trong tất cả các chức năng.
Các chức năng có sẵn với CommonDialog
- Hộp thoại> Mở tệp
- Hộp thoại> Lưu dưới dạng
- Hộp thoại> In
- Hộp thoại> Chọn chính sách
Bắt đầu
Biểu mẫu> Tên = Hộp thoại
Điều khiển CommonDialog> Name = CMDialog1
Nút1> Chú thích = Tệp cOpen
Mã trong CommandX_Click ()> Ret = cmd_Open
Nút2> Chú thích = Lưu dưới dạng
Mã trong Clic Ret = cmd_Open ()
Nút3> Chú thích = In
Mã trong CommandX_Click ()> Ret = cmd_Print ()
Nút4> Chú thích = Chính sách
Mã trong CommandX_Click ()> Ret = cmd_Policy ()
Một ví dụ về một mô-đun tiêu chuẩn
Tùy chọn Giải thích bộ lọc công khai1 dưới dạng chuỗi Bộ lọc công cộng2 dưới dạng bộ lọc công khai chuỗi 3 dưới dạng bộ lọc công khai chuỗi 4 dưới dạng bộ lọc công khai chuỗi 5 dưới dạng bộ lọc công khai chuỗi như bộ lọc công khai chuỗi 7 dưới dạng chuỗi Const DLG_FONT = 4 Công cộng DLG_Print = 5 Công cộng & H100 & Const Const Công khai CC_PR EVENTFULLOPEN = & H4 & Const Const CC_SHOWHELP = & H8 & 'Consts = & H200 & Const Const CF_ANSIONLY = Const CF_TTONLY = & H40000 Const công cộng CF_NOFACESEL = & H80000 Const công cộng CF_NOSTYLESEL = & H80000 Const công cộng CF_NOSTYLESEL = & H100000 Công cộng ic Const PD_NOPAGENUMS = & H8 & Const Const PD Const công cộng PD_DISABLEPRINTTOFILE = & H80000 Const công cộng PD_HIDEPRINTTOFILE = & H100000 'Các hằng số trợ giúp Công cộng Const Const_C__ Hiển thị trợ giúp về việc sử dụng trợ giúp Const công cộng HELP_SETINDEX = & H5 'Đặt Chỉ mục hiện tại cho đa chỉ mục Trợ giúp Công cộng HELP_SETCONTENT = & H5 Công khai Const HELP_CONTEXTPOPUP = & H8 Công khai Const HELP_FORCEFILE = & H9 & H102 Công cộng HELP_PARTIALKEY = & H105 'gọi công cụ tìm kiếm trong winhelp Hàm thêm (a $) dưới dạng Chuỗi Nếu $ "" Sau đó, $ = a $ + "|" add = a $ End Function 'Dòng lệnh ...' FileName = cmd_open () 'Nếu 1 bộ lọc thêm >> FileName = cmd_open ("txt")' Nếu nhiều bộ lọc, khởi tạo bộ lọc1 thành 4 'thường xuyên thêm tất cả bộ lọc Chức năng cmd_open (Tùy chọn Lọc1 dưới dạng Chuỗi) Dưới dạng Chuỗi Dim CTRL $, a $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Nếu Filter1 "" Sau đó là $ = "Tệp (*." & Lọc1 & ") | *." & Filter1 End If If Filter1 "" Sau đó, $ = add (a $) a $ = a $ + "Tệp (*." & Filter1 & ") | *." & Filter1 Filter1 = "" End If If Filter2 "" Sau đó, $ = add (a $) a $ = a $ + "File (*." & Filter2 & ") | *." & Filter2 Filter2 = "" End If If Filter3 "" Sau đó, $ = add (a $) a $ = a $ + "File (*." & Filter3 & ") | *." & Filter3 Filter 3 = "" End If If Filter4 "" Sau đó, $ = add (a $) a $ = a $ + "File (*." & Filter4 & ") | *." & Filter4 Filter4 = "" End If a $ = add (a $) a $ = a $ + "All (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Dialog .CMDialog1. CF_BOTH + CF_SCALABLEONLY Dialog. ) Dialog.CMDialog1.FLAGS = PD_ALLPAGES Dialog.CMDialog1.Min = 1 Dialog.CMDialog1.Max = 100 Dialog.CMDialog1.FromPage = 1 Dialog.CMDialog1.ToPage = phần mở rộng tệp cần tìm kiếm 'ví dụ: thường trình TXT ou EXE' thêm tất cả bộ lọc (*. *) Hàm cmd_SaveAs (Filter1 As String) As String Filter1 = "File (*." & Filter1 & ") | *. "& Filter1 Filter2 =" Tất cả (*. *) | *. * "Dialog.CMDialog1.H