FrontPage VBA教程:NumberOfLines属性

返回或设置 Long 类型的值,该值代表域中要显示的行数。可读写。

expression.NumberOfLines

expression  必选。返回ListFieldMultiLine对象的表达式。

VBA示例

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


Sub CreateMultiLine()
'Add new MultiLine Field
    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim ObjField As ListField
    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)
    objLstFldMulti.NumberofLines = 5
    MsgBox "A new field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & ". It contains " & _
           objLstFldMulti.NumberOfLines & " lines."
End Sub

上页:FrontPage VBA教程:Next属性 下页:FrontPage VBA教程:OlderFile属性

FrontPage VBA教程:NumberOfLines属性

FrontPage VBA教程:OlderFile属性 FrontPage VBA教程:onafterupdate属性
FrontPage VBA教程:onbeforeupdate属性 FrontPage VBA教程:onclick属性
FrontPage VBA教程:ondblclick属性 FrontPage VBA教程:ondragstart属性
FrontPage VBA教程:onhelp属性 FrontPage VBA教程:onkeydown属性
FrontPage VBA教程:onkeypress属性 FrontPage VBA教程:onkeyup属性
FrontPage VBA教程:onmousedown属性 FrontPage VBA教程:onmousemove属性
FrontPage VBA教程:onmouseout属性 FrontPage VBA教程:onmouseover属性
FrontPage VBA教程:onmouseup属性 FrontPage VBA教程:onreadystatechange属性
FrontPage VBA教程:onselectstart属性 FrontPage VBA教程:OperatingSystem属性
FrontPage VBA教程:OrganizationName属性 FrontPage VBA教程:pageContentElement属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号