#160 フォームを最大化して開くには? フォーム、VBA

Accessのフォームでは、Visual Basicのフォームのように、最大化や最小化など、フォームを開いた際の初期状態のサイズを設定するプロパティはありません。

一方、「Docmd.OpenForm」というメソッドを使ってフォームを開く場合にも、"acIcon"という定数を使って最小化の状態で開くことはできるのに、最大化で開くための引数や定数はありません。


そこで、フォームを最大化して開くようにするには、そのフォームのモジュールから、自分自身を最大化するようにします。それには、フォームの"Load/読み込み時"イベントプロシージャを次のようにします。
Private Sub Form_Load()

  Echo False      'なくてもよい
  DoCmd.Maximize  'フォームを最大化
  Echo True       'なくてもよい

End Sub

ここでは、「DoCmd.Maximize」の行だけが、自分自身のフォームを最大化するのに必要な命令です。「Echo」を使った2つの行はなくても最大化の動作には影響しません。しかし、これがないと、通常の大きさでいったん表示されたあと、最大化されるという動きが見えて、多少見苦しいかもしれません。そこで、「Echo False」で、通常サイズから最大化されるまでの画面の描画を止めることによって、スマートな動作になるようにしています。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved