网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.使用VisualBasic访问数据库几个注.
.播放flc文件动画.
.如何用VB设计动画时钟举例.
.VB对注册表操作程序开机时运行.
.用VB制作TopMost类型窗口.
.保存窗口位置来增加专业性.
.复本操作的对象、属性和方法(2)-.
.在VB应用程序中使用INI文件的一点.
.自动记录应用软件工作.
.用VB学做“黑客”程序.
.用VB创建复杂表格.
.VisualBasic概述.
.VisualBasic动画编程技术.
.VB从零开始编外挂(五).
.避免VisualBasic程序重复执行.
.非Access数据库在VB中的编程及应.
.VB软件开发中的错误捕获及处理技.
.桌面屏幕翻转.
.VBCOM基础讲座之建立测试程序.
.VB实现图像在数据库的存储与显示.

真彩色图像变为256色灰度

发表日期:2006-2-27


将RGB想成3D之X,Y,Z轴,则BMP的RGB为(r,g,b)与座标(Y,Y,Y)距离最小时的Y即为灰阶值
Y=0.29900*R 0.58700*G 0.11400*B
整数化
Y=(9798*R 19235*G 3735*B)/32768
RGB(Y,Y,Y)就可以了

需一个内有彩色图的PictureBox,CommandBox
OptionExplicit
PrivateDeclareFunctionGetPixelLib"gdi32"_
(ByValhdcAsLong,ByValxAsLong,ByValYAsLong)AsLong
PrivateDeclareFunctionSetPixelVLib"gdi32"_
(ByValhdcAsLong,ByValxAsLong,_
ByValYAsLong,ByValcrColorAsLong)AsLong
PrivatetmpPicAsPicture

PrivateSubForm_Load()
Picture1.ScaleMode=3'设为Pixel
Picture1.AutoRedraw=True'设定所有Pixel的改变不立即在pictureBox上显示
SettmpPic=Picture1.Picture
EndSub

PrivateSubCommand1_click()
Dimwidth5AsLong,heigh5AsLong,rgb5AsLong
Dimhdc5AsLong,iAsLong,jAsLong
DimbBlueAsLong,bRed->

上一篇:简单介绍透明位图的实现方法 人气:3590
下一篇:切割一个Container中的图片 人气:2715
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐