グラフィック描画ですが、引数を持たないサブルーチンプロシージャ(固定的な
目盛り等)は、PictureBox_paint(***イベントプロシージャ内に記述すればグラフィック描画ができます(e.Graphicsでグラフィックスオブジェクトを取得できる為)が、
X、Y座標を引数としたサブルーチンプロシージャを作り、その中でLineDraw(*****で描画させたい場合サブルーチンプロシージャ内に dim g As Graphics=pictureBox1.CreateGraphics()
でグラフィックオブジェクトを生成しても
描画できないのですがどのようにすれば解決できるでしょうか(イメージがわかり難いかもしれませんのでサンプルを書きました)
よろしくお願いします
(1)private sub pictureBox1_paint(Byval sender as Object, Byval e as
system******
e.Graphics.DrawLine(****** (これは描画できる)
End Sub
(2)private sub zahyou() ' 座標を生成するサブルーチンプロシージャ
dim i as integer
for i=0 to 10
hyouji( i , i*5 )
End Sub
private sub hyouji( x as integer, y as integer) ’直線を引くサブルーチンプロシージャ
dim g As Graphics=pictureBox1.CreateGraphics()
g.DrawLine(***,x,y**** (これは描画できない)
グラフィック描画ですが、引数を持たないサブルーチンプロシージャ(固定的な
目盛り等)は、PictureBox_paint(***イベントプロシージャ内に記述すればグラフィック描画ができます(e.Graphicsでグラフィックスオブジェクトを取得できる為)が、
X、Y座標を引数としたサブルーチンプロシージャを作り、その中でLineDraw(*****で描画させたい場合サブルーチンプロシージャ内に dim g As Graphics=pictureBox1.CreateGraphics()
でグラフィックオブジェクトを生成しても
描画できないのですがどのようにすれば解決できるでしょうか(イメージがわかり難いかもしれませんのでサンプルを書きました)
よろしくお願いします
(1)private sub pictureBox1_paint(Byval sender as Object, Byval e as
system******
e.Graphics.DrawLine(****** (これは描画できる)
End Sub
(2)private sub zahyou() ' 座標を生成するサブルーチンプロシージャ
dim i as integer
for i=0 to 10
hyouji( i , i*5 )
End Sub
private sub hyouji( x as integer, y as integer) ’直線を引くサブルーチンプロシージャ
dim g As Graphics=pictureBox1.CreateGraphics()
g.DrawLine(***,x,y**** (これは描画できない)
グラフィック描画ですが、引数を持たないサブルーチンプロシージャ(固定的な
目盛り等)は、PictureBox_paint(***イベントプロシージャ内に記述すればグラフィック描画ができます(e.Graphicsでグラフィックスオブジェクトを取得できる為)が、
X、Y座標を引数としたサブルーチンプロシージャを作り、その中でLineDraw(*****で描画させたい場合サブルーチンプロシージャ内に dim g As Graphics=pictureBox1.CreateGraphics()
でグラフィックオブジェクトを生成しても
描画できないのですがどのようにすれば解決できるでしょうか(イメージがわかり難いかもしれませんのでサンプルを書きました)
よろしくお願いします
(1)private sub pictureBox1_paint(Byval sender as Object, Byval e as
system******
e.Graphics.DrawLine(****** (これは描画できる)
End Sub
(2)private sub zahyou() ' 座標を生成するサブルーチンプロシージャ
dim i as integer
for i=0 to 10
hyouji( i , i*5 )
End Sub
private sub hyouji( x as integer, y as integer) ’直線を引くサブルーチンプロシージャ
dim g As Graphics=pictureBox1.CreateGraphics()
g.DrawLine(***,x,y**** (これは描画できない)