Paintpicture描画時のクリックイベント
お知恵を貸してください!
ただいま「ランダムな場所にImageを描画して、そのイメージをクリックするとイベントが起きる」という
プログラムを組んでいます。
Paintpictureを使って、ランダムに描画することはできたのですが、
描画したイメージをクリックしてもイベントの動作を行ってくれません。
使用しているのはVB6.0です。
プログラムは以下のとおりです。
Imageは透過GIF(Image1)と保険にマスクイメージ(Image2)を使用しております。
-------
・描画プログラム
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
x = Int(rnd * Form1.Width) - (Image1.Width \ 2)
y = Int(rnd * Form1.Height) - (Image1.Height \ 2)
Form1.Refresh
Form1.PaintPicture Image2, x, y, , , , , , , vbSrcAnd
Form1.PaintPicture Image1, x, y, , , , , , , vbSrcPaint
End Sub
-------
・行動プログラム
Private Sub Image1_Click()
MsgBox "Score gat"
End Sub
-------
アドバイス、ご指摘お願いいたします。