没有合适的资源?快使用搜索试试~ 我知道了~
VB代码VB小程序:将彩色图像转变为黑白图像.docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 49 浏览量
2021-12-27
20:56:31
上传
评论
收藏 11KB DOCX 举报
温馨提示
试读
5页
VB代码VB小程序:将彩色图像转变为黑白图像.docx
资源推荐
资源详情
资源评论
VB 代码 VB 小程序:将彩色图像转变为黑白图像
本程序使用两种方法将一幅彩色图像转变为黑白图像:用API 方法、用VB 控件方法。通过
比较两种方法不难发现:
用VB 控件进行转换,过程直观,代码好理解,对学习和理解VB 绘图语句很有帮助,但速度
慢。
用API 方法进行转换,需操作二进制数组,像素点的行列定位较复杂,但转换速度快,几乎
是瞬间就完成了转换。
'' 以下是窗体代码,在VB6 调试通过
'需在窗体放置5 个控件:Command1、Command2、Command3、Picture1、Text1
'本人原创,转载请注明文章来源:
http://hi.baidu.com/100bd/blog/item/1f4653397c5d693296ddd800.html
DimctExitAsBoolean
PrivateTypeBitMap
bmTypeAsLong' 图像类型:0 表示是位图
bmWidthAsLong' 图像宽度(像素)
bmHeightAsLong' 图像高度(像素)
bmWidthBytesAsLong' 每一行图像的字节数
bmPlanesAsInteger' 图像的图层数
bmBitsPixelAsInteger' 图像的位数
bmBitsAsLong' 位图的内存指针
EndType
PrivateDeclareFunctionGetObjectLib"gdi32"Alias
"GetObjectA"(ByValhObjectAsLong,ByValnCountAsLong,lpObjectAsAny)As
Long
PrivateDeclareFunctionGetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,
ByValdwCountAsLong,lpBitsAsAny)AsLong
PrivateDeclareFunctionSetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,
ByValdwCountAsLong,lpBitsAsAny)AsLong
PrivateSubForm_Load()
Me.Caption=" 转变为黑白图片"
Text1.Text=App.Path&"\Tu1.jpg"
资源评论
奔跑的朱亚文
- 粉丝: 0
- 资源: 4万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功