ListFieldMultiLine 对象

         
ListFieldMultiLine

包含关于用于显示多行文本信息的域的信息。例如,ListFieldMultiLine 对象可以用于显示说明和摘要,这些说明和摘要通常需要多行文本。

使用 ListFieldMultiLine 对象

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

使用 ListFields.Add 方法可以将 fpFieldMultiLine 类型的域添加到 ListFields 集合中。

下列示例将名为 Description 的 fpFieldMultiLine 类型的新域添加到 ListFields 集合中。该子例程显示了新域的名称及其包含的行数。

Sub CreateMultiLine()
'Add new MultiLine Field
    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objLstFldMulti As ListFieldMultiLine
    Dim strName As String

    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "Description"
    'Add new Field of type fpFieldMultiLine to list
    objLstFlds.Add Name:=strName, Description:="Description Field", _
                   Fieldtype:=fpFieldMultiLine
    Set objLstFldMulti = objLstFlds.Item(strName)
    MsgBox "A new field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & ". It contains " & _
           objLstFldMulti.NumberOfLines & " lines."

End Sub