全部显示

GetOption 方法返回“选项”对话框中一个选项的当前值。通过单击“工具”菜单中的“选项”命令可打开该对话框。Variant 型，可读/写。

expression.GetOption(OptionName)

expression    必需。返回“应用于”列表中的一个对象的表达式。

OptionName     必需，String 型。 选项的名称。有关 optionname   参数字符串的列表，请参阅在 Visual Basic 中设置选项。

说明

GetOption 和 SetOption 方法提供一种从 Visual Basic 代码更改环境选项的方式。利用这些方法，可以设置或读取“选项”对话框中除“模块”选项卡上选项之外的任何可用选项设置。

可用的选项设置取决于要设置的选项的类型。以下是三种常规类型的选项：

 

 

对于用户能够通过选中或清除复选框来设置的选项，如果选项设置为 Yes（选中复选框），则 GetOption 方法返回 True (–1)，如果选项设置为 No（清除复选框），则该方法返回 False (0)。要使用 SetOption 方法来设置这种类型的选项，指定 setting 参数为 True 或 False，如下面的示例所示：

Application.SetOption "Show Status Bar", True

对于用户通过键入字符串或数值来设置的选项，GetOption 方法返回显示在对话框中的设置。下面的示例返回一个包含左边距设置的字符串：

Dim varSetting As Variant

varSetting = Application.GetOption("Left Margin")

要使用 SetOption 方法来设置这种类型的选项，可指定将在对话框中键入的字符串或数值。下面的示例将默认窗体模板设置为 OrderTemplate:

Application.SetOption "Form Template", "OrderTemplate"

对于要从列表框或组合框中选择内容的选项，GetOption 方法返回对应于列表中设置位置的一个数字。编号从零开始，所以对第一项，GetOption 方法返回 0，对第二项，将返回 1，依此类推。例如，如果“表/查询”选项卡的“默认字段类型”设置为“自动编号”，即列表中的第六项，GetOption 方法将返回 5。

要设置此选项的类型，应用数字来指定选项在列表中的位置，这和 SetOption 方法的 setting 参数一样。下面的示例将 Default Field Type 选项设置为“自动编号”：

Application.SetOption "Default Field Type", 5

其他选项通过单击“选项”对话框中选项组的选项按钮来设置。在 Visual Basic 中，这些选项也可以通过指定选项组中的特定选项的位置来设置。组中的第一个选项编号为 0，第二个为 1，依次类推。例如，如果“窗体/报表”选项卡上的“选定方式”选项设置为“部分包含”，GetOption 方法将返回 0，如下面的示例所示：

Debug.Print Application.GetOption("Selection Behavior")

如果要设置的选项是选项组中的成员，只需指定此选项在组中的索引编号即可。以下示例将“选定方式”设置为“全部包含”：

Application.SetOption "Selection Behavior", 1

注释

 

 

 

当退出 Microsoft Access 时，可以将所有选项重新设置为他们的原有设置，方法是对所有更改了的选项使用 SetOption 方法。首先创建公用变量来保存原有设置的值。然后在窗体的 Close 事件过程，或自定义退出过程（用户要退出应用程序必须运行的过程）中包括用于重新设置选项的代码。