窗体中图片如何动起来

poly

现在的窗体越来越好，有些人在窗体的上方加入会动的图片，如我贴子下面的签名，它本来是要动的，但一般弄进去是不会动的，要怎么样才能让它动啊？最好不要用代码

一点通

不用代码不可能

huangqinyong

用gif格式图片。

xmxiaohe

用代码怎么弄怎么写？

bergyan

最简单的在time事件里弄,初学者的基本技巧

poly

麻烦大家说明白些，都在些啥方法，都要怎么弄啊，谢谢啊

poly

GIF好象不行

haileng

Option Compare Database
Dim text As String
Dim text1 As String
Dim lentext As Integer
Dim i As Integer
Dim d As Integer

Private Sub Form_Load()
i = 1
d = -6000
text = "璃秶釬:lyp6160        唳掛ㄩ1.0       "
text1 = "薊炵源宒:lyp6160@163.com"
lentext = Len(text)
Me.TimerInterval = 250
Me.湖趼虴彆.Caption = ""
Me.湖趼虴彆1.Caption = ""
End Sub


Private Sub Form_Timer()
If i = lentext Then
    i = 0
    d = -6000
    Me.湖趼虴彆.Caption = " "
    Me.湖趼虴彆1.Caption = " "
Else
    Me.湖趼虴彆1.Caption = Me.湖趼虴彆1.Caption & Mid(text1, i, 1)
    Me.湖趼虴彆.Caption = Me.湖趼虴彆.Caption & Mid(text, i, 1)
    Me.湖趼虴彆.ForeColor = d
    Me.湖趼虴彆1.ForeColor = d
End If
i = i + 1
d = d + 300
End Sub

poly

   谢谢