มีตัวอย่างภาพเคลื่อนไหวดังกล่าวติดมาให้กับ VB 6.0 ครับ รู้สึกว่าจะเป็น AVI ผมพยายามค้นหาตัวอย่างอยู่ ถ้าเจอเมื่อผมจะเอามาฝากนะครับ หรือจะใช้ GifAnimation ก็ได้ครับ ให้ดูที่ http://agserver.kku.ac.th/basiceng/Computer/ActiveXReg.htm ปัญหาน่าจะอยู่ตรงว่าจะให้มันหยุดแสดงเมื่อทำงานเสร็จแล้วมากกว่าครับ

เอาไว้พรุ่งนี้(วันจันทร์) ผมจะส่ง Gif89.dll(D/L มาจากไหนลืมแล้วครับ) พร้อมคำอธิบาย(ภาษาอังกฤษ) ถึงวิธีใช้ให้(คงลักษณะคล้ายกับที่ อ.สุภาพกล่าวไว้แล้ว อาจจะต้องมีการ Register ตัว DLL ลงที่เครื่องก่อนครับ) และมีตัวอย่างทำ Animation โดยใช้ Code ให้ไปศึกษาด้วยครับ แต่ผมยังไม่เคยลองใช้ดูซักอย่างเลยนะครับ เพียงแต่เห็นว่ามันแปลกดีครับ ส่วนตรงปัญหาที่ว่าจะให้มันหยุดแสดงนั้น ..ผมว่ามันน่าจะคล้ายๆลักษณะ การใช้คำสั่ง Hourglass คือใช้คำสั่งตามลำดับการทำงานลงมา เป็นต้นว่าใส่ภาพไว้ใน Form แล้วก็เรียกเปิดขึ้นมา พองานเสร็จก็ปิดฟอร์มนี้ไป ทำนองนี้ครับ..ไม่รู้จะใช้ได้ป่าว..

ตัวอย่างอยู่ที่ http://agserver.kku.ac.th/baiseng/Animation.zip และ http://agserver.kku.ac.th/baiseng/anigif.zip ครับ

ขอบคุณคุณ BADMan อย่างมากครับสำหรับตัวอย่างทั้ง 2 และผมหาไฟล์ AVI ที่รับปากไว้ว่าจะหาให้ ดูที่ http://agserver.kku.ac.th/baiseng/FILECOPY.zip และ http://agserver.kku.ac.th/baiseng/FILEDEL.zip ครับ

ขออภัยครับ พิมพ์ผิด เอาใหม่นะครับ http://agserver.kku.ac.th/basiceng/Animation.zip http://agserver.kku.ac.th/basiceng/anigif.zip http://agserver.kku.ac.th/basiceng/FILECOPY.zip http://agserver.kku.ac.th/basiceng/FILEDEL.zip

Not again! Sorry for the typo. http://agserver.kku.ac.th/basiceng/animgif.zip

อ.สุภาพ ครับ ผม D/L File เรื่อง Register ActiveX Control ของ อาจารย์ ที่ใช้กับ Access 97 ไปทดลองดู สามารถใช้งานได้ดีครับ ใน Access2000 เห็น อ.สุภาพ แจ้งว่า สำหรับ Access2000 ก็ใช้ คำสั่ง Currentproject.Path ได้เลย (ผมไม่เข้าใจวิธีทำครับ) เนื่องจากผมใช้ Access2000 รบกวน อ.สุภาพ ทำเป็นตัวอย่าง ด้วยครับ หรือ ถ้า อาจารย์ไม่ว่าง ผมต้องแก้ไขตรงจุดไหนบ้างครับ ถ้าเป็น Access 2000 ขอบพระคุณมากๆ ครับ Suchat ชลบุรี

ให้แทน Private Sub cmRegister_Click() Call Shell(ap_AppDir & "Regsvr32.exe " & ap_AppDir & "Gif89.dll", 1) End Sub ด้วย Private Sub cmRegister_Click() Call Shell(Currentproject.Path & "\Regsvr32.exe " & Currentproject.Path & "\Gif89.dll", 1) End Sub แต่ทุกเวอร์ชันสามารถใช้ตามตัวอย่างที่ผมให้ได้เลยไม่ต้องเปลี่ยนครับ ที่ผมบอกว่าใช้ Currentproject.Path แทน ap_AppDir() เพราะว่าใน Access มันไม่มีคำสั่งดังกล่าว จึงต้องเขียนฟังก์ชันขึ้นมาเอง

อ.สุภาพ ครับ ผมใช้งานได้แล้วครับ เหมือนที่ อ.สุภาพ บอกครับ คือ ทุกเวอร์ชันสามารถใช้ตามตัวอย่างที่ผมให้ได้เลยไม่ต้องเปลี่ยนครับ แต่ ต้องนำ File ทั้งหมดไปไว้ใน Folder เดียวกัน เช่น C:\ชื่อ Folder จะไม่มีปัญหาครับ ขอบพระคุณ มากๆ ครับ Suchat ชลบุรี