なぜVBは扱いが低いのか (200ﾚｽ)
上下前次1-新

---

16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem(2/2) AAS
おはよう！オイラ10
ちょっと工夫して画像を自分で設定できるようにしてる
んで画像読み込んでコピーするまで出来た！フォームとピクチャボックス２つとダイアログ１つで簡単にできる
これ組み込んだら完成だな

次のがコピーのコードだ、結構厄介だったぞ
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim img = New Bitmap(PictureBox1.Image)
'PictureBox1のGraphicsオブジェクトの作成
Dim g As Graphics = PictureBox2.CreateGraphics()

'元の画像の(10,10)-(100,100)の部分を切り取って表示する
'座標(0,0)に表示し、単位をピクセルとする
Dim rect As New Rectangle(PictureBox2.Top, PictureBox2.Left, PictureBox2.Width, PictureBox2.Height)
g.DrawImage(img, 0, 0, rect, GraphicsUnit.Pixel)

Dim newBMP As Bitmap = img.Clone(rect, img.PixelFormat)

PictureBox2.Image = newBMP.Clone

'Graphicsオブジェクトを破棄
g.Dispose()

End Sub

---

上下前次1-新書関写板覧索設栞歴

---

あと 184 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.005s