ListFieldDateTime 对象

         
ListFieldDateTime

包含关于用来在 FrontPage 列表中显示日期和时间的域的信息。ListFieldDateTime 对象使您可以根据列表中的数据类型查看各种不同配置形式的日期和时间信息。

使用 ListFieldDateTime 对象

使用 ListFields.Item(index) 可以返回单个 fpListFieldDateTime 对象,其中 indexListFieldDateTime 类型的域的名称或位置序号。

使用 ListFields.Add 方法可以将 fpListFieldDateTime 类型的域添加到 ListFields 集合中。下列示例将名为 NewDateTimeField 的 fpListFieldDateTime 类型的新域添加到 ListFields 集合中。

Sub CreateDateTimeField()
'Add new Date/Time field

    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim strName As String

    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "NewDateTimeField"
    'Add new Field of type fpFieldDateTime to list
    objLstFlds.Add Name:=strName, Description:="New Date Time Field", _
                   Fieldtype:=fpFieldDateTime, Required:=True
    MsgBox "A new Field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & "."

End Sub