フォームのコントロールの立体表示を設定する
 ラベルやテキストボックスの立体表示の設定は、"SpecialEffect/立体表示"
プロパティを使います。
 サンプルプロシージャでは、作成したフォームにラベルを配置して、
ラベルの立体表示を「くぼみ」にしています。

● サンプル ●

Sub Sample()
    Dim myForm   As Form
    Dim myLabel  As Control
    
    Set myForm = CreateForm
    myForm.Section(0).Height = 2000
    
    Set myLabel = CreateControl(myForm.Name, acLabel, , "", _
                   "くぼみ", 200, 100)
    
    myLabel.SpecialEffect = acEffectSunken
    
    DoCmd.Restore
    DoCmd.OpenForm myForm.Name
    DoCmd.MoveSize , , 2000, 2000
    
End Sub

 "SpecialEffect/立体表示" プロパティの状態を指定する場合は、
次の定数が使用できます。

acEffectNormal(立体表示しない
acEffectRaised(浮き出し)
acEffectSunken(くぼみ)
acEffectEtched(枠囲み)
acEffectShadow(影付き)
acEffectChisel(下線付き)

 "SpecialEffect/立体表示"プロパティは、"BorderStyle/境界線スタイル"、
"BorderColor/境界線色"、および "BorderWidth/境界線幅"プロパティに影響を
与えます。

 たとえば、"SpecialEffect/立体表示"プロパティに[Raised/浮き出し]が設定
されている場合、"BorderStyle/境界線スタイル"、"BorderColor/境界線色"、
および"BorderWidth/境界線幅"プロパティの設定は無視されます。また、
"BorderStyle/境界線スタイル"、"BorderColor/境界線色"、および
"BorderWidth/境界線幅"プロパティを変更または設定すると、"SpecialEffect/
立体表示"プロパティの設定値が[しない]に変更されることもあります。

 テキストボックスの"SpecialEffect/立体表示"プロパティに[影付き]を設定すると、
テキスト表示領域の垂直のサイズが小さくなります。テキストボックスの"Height/高さ"
プロパティを調整して、テキスト表示領域のサイズを大きくすることができます。

Access2000



戻る


Excel Word Access VBA! モーグ