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

---

16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem(2/2) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem おはよう！オイラ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 http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/16
おはよう！オイラ ちょっと工夫して画像を自分で設定できるようにしてる んで画像読み込んでコピーするまで出来た！フォームとピクチャボックス２つとダイアログ１つで簡単にできる これ組み込んだら完成だな 次のがコピーのコードだ結構厄介だったぞ のオブジェクトの作成 元の画像のの部分を切り取って表示する 座標に表示し単位をピクセルとする オブジェクトを破棄

---

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

---

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

---

ぬこの手 ぬこTOP 0.033s