Office中国论坛/Access中国论坛

标题: 如何在窗体中动态显示实时时间？ [打印本页]

作者: yorkjun 时间: 2003-1-23 19:29
标题: 如何在窗体中动态显示实时时间？
谁可以帮我，我要在窗体中放一个文本框，用来动态显示当前的实时时间，用窗体的Timer事件，可以实现每秒刷新，可是因为用的是文本框，如何让它不可以修改。或者用类似状态栏显示，可我没找到相关内容，现放上源码，请版主费心看一下，有没有别的实现方法：
Option Compare Database
Option Explicit

Private Sub Form_Load()
Dim strToday As String          ‘Form Load时显示时间，并设置定时器为1秒
Me.TimerInterval = 1000
strToday = Time
strToday = Date & "  " & strToday

txtToday.SetFocus
txtToday = strToday

txtStaffID.SetFocus
End Sub

Private Sub Form_Timer()
Dim strToday As String          ‘用定时器重复显示时间

strToday = Time
strToday = Date & "  " & strToday

txtToday = strToday
End Sub

作者: 徐阿鹏 时间: 2003-1-23 20:00
Private Sub Form_Load()
  Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()

  Me.txtDate.Value = Date
  Select Case Weekday(Date, vbMonday)
      Case 1
         Me![txtWeek] = "星期一"
      Case 2
         Me![txtWeek] = "星期二"
      Case 3
         Me![txtWeek] = "星期三"
      Case 4
         Me![txtWeek] = "星期四"
      Case 5
         Me![txtWeek] = "星期五"
      Case 6
         With txtWeek
            .ForeColor = 255
         End With
         Me![txtWeek] = "星期六"
      Case 7
         With txtWeek
            .ForeColor = 255
         End With
         Me![txtWeek] = "星期日"
  End Select
  Me.txtTime.Value = Now()
End Sub

作者: 徐阿鹏 时间: 2003-1-23 20:04
下面的是星期几的显示
设定txtweek，txtTime，txtDate三个文本框

作者: yorkjun 时间: 2003-1-24 18:33
如果用你的方法，窗体打开后的第一秒内是没有时间显示的。

作者: zhengjialon 时间: 2003-1-25 21:09
那就在窗体加载的时候，设第步先设时间的值，再运行时间程序。

作者: yachtz 时间: 2003-2-14 21:48
将文本的属性[B]Locked[/B]设置为true即可

作者: yibor 时间: 2003-3-3 03:18
哪位大侠能帮忙啊，我要在运行自已的窗体时，如何把系统的窗口全关完啊

作者: jrliang 时间: 2003-3-27 22:09
最好用label控件来显示。

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