FrontPage VBA教程:Currency属性

返回或设置FpCurrencyFieldFormat 枚举常数,该常数用于确定货币域内所用的货币类型。可读写。

FpCurrencyFieldFormat 可以是下列这些 FpCurrencyFieldFormat 常数之一。
fpCurrencyFieldArgentina
fpCurrencyFieldAustralia
fpCurrencyFieldAustria
fpCurrencyFieldBelgiumBF
fpCurrencyFieldBelgiumFB
fpCurrencyFieldBolivia
fpCurrencyFieldBrazil
fpCurrencyFieldCanada
fpCurrencyFieldCanadaF
fpCurrencyFieldChile
fpCurrencyFieldColombia
fpCurrencyFieldCostaRica
fpCurrencyFieldCzech
fpCurrencyFieldDenmark
fpCurrencyFieldDominicanRepublic
fpCurrencyFieldEcuador
fpCurrencyFieldElSalvador
fpCurrencyFieldEuro
fpCurrencyFieldEuroPostfix
fpCurrencyFieldFinland
fpCurrencyFieldFrance
fpCurrencyFieldGermany
fpCurrencyFieldGreece
fpCurrencyFieldGuatemala
fpCurrencyFieldHonduras
fpCurrencyFieldHongKong
fpCurrencyFieldHungary
fpCurrencyFieldIreland
fpCurrencyFieldItaly
fpCurrencyFieldJapan
fpCurrencyFieldKorea
fpCurrencyFieldMexico
fpCurrencyFieldNetherlands
fpCurrencyFieldNewZealand
fpCurrencyFieldNicaragua
fpCurrencyFieldNorway
fpCurrencyFieldPanama
fpCurrencyFieldParaguay
fpCurrencyFieldPeru
fpCurrencyFieldPoland
fpCurrencyFieldPortugal
fpCurrencyFieldPRChina
fpCurrencyFieldRussia
fpCurrencyFieldSingapore
fpCurrencyFieldSlovakia
fpCurrencyFieldSlovenia
fpCurrencyFieldSouthAfrica
fpCurrencyFieldSpain
fpCurrencyFieldSweden
fpCurrencyFieldSwitzerland
fpCurrencyFieldTaiwan
fpCurrencyFieldTurkey
fpCurrencyFieldUnitedKingdom
fpCurrencyFieldUnitedStates
fpCurrencyFieldUruguay
fpCurrencyFieldVenezuela

expression.Currency

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

说明

此域的默认值由用户个人设置确定。

VBA示例

下列示例创建一个 ListFieldCurrency 类型的新域,并将默认货币设置更改为显示加拿大元。


Sub CreateCurrencyField()
'Add new Currency field
    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objFldChoice As ListFieldCurrency
    Dim strName As String
    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "NewCurrencyField"
    'Add new Field of type fpFieldCurrency to list
    objLstFlds.Add Name:=strName, Description:="New Choice value Field", _
                   Fieldtype:=fpFieldCurrency, Required:=True
    Set objFldChoice = objLstFlds.Item("NewCurrencyField")
    'Change currency type to Canadian
    objFldChoice.Currency = fpCurrencyFieldCanada
    MsgBox "A new field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & "."
End Sub

上页:FrontPage VBA教程:Creator属性 下页:FrontPage VBA教程:currentStyleState属性

FrontPage VBA教程:Currency属性

FrontPage VBA教程:currentStyleState属性 FrontPage VBA教程:defaultCharset属性
FrontPage VBA教程:DefaultValue属性 FrontPage VBA教程:DefaultViewPage属性
FrontPage VBA教程:Description属性 FrontPage VBA教程:DesignSecurity属性
FrontPage VBA教程:DisplayForm属性 FrontPage VBA教程:DisplayFormat属性
FrontPage VBA教程:Document属性 FrontPage VBA教程:DocumentHTML属性
FrontPage VBA教程:domain属性 FrontPage VBA教程:DownloadTime属性
FrontPage VBA教程:EditForm属性 FrontPage VBA教程:EditSecurity属性
FrontPage VBA教程:embeds属性 FrontPage VBA教程:Extension属性
FrontPage VBA教程:external属性 FrontPage VBA教程:fgColor属性
FrontPage VBA教程:Fields属性 FrontPage VBA教程:File属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号