[求助]这代码如何？能令标签的标题来回移动并变换颜色吗？

secowu

请问下面的代码能令标签的标题来回移动并变换颜色吗？

Private Sub Form_Timer()

Dim i As Long

For i = 2 To i < 1E+308

If Me.标签3.Caption <> " " Then

        'Me.标签3.Caption = DLookup("Memo", "Access", "Topic='" & txt & "'")

' 这里调用一个叫ACCESS的表里的内容来作为标签的标题



        'Me.Recordset.MoveLast

        Me.Recordset.Move -Int(Rnd(Now) * Me.Recordset.RecordCount)

        Me.标签3.ForeColor = Int(Rnd(Now) * 1234567)

        Me.标签3.Caption = Mid(Me.标签3.Caption, 2)

    Next i

    i = i + 2

    End If

       End Sub

[此贴子已经被作者于2005-7-14 14:44:30编辑过]

swx

自己试试不就吱了？

secowu

没试出效果，所以来问的嘞

wanshan

这里有一个类似的例子：

lisj

看看

109091372

下载个东西都要老回帖  我的孩啊。，。，，。