04/07/05 15:33
ある画像の上（？）に線を引き、その線の一部分をペイントの消しゴムのように
消したいのですが、いい方法ないでしょうか？
線を引くまでのロジックはこんな感じです。
Private grpTest As Graphics
Private bmpTest As Bitmap
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fs As IO.FileStream
Dim bmpImage As Bitmap
Dim blackPen As Pen
blackPen = New Pen(Color.Black, 1.0)
fs = New IO.FileStream("C:\TEST.JPG", IO.FileMode.Open, IO.FileAccess.Read)
bmpImage = New Bitmap(fs)
fs.Close()
'空のbitmap領域の作成
bmpTest = New Bitmap(bmpImage.Width, bmpImage.Height)
grpTest = Graphics.FromImage(bmpTest)
grpTest.DrawImage(bmpTest, 0, 0, bmpImage.Width, bmpImage.Height)
PictureBox1.Image = bmpImage
'線引き
grpTest.DrawLine(blackPen, 0, 0, bmpImage.Width, bmpImage.Height)
PictureBox1.Invalidate()
End Sub