フォームの設定について

質問

ソフト表示画面のサイズを300＊480に収めたいのですがどのように設定すればいいのか教えてください。また、2つのForm、Form1とForm2 を同時に起動してForm1を上側にForm2を下側にと表示させたいのですが、どのようにすればよろしいか教えてください。ちなみに表示するときは、Form1を起動状態にして、あるボタンを押したらForm2を起動という形にしたいのですが、どのようにすればよろしいですか？

回答No.2

Yackn · ベストアンサー

勘違いしていました。画面上の上下だったんですね。
「使用不可」ということを考えてモーダルなウィンドウににしてみました。微妙にフォームの名前が逆になっていますが、(^^;そんなのは、スタートアップフォームを変えればできるはずです。(プロジェクトのプロパティで変更できます)

以下のようにしてみてはどうでしょうか？
フォームを２こ用意してフォーム２にはコマンドボタンを貼り付けてください。以下はソースです。

'フォーム１に書くソース
Private Sub Form_Load()
　　Me.Show
　　’フォーム２の場所を決定します。
　　With Form2
　　　　.Top = 0
　　　　.Left = 0
　　　　.Width = 3000
　　　　.Height = 1200
　　End With
’自分の場所を決定します
　　With Me
　　　　.Top = Form2.Top + Form2.Height
　　　　.Left = Form2.Left
　　　　.Width = Form2.Width
　　End With
'ここでフォーム２をモーダル表示します
　　Form2.Show vbModal
End Sub

'フォーム２に書くソース
Private Sub Command1_Click()
　　’自分を閉じます。
　　Unload Me
End Sub

お礼

ありがとうございます。ほんとうに参考になりました。また機会があれば、よろしくおねがいします。

回答No.1

Yackn

１番目の質問について
　　Screen.TwipsPerPixelX　で画面に対するtwips数を計算してあげればよいのではないでしょうか？
ではだめですか？

２番目の質問について
フォーム２が下にいるということなので先にフォーム２をスタートアップフォームに指定してフォーム２のロード時に以下のようなコードを書けばよいとおもいます
Private sub Form_Load()
　　Form2.hide
Form1.Show vbModeless, Me
End Sub
ただし、フォーム２がフォーム１のオーナーになっているのでフォーム２の終了時に終了をキャンセルしてHideしてあげる必要があります。

わからないときは追加補足ください。

補足

ありがとうございます。えーっとですね。フォームの位置が画面上で上下に表示させて、フォーム１を起動させて、フォーム２の操作を無効にしておきたいのです。そして、フォーム１のボタンを押したら、フォーム１を終了してフォーム２を有効にさせたいのです。なにかややこしくてすいません。うまく説明ができなくて・・・よろしければお願いします。