如何在窗体中动态显示实时时间？

yorkjun

谁可以帮我，我要在窗体中放一个文本框，用来动态显示当前的实时时间，用窗体的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

徐阿鹏

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

徐阿鹏

下面的是星期几的显示
设定txtweek，txtTime，txtDate三个文本框

yorkjun

如果用你的方法，窗体打开后的第一秒内是没有时间显示的。

zhengjialon

那就在窗体加载的时候，设第步先设时间的值，再运行时间程序。

yachtz

将文本的属性[B]Locked[/B]设置为true即可

yibor

哪位大侠能帮忙啊，我要在运行自已的窗体时，如何把系统的窗口全关完啊

jrliang

最好用label控件来显示。