Visual Basic

Home

Visual Basic Tutorial
Knowledge Developer Database Internet Resource
Common Control 2
1. Common Control 2
2. Animation
3. Month View
4. Date Time Picker
5. Flat Scroll Bar
 
Visual Basic Tutorial
1. Visual Basic 6
2. ฟอร์ม
3. Intrinsic Control
4. ตัวแปรและ Procedure
5. Class
6. Common Control1
7. Common Control2
8. ActiveX Control
9. Interface
10. ฐานข้อมูล
11. Database Control
 
Developer
Visual Basic
Microsoft Access
Microsoft Excel
 

Animation

Animation สามารถเล่นไฟล์ AVI ย้อนกลับได้ทำให้สามารถเพิ่มภาพเคลื่อนไหวอย่างง่ายในโปรแกรมได้ Animation สนับสนุนเฉพาะไฟล์ AVI ไม่รวมเสียงและไฟล์ที่บีบอัด หรือไฟล์ที่บีบอัดด้วย Run-Length Encoding (RLE)

Animation ใช้ทำงานเฉพาะสำหรับภาพเคลื่อนไหวพื้นฐานที่ฝังติด เช่น ภาพใน \common \Graphics \AVIS ภายใต้โฟลเดอร์หลักของ Microsoft Visual Basic เช่น การแสดงภาพกระดาษบินข้ามจากโฟล์เดอร์ไปอีกโฟล์เดอร์ขณะที่กำลังทำการคัดลอก

Animation มีคุณสมบัติหลัก 3 ค่า คือ คุณสมบัติ Center และคุณสมบัติ BackStyle สามารถตั้งค่าได้เฉพาะเวลาออกแบบ และเป็นแบบอ่านอย่างเดียว เมื่อเรียกใช้ ถ้าตั้งค่า Center เป็น True ไฟล์ AVI จะแสดงที่กึ่งกลางใน Window ของ Animation คุณสมบัติ BackStyle สามารถกำหนดเป็น 0-cc2BackStyleTransparent (เป็นค่าเริ่มต้น ซึ่งแสดงสีพื้นหลังของตัว Control) 1-cc2BackStyleOpaque (แสดงพื้นหลังของไฟล์ AVI) ส่วนคุณสมบัติ AutoPlay สามารถตั้งค่าได้ตลอดเวลา ถ้าตั้งค่าเป็น True จะเริ่มต้นโดยอัตโนมัติทันทีที่โหลดไฟล์ AVI

การเริ่มภาพเคลื่อนไหว

ให้เริ่มจาก เปิดไฟล์ AVI ด้วยเมธอด Open
Animation.Open "C:\Program Files\Visual studio\Vb6\Graphics\AVIs\fileCopy.avi "

การเริ่มต้นโดยใช้คำสั่ง ให้ใช้เมธอด Play

Play [Repeat Count], [Short Frame], [End Frame]
Repeat Count จำนวนครั้งที่เรียกใช้ภาพเคลื่อนไหว (ค่าเริ่มต้น -1 เล่นซ้ำไม่จำกัด)
Start Frame เฟรมเริ่มต้น (ค่าเริ่มต้น 0, เฟรมแรก)
End Frame เฟรมสุดท้าย (ค่าเริ่มต้น -1, เฟรมสุดท้ายของไฟล์ AVI)

การหยุดภาพเคลื่อนไหว ถ้าตั้งค่าคุณสมบัติ AutoPlay เป็น True การหยุดให้ตั้งค่า AutoPlay เป็น False ถ้าใช้เมธอด Play การหยุดให้ใช้เมธอด Stop การออกจากการทำงานและทั้งหน่วยความจำบางส่วนให้เมธอด Close

Private Sub cmdStart_Click ( )
   Animation.Open "C:\Program Files\Visual studio\Vb6\Graphics\AVIs\fileCopy.avi"
   Animation.Play
End Sub

Private Sub cmdStop_Click ( )
   Animation.Stop
   Animation.Close
End Sub

ดาวน์โหลดตัวอย่าง (Animate.vbp)

 

  

สงวนลิขสิทธิ (C) widebase