With ステートメントの使用

■ With ステートメントの使用

With ステートメントを使用すると、指定した単一のオブジェクトに対して複数の異なる

プロパティを設定すること等ができます

コードが読みやすくなるだけでなく、オブジェクトに対するアクセスが１回で済むため

プログラムの処理速度の向上の効果があります

' ラベルにエラー内容をセットする
With Label1
    .Caption = "必須項目が未入力です"
    .ForeColor = RGB(255, 0, 0)
End With

ラベルの参照はフォームを通して行われているため？？？

処理速度も向上しますが、フォームに対して同じような処理を行った場合、処理速度が低下します

要はドットの使用を最小限にすることが有効です

下の記述では上記の記述よりも処理速度が低下しました

' フォームの位置を設定する
With Form1
    .Left = 0
    .Top = 0
End With

' ラベルにエラー内容をセットする
With Form1.Label1
    .Caption = "必須項目が未入力です"
    .ForeColor = RGB(255, 0, 0)
End With