MDI子フォームのPictureBoxにmoduleから呼んだメソッドで線を描画するには?


ちろ犬  2013-04-23 23:28:02  No: 148139  IP: [192.*.*.*]

MDI親(Form1)の子(Form2)のPictureBox1に
moduleからメソッドを呼んで線を描きたいのですが、
動かしてみると何の反応もありません。

どのようにすれば描けるようになるでしょうか?
よろしくお願い致します。

Public Class Form1
'親フォーム
End Class

Public Class Form2
'子フォーム
Private Sub Button3_Click(sender As System.Object, e As             System.EventArgs) Handles mod_btn.Click
Pictest_mod()
End Sub
End Class

Module Module1
'線の描画処理
Public Sub Pictest_mod()
Dim canvas As New Bitmap(Form2.PictureBox1.Width, Form2.PictureBox1.Height)
Dim gr As Graphics = Graphics.FromImage(canvas)
g.DrawLine(Pens.Black, 0, 0, 15, 15)
g.Dispose()
Form2.PictureBox1.Image = canvas
End Sub
End Module

編集 削除
shu  2013-04-24 07:39:30  No: 148140  IP: [192.*.*.*]

Pictest_mod()内の
Form2とForm1から作成されたForm2のインスタンスが
違うと思います。
インスタンスを渡すようにしたほうがよいです。

編集 削除