Office中国论坛/Access中国论坛

标题: 谁能帮我 [打印本页]

作者: tone 时间: 2002-8-31 04:40
标题: 谁能帮我
在access中，我想产生这样效果：假设有四幅图片，将他们叠放在一块，现在是如何在access产生触发，让他们轮流显示，（我是一个新手，请帮帮我）[/B][em27]

作者: 竹笛 时间: 2002-8-31 04:46
Private Sub Form_Timer()
Select Case Right(Now(), 1)
Case 0
      Me.图像2.Visible = False
      Me.图像3.Visible = False
      Me.图像1.Visible = True
Case 2
      Me.图像1.Visible = False
      Me.图像3.Visible = False
      Me.图像2.Visible = True
Case 4
      Me.图像1.Visible = False
      Me.图像2.Visible = False
      Me.图像3.Visible = True
Case 6
      Me.图像1.Visible = True
      Me.图像2.Visible = False
      Me.图像3.Visible = False
Case 8
      Me.图像2.Visible = True
      Me.图像1.Visible = False
      Me.图像3.Visible = False
End Select
End Sub

作者: tone 时间: 2002-8-31 04:57
版主，谢谢你。一个星期前学access和vb,并编了一个简易的数据库，在编写过程中，有许多困难，一次偶然，我进入这个论坛，试着发帖子请教，没想到你这么快给我答复，十分感谢

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