VB6.0で複数フォームのグラフ描写ができません

質問

VB6.0でForm1にある描画ボタンを押すと、Form2が表示され、Form2のピクチャーボックスにグラフが描かれるコードを作っているところです。
ところが、Form2にはグラフが描かれません。
以下の簡単なコード（ピクチャーボックス2の背景を白色にする）も実行されません。

Form1にピクチャーボックスを作り、描画ボタンを押すとそこにグラフが表示されるようにしたところ、グラフが描かれました。
フォームは2つ表示させると問題があるのでしょうか？
なにか考えられる原因を教えていただけないでしょうか。

Form1に記述しているコード
Dim GraphForm As New Form2
GraphForm.Show
Form2.Picture2.BackColor = vbWhite

回答No.2

s-uzen · ベストアンサー

ステートメントの記述は、下記のようになるのでは。
Dim GraphForm As Form　　・・・ GraphFormの型宣言（Form型)
Set GraphForm = Form2　　・・・ GraphFormにForm2を割り当て
GraphForm.Pcture2.BackColor = vbWhite　・・・ Form2表示前に設定しておく
GraphForm.Show　・・・ 描画処理後に表示するなら、描画処理の後へ記述
　　：
以下、グラフ描画処理を記述

お礼

回答ありがとうございます！

＞Dim GraphForm As Form　　・・・ GraphFormの型宣言（Form型)
＞Set GraphForm = Form2　　・・・ GraphFormにForm2を割り当て
＞GraphForm.Pcture2.BackColor = vbWhite　・・・ Form2表示前に設定しておく

描画ボタンを押すたびに、表示されていたグラフが消えて、Form2が新しく表示されている感じです。Form2を複数表示させることができませんでした。
表示前に背景色の設定をしておく・・・勉強になりました。
ありがとうございます。

補足

原因が分かりました！
Form2のLOADイベントのLINEをForm1に移動したら、グラフ描画できました。

回答No.1

Hayashi_Trek

表示しているフォームはGraphForm
Form2は表示されていない。