DefaultExt Phần mở rộng mặc định được gắn trong hộp thoại
(khi người dùng không chọn mà nhập text vào trong phần tên file) - hộp thoại Open, Save.
Kiểu String
InitDir Đường dẫn khởi tạo trong hộp thoại - Hộp thoại
Open, Save Kiểu String
CancelError Qui định có phát sinh lỗi hay không khi người dùng
chọn nút Cancel trong hộp thoại. Kiểu Boolean Color Trả về màu được chọn trong hộp thoại – Hộp thoại
Color Tham khảo Object Browser
Ø
ØCác phương thức của điều khiển Common Dialog.
Phương thức Mô tả Ghi chú
ShowOpen Hiển thị hộp thoại mở file (Open) ShowSave Hiển thị hộp thoại ghi file (Save) ShowColor Hiển thị hộp thoại chọn màu (Color) ShowFont Hiển thị hộp thoại chọn font chữ (Font) ShowPrinter Hiển thị hộp thoại in ấn (Printer)
Tham khảo trong Object Browser hoặc Help
Ví dụ: Xây dựng UserForm gồm các điều khiển như hình dưới:
Yêu cầu: Ø
ØNgười dùng bấm nút Open Path để lấy vềđường dẫn của một file sau đó hiển thị nó trên điều khiển lbPath.
Ø
ØNgười dùng chọn nút Select Color đểđổi màu của UserForm. Mã lệnh tham khảo như sau:
Mã lệnh với thủ tục sự kiện Click của cmdOpen Private Sub cmdOpen_Click()
Dim strPath As String ' Xau luu tru duong dan cua file duoc chon Dim strFilter As String ' Xau bieu dien cac kieu file hien thi
strFilter = "App(*.exe)|*.exe|Text(*.txt)|*.txt|All files
(*.*)|*.*" Label Label Name: lbPath Common Dialog Name: cmDlg Command Button Name: cmdOpen Command Button Name: cmdColor
With cmDlg
.DialogTitle = "Chon file"
.InitDir = "C:\Program Files" ' duong dan mac dinh .Filter = strFilter
.ShowOpen
strPath = .Filename ' lay ve ten day du cua file duoc chon End With
lbPath.Caption = strPath End Sub
Mã lệnh với thủ tục sự kiện Click của cmdColor Private Sub cmdColor_Click()
Dim lngColor As Long ‘ bien luu tru mau duoc chon With cmDlg
.ShowColor (adsbygoogle = window.adsbygoogle || []).push({});
lngColor = .color ‘ lay ve mau nguoi dung chon trong hop thoai End With
Me.BackColor = lngColor End Sub