◆全てのコントロールツール（テキストボックス等）を使用不可にする

全てのコントロール（テキストボックスやオプションボタン等）を使用不可（無効）にする方法をご紹介します。

→

全コントロールを表すControlsコレクションを取得し、For Each ~ Nextステートメントで各コントロールを使用無効にします。

　

記述法： For Each 各要素（変数） In Controlsコレクション 〜 Next ★コレクションの各要素に対して、一連のステートメントを繰り返し実行します。

記述例：

ページ内の全てのコントロールツールを使用不可にする

Set MyPage = Item.GetInspector.ModifiedFormPages("登録") Set ControlsCol = MyPage.Controls For Each Control in ControlsCol Control.Enabled = False Next

★「登録」ページをオブジェクトとして取得 ★ページ内の全コントロールを取得（Controlsコレクション） ★Controlsコレクション内の各コントロールに対し ★使用不可とする

　

　

※関連：特定のページを取得する

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ プログラミングサンプル編