タイトル : Re^2: ピクチャーボックスの背景に書かれた線や文字をJPGに 投稿日 : 2007/06/25(Mon) 07:49 投稿者 : トッチー
夜遅くありがとうございました。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim gPStyle As Graphics = PictureBox1.CreateGraphics() Dim gForm As Graphics = Me.CreateGraphics() gPStyle.DrawRectangle(myPen, 70, 10, len, len) '四角描画 gPStyle.Dispose() myPen.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim img As Image = PictureBox1.Image If Not img Is Nothing Then img.Save("T:\abc.jpg", Imaging.ImageFormat.Jpeg) Else MsgBox("割り当てられていません") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub に変えました。 しかしながら、ボタン2を押したとき、画像が割り当てられていないので、当然メッセージが出ます。 一番最初の質問の仕方が悪かったかもしれませんが、 画像はむしろ割り当てられていません。 純粋にピクチャーボックスの背景に書かれた図形や文字(このソースの中には無いが)をJPGにしたいと考えています。 この目的を満たせば、他の方法でもかまいません。 引き続き自分でもがんばってみます。 ご回答ありがとうございました。 |