TIP : Chạy ảnh động trên Form ! Thật hay Đùa ?

[glasseggs]

Đùa đấy, cho đến phiên bản 2010 làm gì đã hỗ trợ ảnh gif trên Form đâu. Nhưng đã lỡ rồi đâm lao phải theo lao thôi, hôm nay mình xin trình bày 1 mẹo sau để cũng có thể có cái hình động đậy trên Form, yên tâm là nó động đậy như thât. Nao chúng ta cùng vào bếp :
Nguyên liệu :
Phần mềm chỉnh sửa ảnh động,mục đích để có thể export file gif ra thành từng file tĩnh .
Giả sử file gif của mình export ra có 9 file tĩnh (tên từ Image0 đến 8)thì code như sau :
Đặt Image1 visible là Yes,còn lại No hết.

Trên sự kiện Timer Interval đặt 100 tương đương 1/10 s (Cái này tuỳ thuộc file gif để chạy cho mượt ).
Trên sự kiện On timer code như sau :

Private Sub Form_Timer()

If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
Else
If Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
Else
If Image3.Visible = True Then
Image3.Visible = False
Image4.Visible = True
Else
If Image4.Visible = True Then
Image4.Visible = False
Image5.Visible = True
Else
If Image5.Visible = True Then
Image5.Visible = False
Image6.Visible = True
Else
If Image6.Visible = True Then
Image6.Visible = False
Image7.Visible = True
Else
If Image7.Visible = True Then
Image7.Visible = False
Image8.Visible = True
Else
If Image8.Visible = True Then
Image8.Visible = False
Image0.Visible = True
Else
If Image0.Visible = True Then
Image0.Visible = False
Image1.Visible = True
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Demo :

http://www.mediafire.com/?m3m3nmkz0n5

 

[sinhvienpy89]

Ðề: TIP : Chạy ảnh động trên Form ! Thật hay Đùa ?

File có đuôi *.accd của Ac2k7 thì em chụi ngay,nên bạn cho Save As theo *.mdb nhen!

 

[glasseggs]

Ðề: TIP : Chạy ảnh động trên Form ! Thật hay Đùa ?

Cái này nhờ ai thui,chứ mình đang truy cập qua điện thoại GPRS nên chịu không up lên được,cái kia là up nhờ đó.
Bạn làm theo hướng dẫn là ngon mà.