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ợ 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:

Thêm các OCX vào Form

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 (*.*)|*.*|"

Tuỳ biến hiển thị các kiểu file khác nhau