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

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倍

Option Explicit

'图像处理的一个例子

'Powered by Jadeluo , 2004/02/21

'EMail: Jadeluo@sina.com

Private Type BITMAP

bmType As Long

bmWidth As Long

bmHeight As Long

bmWidthBytes As Long

bmPlanes As Integer

bmBitsPixel As Integer

bmBits As Long

End Type

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Private Sub Form_Load()

picShow.BorderStyle = vbBSNone

picShow.Move 0, 0

End Sub

Private Sub cmdLoad_Click()

On Error Resume Next

With CommonDialog1

.Filter = "Picture(*.BMP;*.JPG;*.GIF;*.ICO)|*.BMP;*.JPG;*.GIF;*.ICO|All Files(*.*)|*.*"

.CancelError = True

.ShowOpen

If Err.Number = 0 Then

picShow.AutoSize = True

picShow.Picture = LoadPicture(.FileName)

End If

End With

On Error GoTo 0

End Sub

Private Sub cmdGray_Click()

Dim PicBits() As Byte, PicInfo As BITMAP, BytesPerPixel As Long

Dim R As Byte, G As Byte, B As Byte, Gray As Byte, i As Long

With picShow

.AutoRedraw = True

GetObject .Image, Len(PicInfo), PicInfo

BytesPerPixel = PicInfo.bmBitsPixel \ 8

ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * BytesPerPixel)

GetBitmapBits .Image, UBound(PicBits), PicBits(1)

For i = 0 To UBound(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

'下面这一句是将灰度值换算成二值

' If Gray 127 Then Gray = 255 Else Gray = 0

PicBits(i * BytesPerPixel + 1) = Gray

PicBits(i * BytesPerPixel + 2) = Gray

PicBits(i * BytesPerPixel + 3) = Gray

Next i

SetBitmapBits .Image, UBound(PicBits), PicBits(1)

.Refresh

End With

End Sub

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)

Next

Next

' Set the PictureBox to display the image.

PictureBox1.Image = image1

' Display the pixel format in Label1.

Label1.Text = "Pixel format: " + image1.PixelFormat.ToString()

Catch ex As ArgumentException

MessageBox.Show("There was an error." _

"Check the path to the image file.")

End Try

vb.net保存图片时如何调整其分辨率

保存前加一句 myImage2.SetResolution(300, 300) 你设置vb.net照片黑白的bMape不是保存vb.net照片黑白的主画布 所以无效vb.net照片黑白，设置分辨率就是 SetResolution（X,Y）

vb.net 打印问题

可以将打印机默认打印设置改为黑白打印，如果打印对象是RGB配色，打印机驱动转换为CMYK颜色时，黑色都是由彩色墨水组成的

2.可以试一下图片从一个标准灰度图片格式化而来，这样图片自身只有黑白色，也许可以

vb.net照片黑白的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb显示图片怎么写代码、vb.net照片黑白的信息别忘了在本站进行查找喔。