タイトル : Re^6: formにスクロールバーをつける方法 投稿日 : 2010/11/03(Wed) 19:11 投稿者 : クロ
花ちゃんさん ありがとうございます。 > 下記を追加したのではだめですか? > > Private Sub Form_Resize() > If Me.WindowState = 2 Then > Me.WindowState = 0 > Me.Width = 8000 '好みの初期値に設定 > Me.Height = 6000 > End If > End Sub Form1しかないものではうまくいきましたが、MDIFormを使ってる ものではうまくいかず、画面いっぱいとなり、今までと同じでした。 そこでためしにMeの部分をMDIFormに以下のようにしましたが結果は同じでした。 対処方法はありますでしょうか? Private Sub MDIForm1_Resize() If MDIForm1.WindowState = 2 Then MDIForm1.WindowState = 0 MDIForm1.Width = 8000 '好みの初期値に設定 MDIForm1.Height = 6000 End If End Sub またForm1しかなくうまく制限がかかった場合でも、動作として一度画面一杯に 表示されてから設定された大きさになりました。 画面一杯にらなずに一気に設定値に変化させることはできますか? |