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

本代码学习重点: 1.不规则无边框窗体透明与拖动 2.GIF图片组合动画 3.WMP自动循环播放 + FLASH 演绎多媒体效果 4.窗体随时保持置顶状态 转载请注明来源出处 作者: CBM666

Private Type xy X As Single Y As Single End Type Dim a(100) As xy Private WithEvents Timer1 As Timer Private Sub Form_Activate() v = "鼠标在窗口随便点击一下，然后再拖动鼠标，就出现效果了哈！" Form1.CurrentX = Screen.Width / 4 Form1.CurrentY = Screen.Height / 2.5 Randomize For i = 1 To Len(v) Form1.FontSize = 10 + 15 * Rnd Form1.ForeColor = &HFFFFFF * Rnd Print Mid(v, i, 1); Next i End Sub Private Sub Form_Load() Set Timer1 = Form1.Controls.Add("VB.timer", "t") Form1.Move 0, 0, Screen.Width, Screen.Height Timer1.E

下载地址:http://www.mndsoft.com/blog/article.asp?id=1116 如果你没有帐号下载，可以留下邮箱我发给你。 看图，功能非常多。。

Private Declare Function findWin& Lib "User32" Alias "FindWindowA" (ByVal cls$, ByVal win$) Private Declare Function findWinEx& Lib "User32" Alias "FindWindowExA" (ByVal h1&, ByVal h2&, ByVal s1$, ByVal s2$) Private Declare Function setwin& Lib "User32" Alias "SetWindowLongA" (ByVal H&, ByVal n&, ByVal L&) Private Declare Function getwin& Lib "User32" Alias "GetWindowLongA" (ByVal H&, ByVal n&) Private Declare Function alphas& Lib "User32" Alias "SetLayeredWindowAttributes" (ByVal H&, ByVal C&, ByVal n&, ByVal drawmod&) Private Declare Function GetPixel& Lib "gdi32" (ByVal hdc&, ByVal x&,

源代码： Private Sub MakeRGB(ByVal Color1 As Long, ByVal Color2 As Long, dest, Optional ByVal startX As Long = 0, Optional ByVal startY As Long = 0, Optional ByVal Width As Long = 0, Optional ByVal Height As Long = 0, Optional ByVal s As Integer = 0) '0=横 1=竖 '修改后的【littleczb 的渐变背景窗体】 Dim r1%, r2%, g1%, g2%, b1%, b2%, r As Double, g As Double, b As Double r1 = Color1 And RGB(255, 0, 0) g1 = (Color1 And RGB(0, 255, 0)) \ &H100 b1 = (Color1 And RGB(0, 0, 255)) \ &H10000 r2 = Color2 And RGB(255, 0, 0) g2 = (Color2 And RGB(0, 255, 0)) \ &H100 b2 = (Color