vb.net 教程 5-15 图像处理之内存处理1
2017-04-26 20:25
567 查看
关于lockbits的使用,请看《vb.net 教程 5-14 图像处理之内存处理基础1》系列
图像处理之内存处理对应图像处理之像素处理,
具体的算法请参考《vb.net 教程 5-13 图像处理之像素处理1》,我把代码重新写到了使用LockBits。
红色通道:
学习更多vb.net知识,请参看 vb.net 教程 目录
图像处理之内存处理对应图像处理之像素处理,
具体的算法请参考《vb.net 教程 5-13 图像处理之像素处理1》,我把代码重新写到了使用LockBits。
红色通道:
'红色通道 'http://blog.csdn.net/uruseibest Private Sub btnRed_Click(sender As Object, e As EventArgs) Handles btnRed.Click Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height) Dim sourceData As BitmapData = sourceImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb) Dim destData As BitmapData = destImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.WriteOnly, PixelFormat.Format24bppRgb) Dim pSource As IntPtr = sourceData.Scan0 Dim allBytes As Integer = sourceData.Stride * sourceData.Height Dim rgbvalues() As Byte ReDim rgbvalues(allBytes - 1) Marshal.Copy(pSource, rgbvalues, 0, allBytes) Dim pos As Integer = 0 Dim R, G, B As Integer For j As Integer = 0 To sourceData.Height - 1 For i As Integer = 0 To sourceData.Width - 1 'B = rgbvalues(pos) 'G = rgbvalues(pos + 1) R = rgbvalues(pos + 2) rgbvalues(pos) = R rgbvalues(pos + 1) = R rgbvalues(pos + 2) = R pos = pos + 3 Next pos = pos + sourceData.Stride - sourceData.Width * 3 Next Dim pDest As IntPtr = destData.Scan0 Marshal.Copy(rgbvalues, 0, pDest, allBytes) sourceImg.UnlockBits(sourceData) destImg.UnlockBits(destData) picDest.Image = destImg End Sub绿色通道:
'绿色通道 'http://blog.csdn.net/uruseibest Private Sub btnGreen_Click(sender As Object, e As EventArgs) Handles btnGreen.Click Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height) Dim sourceData As BitmapData = sourceImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb) Dim destData As BitmapData = destImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.WriteOnly, PixelFormat.Format24bppRgb) Dim pSource As IntPtr = sourceData.Scan0 Dim allBytes As Integer = sourceData.Stride * sourceData.Height Dim rgbvalues() As Byte ReDim rgbvalues(allBytes - 1) Marshal.Copy(pSource, rgbvalues, 0, allBytes) Dim pos As Integer = 0 Dim R, G, B As Integer For j As Integer = 0 To sourceData.Height - 1 For i As Integer = 0 To sourceData.Width - 1 'B = rgbvalues(pos) G = rgbvalues(pos + 1) 'R = rgbvalues(pos + 2) rgbvalues(pos) = G rgbvalues(pos + 1) = G rgbvalues(pos + 2) = G pos = pos + 3 Next pos = pos + sourceData.Stride - sourceData.Width * 3 Next Dim pDest As IntPtr = destData.Scan0 Marshal.Copy(rgbvalues, 0, pDest, allBytes) sourceImg.UnlockBits(sourceData) destImg.UnlockBits(destData) picDest.Image = destImg End Sub蓝色通道:
'蓝色通道 'http://blog.csdn.net/uruseibest Private Sub btnBlue_Click(sender As Object, e As EventArgs) Handles btnBlue.Click Dim destImg As New Bitmap(sourceImg.Width, sourceImg.Height) Dim sourceData As BitmapData = sourceImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb) Dim destData As BitmapData = destImg.LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.WriteOnly, PixelFormat.Format24bppRgb) Dim pSource As IntPtr = sourceData.Scan0 Dim allBytes As Integer = sourceData.Stride * sourceData.Height Dim rgbvalues() As Byte ReDim rgbvalues(allBytes - 1) Marshal.Copy(pSource, rgbvalues, 0, allBytes) Dim pos As Integer = 0 Dim R, G, B As Integer For j As Integer = 0 To sourceData.Height - 1 For i As Integer = 0 To sourceData.Width - 1 B = rgbvalues(pos) 'G = rgbvalues(pos + 1) 'R = rgbvalues(pos + 2) rgbvalues(pos) = B rgbvalues(pos + 1) = B rgbvalues(pos + 2) = B pos = pos + 3 Next pos = pos + sourceData.Stride - sourceData.Width * 3 Next Dim pDest As IntPtr = destData.Scan0 Marshal.Copy(rgbvalues, 0, pDest, allBytes) sourceImg.UnlockBits(sourceData) destImg.UnlockBits(destData) picDest.Image = destImg End Sub
学习更多vb.net知识,请参看 vb.net 教程 目录
相关文章推荐
- vb.net 教程 5-15 图像处理之内存处理2
- vb.net 教程 5-15 图像处理之内存处理6
- vb.net 教程 5-15 图像处理之内存处理 4
- vb.net 教程 5-15 图像处理之内存处理 3
- vb.net 教程 5-15 图像处理之内存处理 5
- vb.net 教程 5-14 图像处理之内存处理基础3
- vb.net 教程 5-14 图像处理之内存处理基础5
- vb.net 教程 5-14 图像处理之内存处理基础4
- vb.net 教程 5-14 图像处理之内存处理基础6
- vb.net 教程 5-14 图像处理之内存处理基础2
- vb.net 教程 5-14 图像处理之内存处理基础1
- vb.net 教程 5-13 图像处理之像素处理 5
- vb.net 教程 5-16 图像处理之ImageAttributes 类2 颜色矩阵5
- vb.net 教程 5-13 图像处理之像素处理 6
- vb.net 教程 5-13 图像处理之像素处理 8-1
- vb.net 教程 5-13 图像处理之像素处理 8-3
- vb.net 教程 5-16 图像处理例子 1 半透明的文字水印
- vb.net 教程 5-16 图像处理例子 2 半透明的图片水印
- vb.net 教程 5-13 图像处理之像素处理 2
- vb.net 教程 5-16 图像处理之ImageAttributes 类2 颜色矩阵1