Cách đơn giản tạo Splash Form

[tedaynui]

Thường khi khởi động 1 chương trình, ta thường thấy hiện 1 Splash Form có vài thông tin "Quảng cáo" hoặc Logo... trong vài giây, sau đó tự mất. Splash Form này để làm đẹp cũng như tăng thêm sự "hoành tráng" cho chương trình đó mà. Sau đây xin giới thiệu 1 trong những cách tạo Splash Form rất đơn giản
+ Chỉ cần tạo 1 Form, ví dụ đặt Name là "About"
+ Code trong ThisWorkbook

Private Sub Workbook_Open()
    About.Show
End Sub

+ Code trong Form "About"

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:03"), "Close_Splash"
End Sub

Nếu muốn Splash Form hiện trong bao lâu thì ta chỉnh lại số màu đỏ (ở đây Splash hiện trong 03 giây)
+ Code trong Module

Private Sub Close_Splash()
        Unload About
End Sub

Các bạn có thể tải File về tham khảo

Tedaynui

 

[ongtrungducmx25]

nếu em muốn tạo logo hình động trong Splash Form thì làm như thế nào, để gây ra hiệu ứng đẹp mắt

 

[tedaynui]

nếu em muốn tạo logo hình động trong Splash Form thì làm như thế nào, để gây ra hiệu ứng đẹp mắt

Theo như mình biết thì có 2 cách tạo hiệu ứng Flash
1/ Cách 1: Insert từng Frame hình vào 1 Control Image ; giống như cách làm phim hoạt hình. Cách này chỉ tham khảo cho vui chứ chẳng ai làm đâu vì nó phải có thêm 1 số file hình ảnh đi theo, cồng kềnh.

2/ Cách 2: Chèn Flash vào Form như có nhiều file ví dụ mẫu trên GPE mà gần đây nhất là bài của anh Levanduyet (Embbedded_flash_in_UserForm). Cách này thì Pro hơn nhưng mình cũng đang tìm hiểu, hic hic

TDN

 

[ongtrungducmx25]

pác Embbedded_flash_in_UserForm thì code thấy nó đơng giản lắm chỉ cần pác chú ý :
-allowscriptaccess: chọn always
-embemovie: true
-Move: đường dẫn D:\?????.swf
-playing: false

sao đó vào sheet1

Option Explicit
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

thế là xong , mình chỉ không biết chèn hình động như thế nào vào UF còn cái ở trên pác làm xong thì dung lượng lớn lắm nhé!
chú ý : pác chỉ chuyển video sang dạng *swf

chúc pác tìm thấy thú vị ...............pác có thể làm nhiều cái khác nữa nhé minh muốn gởi lên nhưng dl max

 

[tedaynui]

mình chỉ không biết chèn hình động như thế nào vào UF còn cái ở trên pác làm xong thì dung lượng lớn lắm nhé!
chú ý : pác chỉ chuyển video sang dạng *swf

Thật ra với cách làm 1 thì rất chuối nhưng dung lượng file thì không lớn đâu vì đâu có nhứng những file hình ảnh vào form đâu mà tăng dung lượng. Khi nào gọi Form nó mới insert vào

Thân
TDN

 

[Duong gia]

pác Embbedded_flash_in_UserForm thì code thấy nó đơng giản lắm chỉ cần pác chú ý : -allowscriptaccess: chọn always -embemovie: true -Move: đường dẫn D:\?????.swf -playing: false sao đó vào sheet1

Option Explicit Private Sub CommandButton1_Click() UserForm1.Show End Sub

thế là xong , mình chỉ không biết chèn hình động như thế nào vào UF còn cái ở trên pác làm xong thì dung lượng lớn lắm nhé! chú ý : pác chỉ chuyển video sang dạng *swf chúc pác tìm thấy thú vị ...............pác có thể làm nhiều cái khác nữa nhé minh muốn gởi lên nhưng dl max

Mình đã ngâm cứu Flash Form của Bác Duyệt, nó trông rất đẹp. Nhìn code bên trong có vẻ đơn giản nhưng mình không hiểu và cũng không tìm thấy file ?????.swf trên ổ đĩa D. Giá như Bác Duyệt bỏ chút thời gian giải thích hướng dẫn một chút thì hay lắm.

 

[levanduyet]

Mình đã ngâm cứu Flash Form của Bác Duyệt

Xin đính chính, đây không phải của tôi.
Tôi chỉ sưu tầm và gởi lên cho các bạn tham khảo.
Còn làm như thế nào, thì xin các bạn đọc các đoạn mã.



LVD

 

[ongtrungducmx25]

Mình đã ngâm cứu Flash Form của Bác Duyệt, nó trông rất đẹp. Nhìn code bên trong có vẻ đơn giản nhưng mình không hiểu và cũng không tìm thấy file ?????.swf trên ổ đĩa D. Giá như Bác Duyệt bỏ chút thời gian giải thích hướng dẫn một chút thì hay lắm.

bạn làm như hướng dẫn của mình được rồi quan trọng là bạn chỉ chèn video.swf vào trong UF chọn đường dẫn thế là xong nếu bạn có thất mất gì thì gởi file của bạn lên đí mình sẽ giúp đở bạn mà!

 

[ongtrungducmx25]

có thể dùng UFthể hiện giờ trên From-clock, có điều là chưa thể cắt gọt lại cho theo ý muốn em muốn nó là hình tròn trong khung là hình chữ nhật

 

[ongtrungducmx25]

các bạn tham khảo file của em vào cho ý kiến ở bài

 

[ongtrungducmx25]

đây là link của 131 chiếc đồng hồ flash tha hồ mà lựa chọn nhé các pác! hehe
gõ nhịp tích tắt