FrontPage VBA教程:MaxLength属性

返回或设置 Long 类型的值,该值代表域的最大长度(以字符为单位)。可读写。

expression.MaxLength

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

VBA示例

下列示例将 fpFieldSingleLine 类型的新域添加到ListFields集合,并显示新域的名称、它所添加到的列表以及新域的最大长度(以字符数为单位)。


Sub CreateSingleLineField()
'Add new SingleLineField
    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objListField As ListFieldSingleLine
    Dim strName As String
    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "AlternativeName"
    'Add new field of type fpFieldSingleLine to list
    objLstFlds.Add Name:=strName, Description:="Numeric Total Field", _
                   Fieldtype:=fpFieldSingleLine
    Set objListField = objLstFlds.Item("AlternativeName")
    MsgBox "A new field named " & strName & _
           " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name &
            _ ". The maximum length of the " & _
           "field is " & objListField.MaxLength & " characters."
End Sub

上页:FrontPage VBA教程:MaximumValue属性 下页:FrontPage VBA教程:MetaTag属性

FrontPage VBA教程:MaxLength属性

FrontPage VBA教程:MetaTag属性 FrontPage VBA教程:mimeType 类型
FrontPage VBA教程:MinimumValue属性 FrontPage VBA教程:MonthsShown属性
FrontPage VBA教程:mseMode属性 FrontPage VBA教程:Name属性
FrontPage VBA教程:nameProp属性 FrontPage VBA教程:NavigationNode属性
FrontPage VBA教程:NewForm属性 FrontPage VBA教程:NewPageorWeb属性
FrontPage VBA教程:Next属性 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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号