WebBrowserControl.Properties プロパティ (Access)

コントロールの Properties コレクション オブジェクトへの参照を取得します。 値の取得のみ可能です。

構文

式。プロパティ

式WebBrowserControl オブジェクトを表す変数。

注釈

Properties コレクション オブジェクトは、コントロールに関連するすべてのプロパティのコレクションです。 メンバー オブジェクトのインデックスまたはメンバー オブジェクトの名前である文字列式を使用して、コレクションの個々のメンバーを参照します。

コレクション内の最初のメンバー オブジェクトのインデックス値は 0 で、コレクション内のメンバー オブジェクトの合計数は Properties コレクションの Count プロパティから 1 を引いた値です。

例

次の例では、 Properties プロパティを使って、フォームのコントロールに関連するプロパティを [デバッグ] ウィンドウに表示しています。 このコードを実行するには、 cmdListProperties という名前のコマンド ボタンをフォームに配置し、次のコードをフォームの [宣言] セクションに貼り付けます。 コマンド ボタンをクリックして、プロパティの一覧を [デバッグ] ウィンドウに表示します。

Private Sub cmdListProperties_Click() 
 ListControlProps Me 
End Sub 
 
Public Sub ListControlProps(ByRef frm As Form) 
 Dim ctl As Control 
 Dim prp As Property 
 
 On Error GoTo props_err 
 
 For Each ctl In frm.Controls 
 Debug.Print ctl.Properties("Name") 
 For Each prp In ctl.Properties 
 Debug.Print vbTab & prp.Name & " = " & prp.Value 
 Next prp 
 Next ctl 
 
props_exit: 
 Set ctl = Nothing 
 Set prp = Nothing 
Exit Sub 
 
props_err: 
 If Err = 2187 Then 
 Debug.Print vbTab & prp.Name & " = Only available at design time." 
 Resume Next 
 Else 
 Debug.Print vbTab & prp.Name & " = Error Occurred: " & Err.Description 
 Resume Next 
 End If 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。