, sau này BSImage trong BSAC có thể hỗ trợ ảnh gif chuyển động luôn. VÍ dụ này hướng dẫn khai thác BSImageList làm nền tảng kết nối với vài control khác như BSTreeView, BSListView, BSListBox, BSComboBox.
hihi em nghĩ chắc cũng giống nguyên tắc anh tuân làm thôi, khi nào Add ảnh Gif thì kiểm tra và tách ảnh gif lưu vào Imagelist rồi chạy qua các ảnhNếu chỉ dùng 1 control đọc ảnh gif thì làm sao cho nó di chuyển từ A -> B ứng với chuyển động được em.
Vâng đối với em chủ yếu nhìn cho vui mắt thay cho progressbar
Quãng 6 năm 8 tháng.
www.giaiphapexcel.com
Tự khen chút là trí nhớ em tuyệt vời ... gần như Anh làm cái gì mà em thấy thích kể cả trên 7 or 8 năm gì đó mà em vẫn nhớ ???!!!Quãng 6 năm 8 tháng.
Nguyên tắc thì đơn giản thôi. Chiếu phim là gì? Là chiếu các khung ảnh liên tiếp nhau theo một tốc độ nhất định, vd. 25 khung / 1 giây. Thế thôi. Hoạt hình thì nguyên lý cũng là thế. Chỉ là các khung là hình vẽ chứ không là hình chụp.
Thực ra Excel không phải là chương trình đồ họa, không dùng để tạo phim hoạt hình. Còn để chơi tí cho vui thì không cần tới control hay phụ thuộc vào code ngoài.
Nếu ta có 1 khung hình nhỏ hơn nền nhiều thì ta cũng có thể dịch chuyển khung hình trên nền đó để tạo nên chuyển động. Ví dụ thì là con cá trôi
Tạo popup khi kích vào một ô
xin bác xem lại, khi e chèn thêm hàng bên sheet Giadung thì popup nó ra thế này Thầy siwtom chỉ ra hướng đi cho việc Insert Picture thôi, còn những "linh tinh" khác thì tự giải quyết được bạn ơi, như đặt thuộc tính Picture trên Form, như canh đều hình ảnh, như lấy địa chỉ trên cells v.v.. thì...
Tức nếu ta muốn chiếu 25 khung hình trong 1 giây thì ta dùng đồng hồ, cứ 40 ms thì copy khung hình sang vị trí mới trên nền. Tất nhiên phải nhớ vị trí trước để sau đó trước khi copy sang vị trí mới thì phải xóa hình cũ ở vị trí trước.
Nhưng nếu ta có 16 ảnh thì ta cũng có thể dùng vd. Image. Cứ mỗi 40 ms thì ta nhập ảnh mới rồi hiển thị Image ở vị trí mới. Hiển thị Image ở vị trí mới chẳng qua là thay đổi Left và Top của Image. Ví dụ trong tập tin đính kèm. Tất nhiên làm như này hoạt hình thỉnh thoảng sẽ nháy nháy. Nhưng đây là cách chỉ chơi cho vui, ai cũng tự làm được, không cần nhờ người khác, không phụ thuộc vào code, control của người khác. Chơi trong Excel thế là đủ giải trí. Excel dùng để làm việc chứ không phải dùng để tạo hoạt hình. Tất nhiên nếu đã bỏ công viết phần mềm đồ họa trong vd. Delphi thì sẽ phải thực hiện các thao tác đồ họa chứ không thể chỉ load ảnh vào Image rồi dịch chuyển Image. Nhưng đó là phần mềm đồ họa chuyên nghiệp ở mức độ nào đó. Còn trong Excel người ta làm việc khác. Hoạt hình là chơi tí cho thỏa tò mò thôi.
cái này mới hay nè ... còn cái con vẹt bay bay kia chỉ vui vẻ thôiVí dụ này mục tiêu để ai đó biết dùng BSImageList trong BSAC, nó là control lưu trữ ảnh quan trọng phục vụ cho vài control hay dùng khác như BSTreeView, BSListView, BSListBox, BSComboBox, .... Game chỉ để thư giãn ... rồi lại phục vụ cho học tập tập khác thôi mà.
Hình ảnh dưới đây là kết hợp BSImageList, BSTreeView, BSTaskPaneX
View attachment 247182
Sẽ còn vài trò giải trí nữa....
Bác ơi bạn Vẹt nhỏ trên máy con không bay được , khi con kích vào Vẹt bay thì báo lỗi như ảnh kèm, xong tắt luôn Excel, Bác ạ.Dùng control Image để vẹt bay trên Form hay chèn picture để vẹt bay trên sheet vẫn chưa là gì to tát. Không cần control Image, không cần chèn picture mà vẹt bay trên desktop thì chỉ có vẹt "đại ca".
Bác ơi , Vẹt bài này thì bay được, bay tung tăng như video của anh Tuân , Bác ạ ahihiQuãng 6 năm 8 tháng.
Nguyên tắc thì đơn giản thôi. Chiếu phim là gì? Là chiếu các khung ảnh liên tiếp nhau theo một tốc độ nhất định, vd. 25 khung / 1 giây. Thế thôi. Hoạt hình thì nguyên lý cũng là thế. Chỉ là các khung là hình vẽ chứ không là hình chụp.
Thực ra Excel không phải là chương trình đồ họa, không dùng để tạo phim hoạt hình. Còn để chơi tí cho vui thì không cần tới control hay phụ thuộc vào code ngoài.
Nếu ta có 1 khung hình nhỏ hơn nền nhiều thì ta cũng có thể dịch chuyển khung hình trên nền đó để tạo nên chuyển động. Ví dụ thì là con cá trôi
Tạo popup khi kích vào một ô
xin bác xem lại, khi e chèn thêm hàng bên sheet Giadung thì popup nó ra thế này Thầy siwtom chỉ ra hướng đi cho việc Insert Picture thôi, còn những "linh tinh" khác thì tự giải quyết được bạn ơi, như đặt thuộc tính Picture trên Form, như canh đều hình ảnh, như lấy địa chỉ trên cells v.v.. thì...
Tức nếu ta muốn chiếu 25 khung hình trong 1 giây thì ta dùng đồng hồ, cứ 40 ms thì copy khung hình sang vị trí mới trên nền. Tất nhiên phải nhớ vị trí trước để sau đó trước khi copy sang vị trí mới thì phải xóa hình cũ ở vị trí trước.
Nhưng nếu ta có 16 ảnh thì ta cũng có thể dùng vd. Image. Cứ mỗi 40 ms thì ta nhập ảnh mới rồi hiển thị Image ở vị trí mới. Hiển thị Image ở vị trí mới chẳng qua là thay đổi Left và Top của Image. Ví dụ trong tập tin đính kèm. Tất nhiên làm như này hoạt hình thỉnh thoảng sẽ nháy nháy. Nhưng đây là cách chỉ chơi cho vui, ai cũng tự làm được, không cần nhờ người khác, không phụ thuộc vào code, control của người khác. Chơi trong Excel thế là đủ giải trí. Excel dùng để làm việc chứ không phải dùng để tạo hoạt hình. Tất nhiên nếu đã bỏ công viết phần mềm đồ họa trong vd. Delphi thì sẽ phải thực hiện các thao tác đồ họa chứ không thể chỉ load ảnh vào Image rồi dịch chuyển Image. Nhưng đó là phần mềm đồ họa chuyên nghiệp ở mức độ nào đó. Còn trong Excel người ta làm việc khác. Hoạt hình là chơi tí cho thỏa tò mò thôi.
Rất có thể. Do tôi không có office 64 bit để test và tôi cũng không kiểm tra kỹ.
StopTimerDC = GetDC(0)Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)Bạn thử sửa thành xem sao
#If VBA7 Then
Private Type GDIPlusStartupInput
GdiPlusVersion As Long
DebugEventCallback As LongPtr
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
#Else
Private Type GDIPlusStartupInput
GdiPlusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
#End IfCon thử cách trên chưa đến dòng breakpoint thì Excel đóng xuống và treo rồi không làm gì được Bác ạ.
Đúng là thay đoạn này Excel không bị treo và đơ nữa Bác, thao tác bình thường nhưng không nhìn thấy Vẹt Bác ạ.
Thôi thì bạn nghỉ chơi đi. Vì thực ra cũng chỉ để chơi thôi mà.
