Xây dựng chương trình nghe nhạc đơn giản
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ợ ...
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ào Form.
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:
5 Đặt các thông số cho ImageList
Bước 5: Thiết lập thông số cho Toolbar: tbrMain (Tham khảo phần 5) như hình dưới:
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
'/// THủ tục này được gọi mỗi khi người dùng click chọn một nút trên thanh công cụ
'/// 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 Sub tbrMain_ButtonClick(ByVal Button As MSComctlLib.Button)
SelectCase Button.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ở file mà 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 (*.*)|*.*|"
