某些算法 如模糊 锐化 等等 算法并不像我们想象的那么简单
你想象的模糊是：求周围点的平均值
但其实是：要用高斯的什么乱七八糟的公式去算
然而我看不懂
怎么办？现在就用智能王 双卡待机
啊呸 那个啥 可以用gdip自带的函数来实现啊

自占二楼

你们先围观着 我一会儿回来

马蛋 没人 对了顺便说一句 xp党可以走了。。这个东西在vista及以上版本的系统中+gdip1.1才可以使用

少说废话啊

首先 你要有vistawx大神的模块 没有的看这里
[无效] http://pan.baidu.com/s/1dDk7Mxj
在项目中添加这个模块

然后是往常的初始化、加载、销毁gdip
Dim graphics As Long, bitmap As Long
Dim w As Long, h As Long
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hDC, graphics
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeleteGraphics graphics
TerminateGDIPlus
End Sub

本教程用的是这张图 将其重命名为1.jpg放在工程目录下

其实有基础的人可以直接从这里开始看

之前我翻了翻vistawx大神的模块
里面有这个api GdipCreateEffect
这是我们要用的api
然后 你要是仔细找的话会在前面看到
#If GdipVersion >= 1.1 Then
后面也有
#End If
我还发现了这个函数
GdipCreateEffect2
但是前面写着
#If GdipVersion >= 1.1 Then
后面另一个函数
这个函数后面写着
#End If
是这样的
它是条件编译，只有条件满足时 其中的代码才会被编译
然后我去找了一下GdipVersion的定义
结果发现

#Const GdipVersion = 1#

vistawx！！！wqnmlgb
这样的话GdipCreateEffect2这个函数以及GdipCreateEffect这个API永远也不会被编译
然后我机智地将1#改成了1.1
不过这个改法会付出代价
但是如果你的系统版本>=Vista就没问题

如果是xp党的话后面的代码会报错
但是我记得我说过让xp党走了

现在可以用这个api了
它的定义
Public Declare Function GdipCreateEffect _
Lib "gdiplus" (ByVal Guid41 As Long, _
ByVal Guid42 As Long, _
ByVal Guid43 As Long, _
ByVal Guid44 As Long, _
effect As Long) As GpStatus
这些都什么鬼？！
其实这个还可以解释一下。。
但是vistawx已经封装好了
后面的函数GdipCreateEffect2是他的封装结果
Public Sub GdipCreateEffect2(ByVal EffectType As GdipEffectType, effect As Long)
首先你需要声明一个变量储存effect的地址
然后你就调用这个函数就Ok了
是不是小白福利啊

现在你的代码是这样
Option Explicit
Dim graphics As Long, bitmap As Long, effect As Long
Dim w As Long, h As Long
Private Sub Command1_Click()
GdipCreateBitmapFromFile StrPtr(App.Path & "\1.jpg"), bitmap
GdipGetImageWidth bitmap, w
GdipGetImageHeight bitmap, h
GdipDrawImageRect graphics, bitmap, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Me.Refresh
End Sub
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hDC, graphics
GdipCreateEffect2 GdipEffectType.Blur, effect
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeleteEffect effect
GdipDisposeImage bitmap
GdipDeleteGraphics graphics
TerminateGDIPlus
End Sub

现在就是如何使用了
看这个
Public Declare Function GdipBitmapApplyEffect _
Lib "gdiplus" (ByVal bitmap As Long, _
ByVal effect As Long, _
roi As RECTL, _
ByVal useAuxData As Long, _
auxData As Any, _
auxDataSize As Long) As GpStatus
第一个参数是bitmap的地址，第二个参数是effect的地址，第三个参数是应用效果的范围 是一个Rect
后几个参数
http://www.cnblogs.com/Imageshop/archive/2012/12/13/2815712.html
这个大神说是返回给用户的数据，说不用管它
那么就都传入0好了

不能调模糊度吗？ 不能用其他效果吗？
一连串的问题来了
今天因为时间原因我先解决第一个问题

先看这个api
Public Declare Function GdipSetEffectParameters _
Lib "gdiplus" (ByVal effect As Long, _
Params As Any, _
ByVal size As Long) As GpStatus
传入effect的地址，“参数”（设置effect用的），以及“参数”的大小
因为效果可变 所以参数的类型也可以变（不难解释 因为不同的效果有不同的参数）
但参数全部统一为结构体
这个效果的结构体是由一个浮点数（模糊度），一个布尔值（拓展边界）
那么结构体的声明是这样的
Private Type BlurParameters
Radius As Single
ExpandEdges As Boolean
End Type

前面的api的最后一个参数是结构体的大小
调用lenb就可以了
在窗体上拖一个HScrol，Min值为0，Max值为255，设置模糊度用
因为这里的大神（http://www.cnblogs.com/Imageshop/archive/2012/12/13/2815712.html）说模糊度的最小值是0，最大值是255
现在要设置效果 就在应用效果那句代码（ApplyEffect）前面加：
Dim p As BlurParameters
p.Radius = HScroll1.value
p.ExpandEdges = False
GdipSetEffectParameters effect, p, LenB(p)

现在你的代码应该是这样（注意模块里的GDI+版本要改）
Option Explicit
Dim graphics As Long, bitmap As Long, effect As Long
Dim w As Long, h As Long
Private Type BlurParameters
Radius As Single
ExpandEdges As Boolean
End Type
Private Sub Command1_Click()
GdipCreateBitmapFromFile StrPtr(App.Path & "\1.jpg"), bitmap
GdipGetImageWidth bitmap, w
GdipGetImageHeight bitmap, h
Dim p As BlurParameters
p.Radius = HScroll1.value
p.ExpandEdges = False
GdipSetEffectParameters effect, p, LenB(p)
GdipBitmapApplyEffect bitmap, effect, NewRectL(0, 0, w, h), 0, 0, 0
GdipDrawImageRect graphics, bitmap, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Me.Refresh
End Sub
Private Sub Form_Load()
InitGDIPlus
GdipCreateFromHDC Me.hDC, graphics
GdipCreateEffect2 GdipEffectType.Blur, effect
End Sub
Private Sub Form_Unload(Cancel As Integer)
GdipDeleteEffect effect
GdipDisposeImage bitmap
GdipDeleteGraphics graphics
TerminateGDIPlus
End Sub

呦西 由于时间原因今天先写这么多
快来人啊！！！！
@刘大王111

顶