VB.net 如何实现快速高斯模糊

如何实现快速高斯模糊呢?
找到的方法貌似很慢呢。对于一个2000x2000以上的图像,能在100毫秒以下完成高斯模糊,则最最好了。

调用GPU

望采纳。
下列代码使用了 Bitmap 类的 ConvolutionFilter 方法来应用高斯模糊。该方法接受一个 ConvolutionMatrix 类型的参数,用于设置模糊的程度。这里我们使用了一个 3x3 的矩阵,并将所有元素设置为 1/9。你测试一下速度试试。

Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 读取图像文件
        Dim image As Bitmap = New Bitmap("C:\image.jpg")

        ' 设置高斯模糊参数
        Dim blur As New ConvolutionMatrix(3)
        blur.SetAll(1 / 9)

        ' 应用高斯模糊
        image = image.ConvolutionFilter(blur)

        ' 保存处理后的图像
        image.Save("C:\image_blurred.jpg", ImageFormat.Jpeg)
    End Sub
End Class

Starbuck