社区
多媒体
帖子详情
如何修改bmp格式图片的rgb各分量????
zzx123xxz321
2012-07-24 04:54:22
想将一张24位 bmp图片的 后两个分量对调一下 保存成jpg的(bmp的也行)这个该怎么弄啊??请说得详细一点 或者有例子代码~~~~~~~~~谢谢啊~~~~~~~~
...全文
130
1
打赏
收藏
如何修改bmp格式图片的rgb各分量????
想将一张24位 bmp图片的 后两个分量对调一下 保存成jpg的(bmp的也行)这个该怎么弄啊??请说得详细一点 或者有例子代码~~~~~~~~~谢谢啊~~~~~~~~
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lorl2
2012-08-02
打赏
举报
回复
Option Explicit
Private Type DWORD
Value As Long
End Type
Private Type ARGB
R As Byte
G As Byte
B As Byte
A As Byte
End Type
Private Sub Command1_Click()
Me.ScaleMode = 3
Me.MousePointer = vbHourglass
Dim srcpic As String
Dim dscpic As String
Dim i As Long, j As Long
Dim temp As Byte
Dim pixel As Long
Dim dw As DWORD
Dim color_rgb As ARGB
srcpic = "c:\test.jpg"
With Picture1 ''图片框控件PictureBox
.ScaleMode = 3
'加载图片
.Picture = LoadPicture(srcpic)
.AutoRedraw = True
'从上到下逐行扫描
For i = 0 To .ScaleHeight
For j = 0 To .ScaleWidth
'取一个像素点
pixel = .Point(i, j)
dw.Value = pixel
LSet color_rgb = dw
'将G分量与B分量互换
temp = color_rgb.G
color_rgb.G = color_rgb.B
color_rgb.B = temp
color_rgb.R = 0
LSet dw = color_rgb
'画回去
Picture1.PSet (i, j), dw.Value
Next
DoEvents
Next
.Refresh
End With
dscpic = "c:\xxoo.jpg"
'将处理过的图片保存下来
SavePicture Picture1.Picture, dscpic
Me.MousePointer = vbDefault
End Sub
bmp
格式
转为
rgb
565
格式
图片
转换工具
bmp
格式
转
rgb
565
格式
,然后再framebuffer里面填充即可方便显示,
bmp
轻松转为
rgb
565工具
android的开机log是
bmp
的
格式
,但是得转为
rgb
565的
格式
,现在这个工具可以帮到你了。无论
bmp
,png,jpg都可以转了。
BMP
转
RGB
格式
BMP
格式
转
RGB
,支持
RGB
16和
RGB
24,制作bin文件工具。
图片
格式
NV21 转
RGB
24 和
BMP
图片
源码(C语言)。
图片
格式
NV21 转
RGB
24 和
BMP
图片
源码(C语言)。 NV21 转
RGB
24
格式
。 NV21 转
BMP
格式
图片
源码。 直接可以用。
BMP
格式
图片
的生成
非常简单的一个生成
BMP
格式
的代码,笔者将蓝色和绿色
分量
设置为255,将红色
分量
设置为0,然后写入文件,顺利得到了一副淡蓝色的
图片
。
多媒体
808
社区成员
8,274
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章