線を引くまでのロジックはこんな感じです。 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
