Access Study Vol.21 デザインで使えるプログラム50-17

Sub SampleCode_17()
'ラベルとテキストボックスの余白を変更する

  Dim ctl As Control

  'アクティブフォームのすべてのコントロールのループ
  For Each ctl In Screen.ActiveForm.Controls
    With ctl
      If .ControlType = acLabel Or .ControlType = acTextBox Then
        'ラベルかテキストボックスなら余白をゼロに設定
        .TopMargin = 0        '上余白
        .BottomMargin = 0   '下余白
        .LeftMargin = 0        '左余白
        .RightMargin = 0      '右余白
      End If
    End With
  Next ctl

End Sub


17		ラベルとテキストボックスの余白を変更する
フォーム上のコントロール（Controlオブジェクト）の「ControlType」プロパティを調べることで、コントロールの種類を取得することができます。またその際、ControlTypeプロパティの値が組み込み定数「acLabel」あるいは「acTextBox」であれば、そのコントロールはラベルまたはテキストボックスであると判定できます。次のプログラムでは、フォームのControlsコレクションからControlオブジェクトをループで取り出し、それがラベルまたはテキストボックスであれば、”余白”に関する次の４つのプロパティをすべてゼロに設定変更しています。上余白TopMargin 下余白BottomMargin 左余白LeftMargin 右余白RightMargin プログラム Sub SampleCode_17() 'ラベルとテキストボックスの余白を変更する Dim ctl As Control 'アクティブフォームのすべてのコントロールのループ For Each ctl In Screen.ActiveForm.Controls With ctl If .ControlType = acLabel Or .ControlType = acTextBox Then 'ラベルかテキストボックスなら余白をゼロに設定 .TopMargin = 0 '上余白 .BottomMargin = 0 '下余白 .LeftMargin = 0 '左余白 .RightMargin = 0 '右余白 End If End With Next ctl End Sub 実行例 ■実行前 ■実行後
\| Index \| Prev \| Next \|