Với ActiveX này ta cĩ thể mở tất cả những tập tin audio hay video nào mà windows media player cĩ thể mở được. Thi thoảng cĩ một số phim nén máy khác mở được nhưng máy mình khơng mở được thì cĩ thể dùng từ khố KLiteCode để tải những code mới về cài vào hệ thống.
Để sử dụng ActiveX này hãy click vào nút more controls, sau đĩ tìm và chọn mục Windows Media Player và vẽ trên slide.
Thuộc tính Mơ tả
Url Chuỗi đường dẫn đến tập tin audio/video.
StretchToFit Nếu giá trị true sẽ kéo dãn phim khít với kích thước của WMP. FullScreem True sẽ cho phép xem phim tồn màn hình.
Bảng 2.7: Các thuộc tính cơ bản của Windows Media Player
Để đổi audio/video ta chỉ cần gán thuộc tính url của WMP bằng chuỗi chỉ vị trí của tập tin audio/video mới.
Ví dụ 2.9 : Sử dụng Windows Media Player (wmp) để tạo slide cho phép người dùng xem 4 phim sau: cau tao vi sai.wmp, mo phong vi sai.wmp, mo hinh vi sai.wmp, hoat dong vi sai.avi dùng để giảng dạy cấu tạo và nguyên lí làm việc của vi sai (bài 33: Động cơ đốt trong dùng cho ơ tơ – Cơng nghệ 11). Kết quả thu được một slide trên đĩ cho phép người dùng xem 4 đoạn phim ngay trên một slide.
Hướng dẫn chi tiết
Hình 2.13: Kết quả của bài tập
Bước 1: Tạo một đối tượng Windows Media Player, đặt tên là wmp.
Click vào nút more controls, sau đĩ tìm và chọn mục Windows Media Player và vẽ trên slide. Kích thước của cửa sổ wmp cĩ thể điều chỉnh được sau khi vẽ.
Bước 2: Tạo 4 button lần lượt là btnVideo01, btnVideo02, btnVideo03 và btnVideo04
(dùng để chọn video muốn xem).
Chọn cơng cụ Button, vẽ lên slide, gán thuộc tính cho các button này.
Bước 3: Thay đổi thuộc tính url của wmp
Private Sub btnVideo01_Click()
wmp.URL = ActivePresentation.Path + "\Media\cau tao vi sai.wmv"
End Sub
Private Sub btnvideo02_Click()
wmp.URL = ActivePresentation.Path + "\Media\mo phong vi sai.wmv"
End Sub
Private Sub btnvideo03_Click()
wmp.URL = ActivePresentation.Path + "\Media\mo hinh vi sai.wmv"
End Sub
Private Sub btnvideo04_Click()
wmp.URL = ActivePresentation.Path + "\Media\hoat dong vi sai.avi"
End Sub
Trình chiếu sản phẩm, kiểm tra chức năng của các nút button.