Access快速开发基础教程
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

实现Access窗体上显示数字时钟的方法和代码

时 间:2022-01-11 11:01:30
作 者:张旭军   ID:72228  城市:杭州
摘 要:实现Access窗体上显示数字时钟的方法和代码。
正 文:

窗体上显示数字时钟的方法和代码,步骤如下:

1》在窗体中选择一个文本框,取名为Time1   
     设置显示大小,居中。边框为透明【目的是与窗体颜色一体】。
2》在窗体中点击最左侧上方“□”   
     在右侧的属性表中“全部”“计时器间隔=1000【间隔1秒显示】”
3》在“计时器触发=代码生成器”输入以下代码:

    Private Sub Form_Timer()
       Dim NowTime As Date
       NowTime = VBA.FormatDateTime(Now(), vbLongTime)
       Me.Time1 = NowTime
   End Sub

4》保存代码,返回即可实现数字时钟显示。

如下图:

点击图片查看大图


效果如下图:

点击图片查看大图



Access软件网QQ交流群 (群号:115180141)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助