- ベストアンサー
ＶＢ．ＮＥＴの画像の切り取りについて教えて
Dim bmp1 As Bitmap Dim bmp2 As Bitmap となっていて、bmp1にファイルから読み込んだ画像を入れてあり bmp2に切り出し位置とサイズを指定して、bmp1の一部を入れたいのですが、 どのようにやれば良いでしょうか。 PictureBoxを使う方法はサンプルを見つけたのですが、 PictureBoxを使わずにやりたいのですが方法がありましたら ご教授頂けないでしょうか。宜しくお願い致します。 Frameworkは１．１です。
- gomachans1
- お礼率16% (3/18)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
'一応.NET 3.5で動作確認はしている 'MSDNを見る限り,.NET 1.1等をサポートしていると書いてあるが,1.1専用のページがなく, '検証もしていないので動かないかも。 Option Explicit On Option Compare Binary Option Strict On Class Q4045416A Shared Sub Main() Dim Source As System.Drawing.Bitmap Dim temp As System.Drawing.Bitmap Dim Destination As System.Drawing.Bitmap Dim SourceRectangleF As System.Drawing.RectangleF Dim DestinationRectangleF As System.Drawing.RectangleF Source = New System.Drawing.Bitmap("Q4045416-1.bmp") SourceRectangleF.X = 10 SourceRectangleF.Y = 10 SourceRectangleF.Width = 10 SourceRectangleF.Height = 10 'ただ保存するならtemp.Save("Q4045416-2.bmp")だけで良いが, '折角だから切り取った部分を任意の位置に描いてみよう。 temp = Source.Clone(SourceRectangleF,System.Drawing.Imaging.PixelFormat.Format24bppRgb) DestinationRectangleF.X = 40 DestinationRectangleF.Y = 40 DestinationRectangleF.Width = 10 DestinationRectangleF.Height = 10 Destination = New System.Drawing.Bitmap(50,50,System.Drawing.Imaging.PixelFormat.Format24bppRgb) System.Drawing.Graphics.FromImage(Destination).DrawImage(temp,DestinationRectangleF) Destination.Save("Q4045416-2.bmp") End Sub End Class
関連するQ&A
- VB.netでのPictuerBoxに描写した内容の保存について。
VB.netでのPictuerBoxに描写した内容の保存について。 PictureBoxに描写した内容を保存してみると、描写した項目事態は正しく保存されているのですが、背景が真っ黒になってしまいますこれは、なぜなのでしょうか？ ソースは以下の様な感じです。 Dim bmp As Bitmap Dim g As Graphics bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height) PictureBox1.Image = bmp g = Graphics.FromImage(PictureBox1.Image) g.DrawLine(Pens.AliceBlue, 0, 10, 20, 10) PictureBox1.Refresh() PictureBox1.Image.Save("test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) どなたかわかる方よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VB.NETでのＰｉｃｔｕｒｅＢｏｘによる画像保存について
またお世話になります。 VB.NETでプログラムでPictureBoxに絵を描かせているのですが、そこまでは表示させることができました。このできた画像をBitmapなりjpegなりに保存させて、ほかの画像ビューワ等でも見れる形にしたいのですがうまくいきません。 ちなみに今はこのように書いて、 Dim gra1 As Graphics = PictureBox1.CreateGraphics FileOpen(2, myfile2, OpenMode.Output) （絵を描かせるプログラム） PictureBox1.Image.Save(myfile2, System.Drawing.Imaging.ImageFormat.Bmp) FileClose(2) としてまわしたところ、 System.Runtime.InteropServices.ExternalException' のハンドルされていない例外が system.drawing.dll で発生しました。 追加情報 : GDI+ で一般的なエラーが発生しました。 といわれました。 どなたかご教授いただけたらお願いしますm(__)m
- ベストアンサー
- Visual Basic
- VB2010で、キャプチャしたものを貼り付けるにはどうしたらいいのでし
VB2010で、キャプチャしたものを貼り付けるにはどうしたらいいのでしょうか。 ご存知の方教えてください。よろしくお願いします。 ？？？の部分のコードがわかりません。 'キャプチャする Dim copy_bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.DrawToBitmap(copy_bmp, New Rectangle(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height)) PictureBox3 = copy_bmp??? copy_bmp.Dispose()
- ベストアンサー
- Visual Basic
- VB2005での画像処理
各ピクセルの色情報を取得し，そのままコピーするプログラムです． 同じ大きさのPictureBox1とPictureBox2，それとButton1があります． エラーや警告は出ませんが，Button1をクリックしてもまったく動きません． 最終的にはPictureBox1を画像処理してPictureBox2に結果を表示させたいのですが，そのままコピーも出来ないため原因を探しています． A = picture1.GetPixel(i, j).ToArgb() picture2.SetPixel(i, j, color.FromArgb(A)) ではだめなのでしょうか．ご教授ください． -----以下プログラム------ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim j As Integer Dim A As Integer Dim picture1 As New Bitmap(PictureBox1.Image) Dim picture2 As New Bitmap(PictureBox2.Image) For j = 0 To PictureBox1.Width - 1 For i = 0 To PictureBox1.Height - 1 A = picture1.GetPixel(i, j).ToArgb() picture2.SetPixel(i, j, color.FromArgb(A)) Next Next End Sub
- ベストアンサー
- Visual Basic
- 【VB2005】画像の切り出し
こんばんは。 VB2005で、画像ファイルの一部を切り出し、Image型の変数に格納する方法が分かりません。 （DrawImageメソッドで切り出した画像を描画する事はできました） 【例】 Dim i As Integer Dim sourceImg As Image = Image.FromFile("test.bmp") Dim img(9) As Image For i = 0 To img.Length - 1 img(i) = [sourceImgの一部] Next どなたか、ご教授頂けないでしょうか?
- ベストアンサー
- Visual Basic
- VB.NETのグラフィック描画で困っています
VB.NETでのグラフィックの記述方法ですが 何かをクリックすると描画させるのではなく 単にあるsubプロシージャ内でグラフィックを描画させる記述する方法として pictureBox1.Image=New Bitmap(PictureBox1.width,pictureBox1.Height) Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) を教えていただきました。そこで private sub xy_keisan() '座標を計算させるプロシージャ disp_x() 'x座標に目盛りを表示させるプロシージャ disp_Y() 'xの目盛り数によってY座標の位置を変えて表示させるプロシージャ end sub private sub disp_x() pictureBox1.Image=New Bitmap(PictureBox1.width,pictureBox1.Height) Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.DrawLine(****** end sub private sub disp_y() pictureBox1.Image=New Bitmap(PictureBox1.width,pictureBox1.Height) Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.DrawLine(****** end sub のような記述（引数とか細かい所は端折っています）ですとdisp_yは描画されていますが,disp_xは消えてしまいます。 pictureBox1.Image=New Bitmap(PictureBox1.width,pictureBox1.Height) が消えてしまう原因だとおもって宣言場所を変えてみましたが同じです 逆にこれが無いと描画させることが出来なくなります。 これの意味も今ひとつ判りません よろしくお願い致します
- ベストアンサー
- Visual Basic
- VB.NETにおける二値化処理の高速化
いつも参考にさせて頂いております。 現在、VB.NET（VS2003/.NET Framework1.1）を使用して画像の二値化処理のプログラムを作成しております。 処理する事は簡単で、ビットマップファイルのRED要素を取り出し、閾値内なら白に変換して二値化するプログラムです。 以下がそのプログラムです。 ----- '変換する前の画像をファイルから読み込む Dim img1 As System.Drawing.Bitmap = New System.Drawing.Bitmap(filepath) '変換後のビットマップ Dim img2 As System.Drawing.Bitmap = New System.Drawing.Bitmap(img1.Width, img2.Height) '二値化処理 Dim b As Byte For i = 0 To img1.Width - 1 For j = 0 To img1.Height - 1 b = img1.GetPixel(i, j).R If b >= 閾値下限 And b <= 閾値上限 Then img2.SetPixel(i, j, Color.White) Else img2.SetPixel(i, j, Color.Black) End If Next Next PictureBox1.Image = img ----- これで処理は出来るのですが、ファイルが大きい場合は、非常に時間が掛かってしまいます。処理速度はCPUの速度にもよると思うのですが、できるだけ高速化したのですが、何かよい知恵があればご教授頂けると助かります。よろしくお願いいたします。 XP Pro SP2/VS2003/VB.NET/.NET Framework1.1
- ベストアンサー
- Visual Basic
- （VB.net）画像の一部を切り取って，拡大・縮小したい
内容を見ていただき，ありがとうございます。 タイトルのままですが，PictureBoxに画像を出して，その一部を切り取ったうえで拡大・縮小させるプログラムを作成しています。 今のところ，画像の一部を切り出すことはできたのですが，これを拡大・縮小させる方法をご存じないでしょうか。画像の一部を切り出すソースは以下のとおりです。 まず，フォームにピクチャボックス（PictureBox1)とコマンドボタン（Button1)を配置し，ソリューションを置いているフォルダ内のbinフォルダにWinter.jpg（WinXPのマイピクチャに入っているものです）を入れておきます。次に，Button1のコードとして，以下のものを打ち込みました。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Bitmapオブジェクトの作成（切り取り元画像の指定） Dim bmap = New Bitmap("winter.jpg") '切り取る範囲をRectanleで指定 Dim rect As New Rectangle(10, 20, 100, 200) 'PictureBox1のGraphicsオブジェクトの作成 Dim g As Graphics = PictureBox1.CreateGraphics() '元の画像の指定部分を切り取ってPictureboxの左上隅（x,y = 0,0)に表示する.単位はピクセル． g.DrawImage(bmap, 0, 0, rect, GraphicsUnit.Pixel) 'Graphicsオブジェクトを破棄 g.Dispose() End Sub 以上です。 おそらく，DrawImageの部分を変えればいけるのではないかと思われるのですが，いかがでしょうか。ご助言よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- BASICで画像のx,y座標の取得方法について
Active Basicでプログラムを書いています。 今、簡単なゲームを作ってみようと思い、プログラムを書いているのですが、画像の座標の取得の部分で躓いてしました。 画像Aに画像Bが触れたときに『アウト』とメッセージを出す、簡単な、物を避けるゲームなのですが、グローバルで、 Dim BombRect As RECT Dim HitoRect As RECT を定義して、画像が重なったかどうかを判定するときに、 GetWindowRect(hBmp04,BombRect) GetWindowRect(hBmp01,HitoRect) で、読み込もうとしましたが、座標が格納されてくれません。 hBmp01とhBmp04には、下のようにして画像を読み込みました。 'グローバル Dim hBmp01 As HWND Dim hBmp02 As HWND Dim hBmp03 As HWND Dim hBmp04 As HWND 'ウインドウ作成時 hBmp01 = LoadImage(0,".\画像\人\普通.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE) hBmp02 = LoadImage(0,".\画像\人\右.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE) hBmp03 = LoadImage(0,".\画像\人\左.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE) hBmp04 = LoadImage(0,".\画像\爆弾\ボム.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE) もし、やり方をご存知の方がいらっしゃいましたら、すみませんが、ご教授お願いします。 また、もっと簡単な方法がありましたら、そちらも教えていただけると嬉しいです。
- ベストアンサー
- その他（プログラミング・開発）
- VB.NET ピクチャーボックスのImageの一部をクリップボードにコピー
Picturebox1.Image = New Bitmap(Picturebox1.Width, Picturebox1.Height) Dim g As Graphics = Graphics.FromImage(Picturebox1.Image) これ以降 g.DrawLine 等で描画を行っています そして、ピクチャーボックスの一部の領域（矩形）を指定して クリップボードにコピーしたいのですがどうしたらいいでしょうか よろしくお願いします 他のピクチャーボックスにその一部をコピーできるだけでもいいのですが
- 締切済み
- Visual Basic
お礼
ご回答ありがとうございます。 とても分かりやすく表示のところまで教えて頂いて感謝です。 早速活用させて頂きたいと思います。 どうもありがとうございました。