#098 MaxButton

MaxButton プロパティ

フォームの「最大化ボタン(ウィンドウ右上のボタン)」の使用可否を設定します。

※デザインビュー状態のときのみプロパティの設定変更が可能です。
※このプロパティをVBAから変更すると、「MinMaxButtons」プロパティ値も連動して変わります。

フォーム

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

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

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

  '対象フォームのプロパティを設定
  With Forms(cstrForm)
    Select Case Me!fraProperty
      Case 1
        '最大化ボタンを使用可能にする
        .MaxButton = True
      Case 2
        '最大化ボタンを使用不可にする
        .MaxButton = False
    End Select
  End With

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

End Sub
  • 最大化ボタンが使用可能な場合、ウィンドウ右上端の[□]ボタンが使用可能となります。


  • 最大化ボタンが使用不可の場合、[□]マークは薄く表示はされますが、使うことはできません。
| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved