Table of contents
TOC
目次を折りたたむ
目次を展開する

Add メソッド (Microsoft Forms)

office 365 dev account|最終更新日: 2017/10/09
|
1 投稿者

Tab または PageTabStrip または MultiPage に追加または挿入するか、コントロールをそのプログラム識別子 (ProgID) でページまたはフォームに追加します。

構文

MultiPage、TabStrip の場合

SetObject = object . Add( [ Name [, Caption [, index ]]] )

他のコントロールの場合

SetControl = object . Add(ProgID [, Name [, Visible ]] )

Add メソッドの構文には、次の指定項目があります。

指定項目説明
object必須。有効なオブジェクト名。
Name省略可能。追加するオブジェクトの名前を指定します。名前を指定しないと、フォームが使用されるアプリケーションのルールに基づいて、既定の名前が生成されます。
Caption省略可能。タブまたはコントロールに表示するキャプションを指定します。キャプションを指定しないと、フォームが使用されるアプリケーションのルールに基づいて、既定のキャプションが生成されます。
index省略可能。 Pages または Tabs コレクション内でのページまたはタブの位置を示します。インデックスを指定しないと、ページまたはタブは Pages または Tabs コレクションの最後に追加され、適切なインデックス値が割り当てられます。
ProgID必須。プログラム識別子。オブジェクトのクラスを示す空白文字を含まないテキスト文字列です。ProgID の標準の構文は、<ベンダー>.<コンポーネント>.<バージョン> です。ProgID はクラス識別子 (CLSID) にマップされます。
Visible省略可能。オブジェクトが表示される場合は True です (既定値)。オブジェクトが表示されない場合は False です。

設定

個別のコントロールに対する ProgID の値は次のとおりです。

CheckBoxForms.CheckBox.1
ComboBoxForms.ComboBox.1
CommandButtonForms.CommandButton.1
FrameForms.Frame.1
ImageForms.Image.1
LabelForms.Label.1
ListBoxForms.ListBox.1
MultiPageForms.MultiPage.1
OptionButtonForms.OptionButton.1
ScrollBarForms.ScrollBar.1
SpinButtonForms.SpinButton.1
TabStripForms.TabStrip.1
TextBoxForms.TextBox.1
ToggleButtonForms.ToggleButton.1

解説

MultiPage コントロールの場合、 Add メソッドは Page オブジェクトを返します。 TabStrip の場合は、 Tab オブジェクトを返します。 コレクションの最初の Page または Tab のインデックス値は 0、2 番目の Page または Tab の値は 1、などとなります。

オブジェクトの Controls コレクションの場合、 Add メソッドは指定した ProgID に対応するコントロールを返します。コントロールが追加された後で、AddControl イベントが発生します。

デザイン時にユーザー フォームの Controls コレクションにコントロールを追加できますが、Applications Extensibility Library で同じようにするには Microsoft Visual Basic の Designer プロパティを使用する必要があります。 Designer プロパティは UserForm オブジェクトを返します。

次の構文では、指定したコントロールの Text プロパティが返されます。

userform1.thebox.text

実行時にコントロールを追加する場合は、感嘆符構文を使用して、そのコントロールのプロパティを参照する必要があります。たとえば、実行時に追加したコントロールの Text プロパティを取得するには、次の構文を使用します。

userform1!thebox.text

メモ コントロールの Name プロパティを 実行時に変更できるのは、 Add メソッドで実行時にそのコントロールを追加した場合だけです。

© 2018 Microsoft