窗体加载事件的一种方法

时　间:2007-10-15 12:57:27
作　者:十个火   ID：70  城市：闵行
摘　要:窗体加载事件的一种方法
正　文:

Private Sub Form_Load() '
'窗体初始化
Dim ctl As Control
   DoCmd.RunCommand acCmdAppMaximize
   DoCmd.Maximize
   NoRestore
tdate.Caption = Format(Now(), "dddddd")
tweek.Caption = WeekdayName(Weekday(Date))
For Each ctl In Me.Controls
   If TypeOf ctl Is Image Then
      ctl.OnMouseMove = "=MouseMove([image" + Right(ctl.Name, 2) + "])"
      ctl.OnMouseDown = "=mousedown([image" + Right(ctl.Name, 2) + "])"
      ctl.OnMouseUp = "=mouseup([image" + Right(ctl.Name, 2) + "])"
      If Val(Right(ctl.Name, 2)) >= 11 And Val(Right(ctl.Name, 2)) <= 19 Then
        ctl.Visible = True
      End If
   End If
Next ctl

For Each ctl In Me.Controls
   If TypeOf ctl Is Label Then
      If Val(Right(ctl.Name, 2)) >= 11 And Val(Right(ctl.Name, 2)) <= 19 Then
        ctl.Visible = True
      End If
   End If
Next ctl

Label1.SpecialEffect = 2
Label1.BackColor = 16765136
Label1.FontBold = 1
'设定窗体下面的时钟每秒刷新一次，也就是每秒运行一次Form_Timer里的语句
Me.TimerInterval = 1000

End Sub