#100 MinMaxButtons

"MinMaxButtons/最小化/最大化ボタン" プロパティ

フォームの「最大化ボタン」ならびに「最小化ボタン」の使用可否を設定します。
このプロパティには次のような値を設定することができます。
  • 0→最大化/最小化ともに非表示
  • 1→最小化ボタンのみ使用可能
  • 2→最大化ボタンのみ使用可能
  • 3→最小化/最大化ともに使用可能

※デザインビュー状態のときのみプロパティの設定変更が可能です。

フォーム

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  Const cstrForm As String = "フォーム100View"

  '対象フォームをデザインビュー&非表示で開く
  DoCmd.OpenForm cstrForm, acDesign, , , , acHidden

  '対象フォームのプロパティを設定
  With Forms(cstrForm)
    Select Case Me!fraProperty
      Case 1
        '最大化/最小化ともに非表示
        .MinMaxButtons = 0
      Case 2
        '最小化ボタンのみ
        .MinMaxButtons = 1
      Case 3
        '最大化ボタンのみ
        .MinMaxButtons = 2
    End Select
  End With

  '対象フォームを保存したあと表示する
  DoCmd.Close acForm, cstrForm, acSaveYes
  DoCmd.OpenForm cstrForm

End Sub
  • 最大化/最小化ボタンともに非表示にした場合、閉じるボタン[×]のみが表示されます。


  • "最小化ボタンのみ"の場合、最大化ボタンは使えません。


  • "最大化ボタンのみ"の場合、最小化ボタンは使えません。
| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved