Hộp thoại Open, Save Kiểu Integer DefaultExt Phần mở rộng mặc định được gắn trong hộp thoạ

Một phần của tài liệu thiết kế công cụ hỗ trợ trên Excel docx (Trang 77 - 78)

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

lngColor = .color ‘ lay ve mau nguoi dung chon trong hop thoai End With

Me.BackColor = lngColor End Sub

Một phần của tài liệu thiết kế công cụ hỗ trợ trên Excel docx (Trang 77 - 78)

Tải bản đầy đủ (PDF)

(78 trang)