Bạn Hãy Nhúng MacroMedia Flash Vào Visual Basic.

Bài Viết sử dụng Font UniCode

Trang 1

Trang 2

2. Thiết kế ở Visual Basic:

- Khởi động Visual Basic 5.0 ra chúng ta bắt đầu bắt tay vào làm việc.

- Mở Menu File chọn New (tạo một Project mới)

- Click mouse phải vào hộp công cụ Toolbox 

- Chọn Components... (Ctrl+T) bạn kéo thanh trượt dọc xuống chọn Shockwave Flash như hình sau:

- Sau khi chọn xong bạn bấm Apply và OK bạn sẽ nhìn thấy biểu tượng của Flash trên thanh Toolbox

- Click mouse trái chọn vào biểu tượng này và kéo thả thành một ô vuông giống như MacroMedia Flash vừa thiết kế bên trên.

- Sau đó chỉ vào ô vuông này bấm F4 để thay đổi thuộc tính Properties:

Name: ShockwaveFlash1

Movie: c:\vb\txt.swf (lưu ý lúc tôi thiết kế ở MacroMedia Flash tôi đặt tên file txt.swf và lưu vào ổ đĩa c:\, thư mục tên là vb)

- Đồng thời bên dưới ShockwaveFlash tôi tạo thêm các nút điều khiển như hình sau:

- Click mouse vào nút Frame kéo thả, sau đó bấm F4:

Name: Frame1 - Caption: Điều Khiển

- Tiếp theo tôi lần lượt tạo và đặt tên cho các nút nhấn như sau:

Chỉ vào từng nút nhấn bấm F4:

Name: Play  - Caption: Chạy

Name: Stop - Caption: Dừng

Name: zoom1 - Caption: Phóng Lớn

Name: zoom2 - Caption: Thu Nhỏ

Name: close - Caption: Thoát

Ngoài ra bạn có thể chọn font Tiếng Việt gì tùy ý.

- Sau đó tiến hành viết code cho chương trình như sau:

Private Sub play_Click()
 ShockwaveFlash1.play
End Sub

Khi bạn nhấn nút Dừng, muốn chạy lại, bạn nhấn vào nút chạy này ShockwaveFlash sẽ chạy tiếp.


Private Sub stop_Click()
ShockwaveFlash1.stop
End Sub

Khi nhấn click mouse vào nút Dừng ShockwaveFlash sẽ dừng lại.

Private Sub zoom1_Click()
 ShockwaveFlash1.Zoom (50)
End Sub

Khi nhấn vào nút nhấn Phóng lớn ShockwaveFlash sẽ phóng lớn lên


Private Sub zoom2_Click()
 ShockwaveFlash1.Zoom (200)
End Sub

Click mouse vào nút nhấn Thu nhỏ này thì ShockwaveFlash sẽ thu nhỏ trở lại.

Private Sub close_Click()
End
End Sub

Thoát khỏi chương trình bằng nút lệnh Thoát.

- Sau cùng bạn có thể bấm F5 để chạy thử và sau đó biên dịch ra được rồi đó.

 Lúc này bạn sẽ được như hình sau:

- Như vậy các bạn thấy rõ ràng là Visual Basic có khả năng năng điều khiển được anh bạn MacroMedia Flash nhà ta và ngược lại anh bạn MacroMedia Flash cũng có khả năng điều khiển ngược lại Visual Basic (đáng lẽ tôi sẽ trình bày thêm phần MacroMedia Flash điều khiển trở lại Visual Basic nhưng tôi không có nhiều thời gian, mong bạn hãy tự tìm hiểu và phát huy thêm).

- Qua những gì tôi đã trình bày trên chắc phần nào các bạn cũng thấy được khả năng tuyệt vời của MacroMedia Flash không những chỉ dành cho thiết kế Web mà nó còn có khả năng đưa vào Visual Basic và những chương trình khác nữa. Trên cơ sở tôi không phải là người chuyên thiết kế Web hay chuyên viên lập trình nhưng tôi cuốn hút bởi sự mềm dẻo của chương trình này, nó có thể hòa mình sống chung với nhiều chương trình giống như "Sống chung với lũ".

- Tôi đưa ra một thí dụ nếu thay ShockwaveFlash kia thành nơi để nhập Password, thì chắc cũng khó khăn cho các cracker lắm đa, nhưng đó chỉ là ví dụ thôi chứ các cracker bây giờ dữ lắm đừng có mà chọc giận thì có ngày khóc hận với sản phẩm mới tạo ra chưa "thách thức" được bao lâu đã bị crack rồi !!!

Tán gẫu với các bạn tí cho vui thôi, bây giờ chúng ta bắt đầu phân tích ưu điểm của việc nhúng MacroMedia Flash vào Visual Basic:

Như các bạn cũng thấy đó nhúng một MacroMedia Flash vào Visual Basic cũng khá đơn giãn, nhưng ưu điểm ở đây là khi bạn thiết kế ở MacroMedia Flash bạn có thể nhúng âm thanh vào, sau đó tiếp tục nhúng ShockwaveFlash vào Visual Basic bạn đã được 2 trong 1 rồi còn gì, trong khi bạn không cần phải bợ file âm thanh đi theo, sau khi nhúng vào Visual Basic cũng Delete luôn file .SWF của Flash luôn. Như vậy, khi bạn đóng gói chương trình Visual Basic lại bạn sẽ thấy nó nhẹ nhàng như đang bay vậy đó, thật là đã và hấp dẫn quá phải không các bạn. Vâng, đây chính là ưu điểm của việc nhúng vào và ý tôi muốn trình bày trong bài viết này.

*Lưu ý: khi đóng gói nhớ mang theo file thư viện SWFLASH.OCX 

(trong thư mục windows\System\Macromed\Flash\SWFLASH.OCX)

Chân thành cám ơn các bạn đã theo dõi bài viết của tôi, nhân đây tôi xin gửi tặng các bạn file lập trình thô thiển của tôi vừa nêu trên, nhưng ở đây tôi có thêm vào một số câu lệnh của Visual Basic để tăng thêm hương vị của nó và bạn nhớ bậc loa lên trước khi thưởng thức nó, nếu bạn cần xin download bên dưới (lưu ý bạn phải có cài đặt MacroMedia Flash 4.0 hoặc 5.0 mới chạy được file này): download

Vui lòng góp ý về bài viết này xin liên hệ:

Lê Quang Anh Hu'ng 

135T3 Tran Van Dang Street, District 3, Ho Chi Minh City, St Vietnam.

Tel: 8846338

E-Mail: lehunghp@yahoo.com hoặc ahung@hcmpt.vnn.vn

Homepage: http://www.crosswinds.net/~lqahung/

Chúc Bạn & Gia Đình nhiều sức khỏe.

Trang 1

Về Đầu Trang

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com