谁能给一个文字在图片上平滑移动的例子？？

Question

用labell加循环的效果不好，不如用API函数。但用API也做不出像一些电子阅读器那样效果。
留下E_mail.给你一个API的例子.

Answer 1

好的，谢谢大哥了，我也想过用API做。
[email protected]
[email protected]

Answer 2

Dim CX As IntegerPrivate Sub Form_Load()
    Picture1.AutoRedraw = True
    Timer1.Interval = 100
    Timer1.Enabled = True
    CX = Picture1.CurrentX
End SubPrivate Sub Timer1_Timer()
    Picture1.Cls
    CX = CX + 50
    Picture1.CurrentX = CX
    Picture1.Print "闪烁"
End Sub一点都不闪好像很难，我没用用ｌａｂｅｌ，你试试和你的效果比怎么样

Answer 3

hnwx(为佳)大哥，你的例子非常好。。同时也非常感谢wxy_xiaoyu(然也)