2016-12-25 5 views
1

私は表示されているように実際の画像でピクチャボックスを保存する必要があります。 お手伝いしますか?実際のピクチャボックスを保存するには

例:

image

Dim myEncoder As Encoder 
    Dim myImageCodecInfo As ImageCodecInfo 
    Dim myEncoderParameter As EncoderParameter 
    Dim myEncoderParameters As EncoderParameters 
    Dim bmp As Bitmap = CType(imgJpgPng.Image, Bitmap) 
    Dim bmpt As New Bitmap(640, 640) 
    Using g As Graphics = Graphics.FromImage(bmpt) 
     g.DrawImage(bmp, 0, 0, bmpt.Width, bmpt.Height) 
    End Using 
    myImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg) 
    myEncoder = Encoder.Quality 
    myEncoderParameters = New EncoderParameters(1) 
    myEncoderParameter = New EncoderParameter(myEncoder, CType(75L, Int32)) 
    myEncoderParameters.Param(0) = myEncoderParameter 
    bmpt.Save("d:\ImgTemp\0000.JPG", myImageCodecInfo, myEncoderParameters) 
+0

画像を切り抜く必要があるようです。現実のイメージボックスや他のイメージボックスとはあまり関係がありません。 – Plutonix

答えて

0

私が取得していたものから、あなたが多分ディレクトリか何かに、ピクチャボックスの画像を保存したいということです。ところで、私はあなたが640、640でbmptをDim'dしていることに気づきました。

これは、画像ボックスの画像を保存する方法です。

PictureBox1.Image.Save( "C:\ユーザーは、所有者\デスクトップ\ Webカメラアプリケーションが\ Picture.jpgをpoctures \")

その非常に自明、Picturebox1.Image.Save(画像を保存)し、中引用がある場合はディレクトリがあり、最後にjpgがある場合は.pngなどのファイル形式にすることができます 画像ボックスに元の画像として表示させたい場合は、画像ボックスとmaのプロパティに移動するそれより大きい(サイズ)か、ストレッチ機能を使用してください。

編集:申し訳ありませんが、私はあなたの質問を右に読んでいない、ここでは更新です!

このウェブサイトの情報を参照してください。これが大いに役立ちます! http://www.vb-helper.com/howto_resize_picture_save.html

関連する問題