Office中国论坛/Access中国论坛

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

作者: secowu 时间: 2005-7-14 22:43
标题: [求助]这代码如何？能令标签的标题来回移动并变换颜色吗？
请问下面的代码能令标签的标题来回移动并变换颜色吗？

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 时间: 2005-7-14 22:45
自己试试不就吱了？

作者: secowu 时间: 2005-7-14 23:18
没试出效果，所以来问的嘞

作者: wanshan 时间: 2005-7-15 00:33
这里有一个类似的例子：[attach]11800[/attach]

作者: lisj 时间: 2007-12-9 12:20
看看

作者: 109091372 时间: 2008-1-6 14:00
下载个东西都要老回帖我的孩啊。，。，，。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)