WPS 基础接口 > 文字 API 参考 > Application > 属性 > Application.FeatureInstall 属性
返回或设置 WPS 将如何处理对所需功能尚未安装的方法和属性的调用。MsoReatureInstall 类型，可读写。

语法

表达式.FeatureInstall

表达式   必选。一个代表 Application 对象的变量。

说明

当某个功能正在安装时，可以使用 msoFeatureInstallOnDemandWithUI 常量来防止用户认为应用程序没有响应。如果希望只有开发者才能安装新功能，则使用 msoFeatureInstallNone 常量。

如果将 DisplayAlerts 属性设为 False，则即使将 FeatureInstall 属性设为 msoFeatureInstallOnDemand，也不会提示用户安装新功能。如果将 DisplayAlerts 属性设置为 True，同时将 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，则会显示安装进度指示器。

示例

本示例激活一个新的 ET 实例并检查 FeatureInstall 属性的值。如果该属性设置为 msoFeatureInstallNone，则代码显示一个消息框，以询问用户是否要更改属性设置。如果用户回答“是”，则此属性将设置为 msoFeatureInstallOnDemand。

注释
为使该示例正常运行，必须添加一个对 ET 对象库的引用。
示例代码
Dim EtApp As New Ket.Application
Dim intReply As Integer

With EtApp
    If .FeatureInstall = msoFeatureInstallNone Then
        intReply = MsgBox("Uninstalled features for " _
            & "this application may " & vbCrLf _
            & "cause a run-time error when called." _
            & vbCrLf & vbCrLf _
            & "Would you like to change this setting" & vbCrLf _
            & "to automatically install missing features?", _
            vbYesNo, "Feature Install Setting")
        If intReply = vbYes Then
            .FeatureInstall = msoFeatureInstallOnDemand
        End If
    End If
End With


请参阅