GetOption 方法
內(nèi)容
GetOption 方法返回“選項(xiàng)”對(duì)話框中一個(gè)選項(xiàng)的當(dāng)前值。通過單擊“工具”菜單中的“選項(xiàng)”命令可打開該對(duì)話框。Variant 型，可讀/寫。
expression.GetOption(OptionName)
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
OptionName 必需，String 型。 選項(xiàng)的名稱。有關(guān) optionname 參數(shù)字符串的列表，請(qǐng)參閱在 Visual Basic 中設(shè)置選項(xiàng)。
說明
GetOption 和 SetOption 方法提供一種從 Visual Basic 代碼更改環(huán)境選項(xiàng)的方式。利用這些方法，可以設(shè)置或讀取“選項(xiàng)”對(duì)話框中除“模塊”選項(xiàng)卡上選項(xiàng)之外的任何可用選項(xiàng)設(shè)置。
可用的選項(xiàng)設(shè)置取決于要設(shè)置的選項(xiàng)的類型。以下是三種常規(guī)類型的選項(xiàng)：
| ? | “是/否”選項(xiàng)，可通過選中或清除復(fù)選框來進(jìn)行設(shè)置。 |
| ? | 可通過輸入一個(gè)字符串或數(shù)值來進(jìn)行設(shè)置的選項(xiàng)。 |
| ? | 預(yù)定義選項(xiàng)，可從列表框、組合框或選項(xiàng)組來進(jìn)行選擇。 |
對(duì)于用戶能夠通過選中或清除復(fù)選框來設(shè)置的選項(xiàng)，如果選項(xiàng)設(shè)置為 Yes（選中復(fù)選框），則 GetOption 方法返回 True (–1)，如果選項(xiàng)設(shè)置為 No（清除復(fù)選框），則該方法返回 False (0)。要使用 SetOption 方法來設(shè)置這種類型的選項(xiàng)，指定 setting 參數(shù)為 True 或 False，如下面的示例所示：
Application.SetOption "Show Status Bar", True
對(duì)于用戶通過鍵入字符串或數(shù)值來設(shè)置的選項(xiàng)，GetOption 方法返回顯示在對(duì)話框中的設(shè)置。下面的示例返回一個(gè)包含左邊距設(shè)置的字符串：
Dim varSetting As Variant
varSetting = Application.GetOption("Left Margin")
要使用 SetOption 方法來設(shè)置這種類型的選項(xiàng)，可指定將在對(duì)話框中鍵入的字符串或數(shù)值。下面的示例將默認(rèn)窗體模板設(shè)置為 OrderTemplate:
Application.SetOption "Form Template", "OrderTemplate"
對(duì)于要從列表框或組合框中選擇內(nèi)容的選項(xiàng)，GetOption 方法返回對(duì)應(yīng)于列表中設(shè)置位置的一個(gè)數(shù)字。編號(hào)從零開始，所以對(duì)第一項(xiàng)，GetOption 方法返回 0，對(duì)第二項(xiàng)，將返回 1，依此類推。例如，如果“表/查詢”選項(xiàng)卡的“默認(rèn)字段類型”設(shè)置為“自動(dòng)編號(hào)”，即列表中的第六項(xiàng)，GetOption 方法將返回 5。
要設(shè)置此選項(xiàng)的類型，應(yīng)用數(shù)字來指定選項(xiàng)在列表中的位置，這和 SetOption 方法的 setting 參數(shù)一樣。下面的示例將 Default Field Type 選項(xiàng)設(shè)置為“自動(dòng)編號(hào)”：
Application.SetOption "Default Field Type", 5
其他選項(xiàng)通過單擊“選項(xiàng)”對(duì)話框中選項(xiàng)組的選項(xiàng)按鈕來設(shè)置。在 Visual Basic 中，這些選項(xiàng)也可以通過指定選項(xiàng)組中的特定選項(xiàng)的位置來設(shè)置。組中的第一個(gè)選項(xiàng)編號(hào)為 0，第二個(gè)為 1，依次類推。例如，如果“窗體/報(bào)表”選項(xiàng)卡上的“選定方式”選項(xiàng)設(shè)置為“部分包含”，GetOption 方法將返回 0，如下面的示例所示：
Debug.Print Application.GetOption("Selection Behavior")
如果要設(shè)置的選項(xiàng)是選項(xiàng)組中的成員，只需指定此選項(xiàng)在組中的索引編號(hào)即可。以下示例將“選定方式”設(shè)置為“全部包含”：
Application.SetOption "Selection Behavior", 1
注釋
| ? | 當(dāng)使用 GetOption 方法或 SetOption 方法來設(shè)置“選項(xiàng)”對(duì)話框中的選項(xiàng)時(shí)，不需要指定此選項(xiàng)所在的各個(gè)選項(xiàng)卡。 |
| ? | 不能使用 GetOption 方法或 SetOption 方法來讀取或設(shè)置在“選項(xiàng)”對(duì)話框的“模塊”選項(xiàng)卡中找到的任何選項(xiàng)。 |
| ? | 如果將 GetOption 方法的返回值指定給某個(gè)變量，該變量必須聲明為 Variant。 |
| ? | 如果數(shù)據(jù)庫運(yùn)行在另一種語言（非創(chuàng)建時(shí)使用的語言）的 Microsoft Access 版本中，那么，必須使用英語為 GetOption 和 SetOption 方法提供參數(shù)。 |
當(dāng)退出 Microsoft Access 時(shí)，可以將所有選項(xiàng)重新設(shè)置為他們的原有設(shè)置，方法是對(duì)所有更改了的選項(xiàng)使用 SetOption 方法。首先創(chuàng)建公用變量來保存原有設(shè)置的值。然后在窗體的 Close 事件過程，或自定義退出過程（用戶要退出應(yīng)用程序必須運(yùn)行的過程）中包括用于重新設(shè)置選項(xiàng)的代碼。