Access VBA教程:GetOption方法

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

expression.GetOption(OptionName)

expression  必需。返回“Applies To”列表中的一个对象的表达式。

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事件过程,或自定义退出过程(用户要退出应用程序必须运行的过程)中包括用于重新设置选项的代码。

上页:Access VBA教程:GetHiddenAttribute方法 下页:Access VBA教程:GoToPage方法

Access VBA教程:GetOption方法

Access VBA教程:GoToPage方法 Access VBA教程:GUIDFromString方法
Access VBA教程:HyperlinkPart方法 Access VBA教程:ImportXML方法
Access VBA教程:InsertLines方法 Access VBA教程:InsertText方法
Access VBA教程:Item方法 Access VBA教程:Line方法
Access VBA教程:Modify方法 Access VBA教程:Move方法
Access VBA教程:NewAccessProject方法 Access VBA教程:NewCurrentDatabase方法
Access VBA教程:Nz函数 Access VBA教程:OfflineConflict方法
Access VBA教程:OpenAccessProject方法 Access VBA教程:OpenConnection方法
Access VBA教程:OpenCurrentDatabase方法 Access VBA教程:OpenFunction方法
Access VBA教程:Print方法 Access VBA教程:PrintSnapshot方法 (Snapshot Viewer)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号