Private Sub Command1_Click()
Dim r2, g2, b2 As Integer
Dim r1, g1, b1 As Integer
Dim c1 As Long
Dim c2 As Long
Dim x0 As Integer
Dim y0 As Integer
Screen.MousePointer = 11 'mouse呈沙漏形状
For x0 = 1 To Picture1.Width - 2
For y0 = 1 To Picture2.Height - 2
c1 = Picture1.Point(x0, y0)
r1 = (c1 And &HFF)
g1 = (c1 And 62580) / 256
b1 = (c1 And &HFF0000) / 65536
'获得Picture1中指定点(x0,y0)的R、G、B分量值
c2 = Picture1.Point(x0 + 1, y0 + 1)
r2 = (c2 And &HFF)
g2 = (c2 And 62580) / 256
b2 = (c2 And &HFF0000) / 65536
'获得Picture1中与(x0,y0)点相邻的点的R、G、B分量值
r1 = Abs(r1 - r2 + 128)
g1 = Abs(g1 - g2 + 128)
b1 = Abs(b1 - b2 + 128)
If r1 > 255 Then r1 = 255
If r1 < 0 Then r1 = 0
If b1 > 255 Then b1 = 255
If b1 < 0 Then b1 = 0
If g1 > 255 Then g1 = 255
If g1 < 0 Then g1 = 0
'计算浮雕处理后的R、G、B分量值
Picture2.PSet (x0, y0), RGB(r1, g1, b1)
'画出浮雕处理后的(x0,y0)
DoEvents
Next
Next
Screen.MousePointer = 0 '恢复mouse正常情况
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path + "/鸟.bmp")
End Sub
分享到:
相关推荐
20多种外观形状的VB按纽控件源代码,按钮标题的文本样式有常规、立体、雕刻、浮雕四种选择,背景色可设置成渐变色或纯色,还可以加载真彩图片。 其中比较特殊的是星形和十字形,例如十字形按纽,你可以在四端再...
内容索引:VB源码,图形处理,浮雕 VB编程实现将一幅BMP图片处理成类似Photoshop一样的浮雕效果,处理的效果很好,就是处理时候有点慢。
内容索引:VB源码,图形处理,图像处理 VB几款图像效果处理程序源代码,和Photoshop效果里的浮雕、木刻、油画、魔术、显影、灯光、隐形等有点相似,每处理一次效果会保存生成一张BMP格式的图像,重复生成则自动覆盖,...
VB6.0编写实现的几款图像处理效果,此为本效果的源代码。这些图片特效为图片增加浮雕、油画、光照、隐形、木刻等效果,编译运行后,图像会自动加载默认的BMP图像文件,每添加一种效果后自动生成一个备份文件,这些...
├─Example043-浮雕效果 ├─Example044-降低图像的分辨率 ├─Example045-图像的放大 ├─Example046-图像的缩小 ├─Example047-淡入淡出效果 ├─Example048-图像的合成 ├─Example049-图像动画 ├─Example050...
整个压缩文件才277k,还包括一个示例程序和源代码(280KB) 60,s013_ariadtbar.ZIP 用这个控件做工具条不须象VB自带的要用到ImageList控件,同时还有许多很方便的功能,慢慢去发掘吧(154KB) 61,s012.ZIP ...
整个压缩文件才277k,还包括一个示例程序和源代码(280KB) 60,s013_ariadtbar.ZIP 用这个控件做工具条不须象VB自带的要用到ImageList控件,同时还有许多很方便的功能,慢慢去发掘吧(154KB) 61,s012.ZIP ...
整个压缩文件才277k,还包括一个示例程序和源代码(280KB) 60,s013_ariadtbar.ZIP 用这个控件做工具条不须象VB自带的要用到ImageList控件,同时还有许多很方便的功能,慢慢去发掘吧(154KB) 61,s012.ZIP ...
本DataGridView打印控件和.NET打印控件5.7版2014年11月2日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以的),有帮助文档与使用实例。 与上一版相比,控件5.7版的主要更改如下: 1...
└ C#源代码第三部分多线程 ├─1-多线程 ├─2-多线程 ├─3-多线程互斥 ├─4-多线程互斥 ├─5-多线程互斥 ├─chap09-多线程 ├─D00-多线程 ├─Windows多线程编程技术与实例 ... ... ├─多线程,多接收...
├─第53讲 文件系统监视器 │ └─第55讲 聊天室扩展之三——使用MS Agent <br>└ C#源代码第三部分多线程 ├─1-多线程 ├─2-多线程 ├─3-多线程互斥 ├─4-多线程互斥 ├─5-多线程...
├─第53讲 文件系统监视器 │ └─第55讲 聊天室扩展之三——使用MS Agent <br>└ C#源代码第三部分多线程 ├─1-多线程 ├─2-多线程 ├─3-多线程互斥 ├─4-多线程互斥 ├─5-多线程...