标题: 窗体中图片如何动起来 [打印本页] 作者: poly 时间: 2007-4-7 09:01 标题: 窗体中图片如何动起来 现在的窗体越来越好，有些人在窗体的上方加入会动的图片，如我贴子下面的签名，它本来是要动的，但一般弄进去是不会动的，要怎么样才能让它动啊？最好不要用代码作者: 一点通 时间: 2007-4-7 19:21
不用代码不可能作者: huangqinyong 时间: 2007-4-7 23:29
用gif格式图片。作者: xmxiaohe 时间: 2007-4-7 23:50
用代码怎么弄怎么写？作者: bergyan 时间: 2007-4-8 00:27
最简单的在time事件里弄,初学者的基本技巧作者: poly 时间: 2007-4-9 08:25
麻烦大家说明白些，都在些啥方法，都要怎么弄啊，谢谢啊作者: poly 时间: 2007-4-9 08:27
GIF好象不行作者: haileng 时间: 2007-4-10 00:36
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 时间: 2007-4-10 03:47