[Visual Basic 6.0]timerを使ったプログラムで質問です。

質問

Visual Basic 6.0 で
Private Sub Timer1_Timer()
Randomize
a = Int(Rnd * 7000)
b = Int(Rnd * 7000)
d = 200 + Int(Rnd * (500 - 200 + 1))
e = 1 + Int(Rnd * 15)
FillColor = QBColor(e);FillStyle = 0
Picture1.Circle (a, b), d, QBColor(e), -0.00001, -3.14152
Picture1.Circle (a, b + 80), d * 1.6, QBColor(e), , , 0.3
Picture1.Circle (a + d, b + d * 0.7), d / 4, QBColor(e)
Picture1.Circle (a - d, b + d * 0.7), d / 4, QBColor(e)
の図形をtimerを使って永遠にでたり消えたりを五秒間隔で消えたり出てきたりするプログラムを作りたいのですがうまくいきません。あと図形の塗りつぶしをFillColor = QBColor(e);FillStyle = 0と指定しているのですが塗りつぶしになりません。わかる方お願いします。m(_ _)m

回答No.1

redfox63 · ベストアンサー

単に
FillColor = QBColor(e):FillStyle = 0
と記述すると フォームに対しての設定になります

ピクチャーボックスに対して指示なら
Picture1.FillColor = QBColor(e):Picture1.FillStyle = 0
とオブジェクトを明示しましょう
# マルチステートメントの区切りは『;』ではなく『:』です

出たり消えたりさせたいのであれば
前回描画した範囲を覚えておき　UFOを描画する前に LINEメソッドで消去してから UFOを描画しましょう

private TYPE RECT
x as integer
y as integer
w as integer
h as integer
End if

タイマーイベントの先頭に
static rc as RECT
と記述します

UFO描画前の行に
if rc.w<>0 and rc.h<>0 then
Picture1.Line(rc.x, rc.y)-step(rc.w,rc.h), picture1.backcolor,BF
' ピクチャーボックスの内容をすべて消してもいいのであれば
' Picture1.cls
' でもいいですよ
end if

タイマーイベントの End Subの手前に
rc.x = a - d * 2
rc.y = b - d * 2
rc.w = d * 4
rc.h = d * 4
を追加します
# 次回描画前に消去する範囲を記憶

といった具合でしょう

お礼

ご回答ありがとうございます。
redfox63さんの書いてあるようにしたら自分の作りたいようにできました。私は本でvisual basicを学んでいて近くに詳しい人がいなく困っていたので本当に助かりました。
本当にありがとうございます！！