锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net照片黑白 vb显示图片怎么写代码

IT技术照片

Vb.net怎么实现图像的处理这问题有点笼统vb.net照片黑白，软糖来说说把：
图像处理由System.Drawing命名空间负责 。
主要是Bitmap类和Graphics类 。
Bitmap表示一个位图vb.net照片黑白，可以是BMP,JPG,PNG等文件 。
装载位图
Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一张画纸vb.net照片黑白，能够进行绘制操作 。
它可以被窗体、控件、位图调用CreateGraphics()方法来创建 。
然后调用Graphics.Draw开头vb.net照片黑白的一系列函数来绘制图像和图形 ， Fill开头的填充图形 。
创建画纸并绘制位图
Dim 画纸 As Graphics = Me.CreateGraphics()
画纸.DrawImage(位图, 100, 100, 256, 256)
可以将上面三行放到Form1_Load中测试，把路径改一下 ， 
还可以把Me改为能在上面绘图的控件的名称 。
更多内容请看MSDN的System.Drawing命名空间 。
如满意 ， 请采纳 ， 谢谢 。
如何用vb编程将彩色图像转换为黑白我昨天刚用过，效果很好 ， 速度也快
（代码在下面地址的7楼）
一个用API来完成的例子,速度比GetPixel快n倍
OptionExplicit
'图像处理的一个例子
'PoweredbyJadeluo,2004/02/21
'EMail:Jadeluo@sina.com
PrivateTypeBITMAP
bmTypeAsLong
bmWidthAsLong
bmHeightAsLong
bmWidthBytesAsLong
bmPlanesAsInteger
bmBitsPixelAsInteger
bmBitsAsLong
EndType
PrivateDeclareFunctionGetObjectLib"gdi32"Alias"GetObjectA"(ByValhObjectAsLong,ByValnCountAsLong,lpObjectAsAny)AsLong
PrivateDeclareFunctionGetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLong
PrivateDeclareFunctionSetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLong
PrivateSubForm_Load()
picShow.BorderStyle=vbBSNone
picShow.Move0,0
EndSub
PrivateSubcmdLoad_Click()
【vb.net照片黑白 vb显示图片怎么写代码】OnErrorResumeNext
WithCommonDialog1
.Filter="Picture(*.BMP;*.JPG;*.GIF;*.ICO)|*.BMP;*.JPG;*.GIF;*.ICO|AllFiles(*.*)|*.*"
.CancelError=True
.ShowOpen
IfErr.Number=0Then
picShow.AutoSize=True
picShow.Picture=LoadPicture(.FileName)
EndIf
EndWith
OnErrorGoTo0
EndSub
PrivateSubcmdGray_Click()
DimPicBits()AsByte,PicInfoAsBITMAP,BytesPerPixelAsLong
DimRAsByte,GAsByte,BAsByte,GrayAsByte,iAsLong
WithpicShow
.AutoRedraw=True
GetObject.Image,Len(PicInfo),PicInfo
BytesPerPixel=PicInfo.bmBitsPixel\8
ReDimPicBits(1ToPicInfo.bmWidth*PicInfo.bmHeight*BytesPerPixel)
GetBitmapBits.Image,UBound(PicBits),PicBits(1)
Fori=0ToUBound(PicBits)\BytesPerPixel-1
B=PicBits(i*BytesPerPixel+1)
G=PicBits(i*BytesPerPixel+2)
R=PicBits(i*BytesPerPixel+3)
Gray=R*0.39+G*0.5+B*0.11
'下面这一句是将灰度值换算成二值
'IfGray127ThenGray=255ElseGray=0
PicBits(i*BytesPerPixel+1)=Gray
PicBits(i*BytesPerPixel+2)=Gray
PicBits(i*BytesPerPixel+3)=Gray
Nexti
SetBitmapBits.Image,UBound(PicBits),PicBits(1)
.Refresh
EndWith
EndSub
vb.net怎么使图像灰度化再输出在web上可以使用HTML5的特效实现 。
在windows forms里面可以直接修改设置图片的属性 。
Try
' 图片位置初始化一个image1
Dim image1 As New Bitmap(
"C:\Documents and Settings\All Users\Documents\My Music\music.bmp",
True)
Dim x, y As Integer
' Loop through the images pixels to reset color.
For x = 0 To image1.Width - 1
For y = 0 To image1.Height - 1
Dim pixelColor As Color = image1.GetPixel(x, y)
Dim newColor As Color =
Color.FromArgb(pixelColor.R, 0, 0)
image1.SetPixel(x, y, newColor)

推荐阅读


上一篇：电脑待机了怎么开不了，电脑待机开不了了怎么办

下一篇：移动路由器安装怎么收费，移动路由器安装收费吗