Trong bài thực hành này, ta sẽ minh hoạ việc sử dụng Thanh công cụ (Toolbar) bằng cách xây dựng một ứng dụng nghe nhạc đơn giản.
Thực hành: Sử dụng điều khiển Window Media Player, viết chương trình nghe những file nhạc tiếng, nhạc hình được hỗ trợ bởi điều khiển này. Giao diện như hình 18.
Giao diện chương trình Các bước thực hiện:
Bước 1:Đưa các file OCX vào dự án.
Vào menu Projects --> Components và click chọn các file OCX sau:
Bước 2:Kéo 4 điều khiển Window Media Player
, Toolbar , ImageList
và CommonDialog vàoForm.
Bước 3: Đặt giá trị cho các thuộc tính
Điều khiển Tên thuộc tính /Giá trị Toolbar Name : tbrMainStyle : Flat ImageList Name: imlIcons
CommonDialog Name : dlgChonFile WindowMediaPlayer Name: wmpMain
Bước 4:Thêm các icons vào ImageList (Xin xem lại phần 5)
Thêm 3 icon vào imlIcon và đặt tên lần lượt là icoExit, icoOpen và icoHelp (Với mục đích minh hoạ, bạn có thể chọn 3 icon bất kỳ). Đặt thông số theo như hình 20:
Đặt các thông số cho ImageList
Thiết lập thông số cho ToolBar
Viết lệnh: Option Explicit
'/// Thủ tục này được gọi mỗi khi kích thước của Form bị thay đổi
'/// Khi đó ta kéo giãn Window Media Player bằng với kích thước của Form . (có thể bỏ qua phần này)
Private Sub Form_Resize()
wmpMain.Width = Me.ScaleWidth
wmpMain.Height = Me.ScaleHeight - tbrMain.Height
End Sub
'/// Tại đây ta sẽ kiểm tra xem người dùng chọn nút nào và viết lệnh xử lý tương ứng
Private SubtbrMain_ButtonClick(ByVal Button AsMSComctlLib.Button)
SelectCaseButton.Key
Case"cmdOpen" '/// Người dùng click nút Open
dlgChonFile.DialogTitle = "Chọn file để nghe"'/// Tiêu đề của hộp thoại
dlgChonFile.Filter = "Tất cả các file |*.*|" • Nhấn F5 để chạy chương trình !
Ghi chú:
• Thuộc tính DialogTitle và Filter có thể bỏ qua.
• Trong trường hợp khi hộp thoại mở ra, nếu người dùng không chọn file nào (nhấn nút Cancel) thì thuộc tính FileName sẽ có giá trị của lần mở trước đó. • Luôn luôn ghi nhớ rằng, Hộp thoại "Open file"không tự động mở filemà chỉ
trả về thông tin duy nhất là tên file mà người dùng vừa chọn.
• Muốn có một hộp thoại cho người dùng chọn lựa các kiểu file khác nhau, cần đặt thuộc tính Filter như sau (Thành phần |*.doc|; |*.rtf|...→ rất quan trọng): dlgChonFile.Filter = "File Words (*.doc) |*.doc|Cac file RTF|*.rtf|Tat ca cac file (*.*)|*.*|"