怎样写个全局函数，让主程序一启动就让工程中所有的DTpicker的时间都是当前日期

Question

如题？

Answer 1

DTPicker1.Value = Now
这样是不是就可以了

Answer 2

放在模块里，每个窗体的 Form_Load()中调用InitControlPublic Sub InitControl()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
      If TypeOf ctrl Is DTPicker Then
        ctrl.Value = Now
      End If
    Next
End Sub

Answer 3

模块：
Public Sub InitControl(frm As Form)
    Dim ctrl As Control
    For Each ctrl In frm.Controls
      If TypeOf ctrl Is DTPicker Then
        ctrl.Value = Now
      End If
    Next
End Sub
窗体：Private Sub Form_Load()
    InitControl Me
End Sub