ActiveX này đĩng vai trị như một Flash player nằm trên slide trình chiếu. Chính vì vậy ta cĩ load các tập tin swf thơng qua thuộc tính Movie. ActiveX này cịn cung cấp một số phương thức để điều hướng tập tin swf như stop, play, back, Forward…
Để sử dụng ActiveX này hãy click vào nút More controls, sau đĩ tìm và chọn mục shockwave Flash Obiect và lên Slide.
Thuộc tính Mơ tả
Movie Chuỗi đường dẫn đến tập tin SWF.
Playing Nếu true sẽ play tập tin, ngược lại thì dừng
Bảng 2.8: Các thuộc tính cơ bản của Shockware Flash
Ví dụ 2.10 : Sử dụng đối tượng Shockwave Flash để tạo slide cho phép người dùng chọn xem các tập tin swf (flash) được lưu trong thư mục chứa tập tin Powerpoint. Tạo các nút cho phép người dùng điều hướng (stop, play, back, next, reset) bằng cơng cụ button. Bằng cách này ta cĩ thể dễ dàng chèn được đuơi swf vào powerpoint và cĩ thể điều khiển được chúng.
Hình 2.14: Điều khiển Flash
Bước 1: Tạo một SWF đặt tên là swf, 4 button đặt tên lần lượt là btnStop, btnPlay,
btnBack, btnForward (dùng để điều hướng tập tin swf), 4 button btnS1, btnS2, btnS3, btnS4 (dùng để load 4 tập tin swf tương ứng).
• Giả sử 4 tập tin Swf cần load cĩ tên lần lượt là Mo phong HT ra-lang-ti.swf; Mo phong HTDL acqui-tiep diem.swf; HTDL acqui - Transitor.swf; Mo phong cau tao dong co Roto.swf được lưu trong thư mục Media nằm trong thư mục lưu tập tin Powerpoint.
Bước 2: Sử dụng đường dẫn tương đối để load các file swf vào slide.
Private Sub btnS1_Click()
swf.Movie = ActivePresentation.Path + “\media\ Mo phong HT ra lang ti.swf" End Sub
Private Sub btnS2_Click()
swf.Movie = ActivePresentation.Path + “\media\ Mo phong HTDL acqui tiep diem.swf"
End Sub
Private Sub btnS3_Click()
swf.Movie = ActivePresentation.Path + “\media\ HTDL acqui Transitor.swf" End Sub
Private Sub btnS4_Click()
swf.Movie = ActivePresentation.Path + “\media\Mo phong cau tao dong co Roto.swf " End Sub
Bước 3: Khi người dùng muốn điều hướng PrivateSub btnBack_Click() swf.back EndSub PrivateSub btnNext_Click() swf.Forward EndSub PrivateSub btnPlay_Click() swf.Playing = True EndSub PrivateSub btnStop_Click() swf.Playing = False
EndSub