PDA

View Full Version : การทำ Animation ให้กับ Text



ie36022
2 Jun 2007, 08:07
ผมอยากทราบว่ามีวิธีการทำให้ตัวอักษรนี้เคลื่อนที่ได้มั้ยครับ หรือทำให้เหมือนกับว่ามันเคลื่อนที่ไปทางขวาได้ พอหมดข้อความก็ให้เลื่อนใหม่ เคยใช้ TextBox ดูแล้ว แต่ไม่สามารถพิมพ์อะไรใน Sheet ได้เนื่องจากต้องเขียน VBA ให้เลือก Textbox ตลอดเวลาเพื่อทำให้มันวิ่งไปทางขวา ไม่ทราบว่ามีวิธีไหนบ้างครับ ที่ทำให้ Text วิ่งได้แล้วยังสามารถทำงานไปได้ด้วยใน Sheet เดียวกัน ขอบคุณครับ

ie36022
2 Jun 2007, 23:48
ตอนนี้ผมก็ทำได้เท่านี้ครับ ซึ่งไม่สามารถทำอะไรบน Sheet ได้เลย

zv735
3 Jun 2007, 01:18
ใส่
DoEvents
ไว้ใน For Loop ครับ
ทำให้ไป Click ที่อื่นได้



For StartText = 1 To countStrInfo
DoEvents
strInfo = Right(strInfo, numStrInfo)

numStrInfo = numStrInfo - 1
Range("B1").Value = strInfo
Sleep 500
Next StartText

ie36022
3 Jun 2007, 19:58
DoEvents นี่ใช้งานยังไงครับ แต่ก็ทำให้ผมสามารถทำอะไรกับ Worksheet ได้ แต่ก็ต้องมาสั่งให้ข้อความเคลื่อนที่ใหม่อีกครั้ง แต่ก็ขอบคุณครับ ยังไงจะลองนำไปประยุกต์ใช้ต่อไป

zv735
6 Jun 2007, 10:34
ลองดู File แนบนะครับ

ขอบคุณครับ

ie36022
6 Jun 2007, 22:03
อันนี้เขียนโค๊ดซับซ้อนมากเลยครับ ไม่รู้ว่าจะแกะโค๊ดเข้าใจหรือเปล่า แต่ก็ควรค่าแก่การศึกษาและตรงกับความต้องการมากครับ ขอบคุณครับ