Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
画像をセピア色にする
Dim
SourceImage As Image = PictureBox1.Image Dim g As Graphics = Graphics.FromImage(SourceImage) Dim Attr As New Imaging.ImageAttributes Dim M As New Imaging.ColorMatrix
M.Matrix00 = 0.393F M.Matrix10 = 0.769F M.Matrix20 = 0.189F M.Matrix33 = 1.0F M.Matrix44 = 1.0F Attr.SetColorMatrix(M) g.DrawImage(SourceImage, New Rectangle(New Point, SourceImage.Size), 0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel, Attr) PictureBox1.Refresh() |
メモ:PictureBox1にはあらかじめ画像を読み込んでおくなどしてImageプロパティに値をセットしておく必要があります。
行列の数値は以下の記事を参照しました。