窗体装载事件是在打开窗体时发生的.我应该怎么做?

李双　发表于：2008-03-17 10:33:25 　

窗体装载事件是在打开窗体时发生的,在这个事件过程中,主要实现为星期文本框的赋值.事件过程如下:

Private Sub form_load()
Select Case Weekday(Date)
    Case 1
        Me.txt星期 = "星期一"
    Case 2
        Me.txt星期 = "星期二"
    Case 3
        Me.txt星期 = "星期三"
    Case 4
        Me.txt星期 = "星期四"
    Case 5
        Me.txt星期 = "星期五"
    Case 6
        Me.txt星期 = "星期六"
    Case 7
        Me.txt星期 = "星期日"
End Select
End Sub

Top

马丽发表于：2008-03-17 10:36:27

有什么问题吗？

窗体装载事件是在打开窗体时发生的，就这句话而言不下确

窗体装载事件发生在OPEN事件之前

Top

钱玉炜发表于：2008-03-17 11:16:38

没有提出问题？？

Top

咱家是猫发表于：2008-03-17 14:32:45

窗体装载事件发生在OPEN事件之前???

是不是说反了?

楼主没提出问题,推测是不是想在窗体打开状态下跨了日期如何更新?

最后的方法应该是:

Static CurrentDay As Integer

用它来记录打开时的当前日期,然后用Timer隔段时间来检查下Day(Now())与CurrentDay是否相等,不相等的话,重新运行下刷新文本框,并更新下CurrentDay变量值.

最好把你的那段过程改成一个单独的子过程,方便随时调用.

Top

sosopain 发表于：2008-04-02 11:33:47

这个用format函数不是更方便?

Top

李双发表于：2008-05-20 20:20:10

其实我写错了.

正确的应该这样写的

Private Sub form_load()
Select Case Weekday(Date)
    Case 1
        Me.txt星期 = "星期日"
    Case 2
        Me.txt星期 = "星期一"
    Case 3
        Me.txt星期 = "星期二"
    Case 4
        Me.txt星期 = "星期三"
    Case 5
        Me.txt星期 = "星期四"
    Case 6
        Me.txt星期 = "星期五"
    Case 7
        Me.txt星期 = "星期六"
End Select
End Sub

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

窗体装载事件是在打开窗体时发生的.我应该怎么做?