锐客网

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

vb.net图片操作 vb显示图片

IT技术控件

vb.net 怎么来回切换图片?vb.net 怎么来回切换图片?1、添加控件Picturebox1和控件Timer1vb.net图片操作，将Timer1vb.net图片操作的Interval属性改为1000（即1秒）vb.net图片操作，Enabled属性改为True
2、假设你要循环切换4张图片，你可以添加如下代码即可实现vb.net图片操作：
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = 4 Then
a = 0
Else
a = a + 1
End If
If a = 0 Then Me.PictureBox1.Image = Image.FromFile("1.jpg")
If a = 1 Then Me.PictureBox1.Image = Image.FromFile("2.jpg")
If a = 2 Then Me.PictureBox1.Image = Image.FromFile("3.jpg")
If a = 3 Then Me.PictureBox1.Image = Image.FromFile("4.jpg")
End Sub
Vb.net怎么实现图像的处理这问题有点笼统vb.net图片操作，软糖来说说把vb.net图片操作：
图像处理由System.Drawing命名空间负责 。
主要是Bitmap类和Graphics类 。
Bitmap表示一个位图vb.net图片操作 ， 可以是BMP,JPG,PNG等文件 。
装载位图
Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一张画纸 ， 能够进行绘制操作 。
它可以被窗体、控件、位图调用CreateGraphics()方法来创建 。
然后调用Graphics.Draw开头vb.net图片操作的一系列函数来绘制图像和图形，Fill开头vb.net图片操作的填充图形 。
创建画纸并绘制位图
Dim 画纸 As Graphics = Me.CreateGraphics()
画纸.DrawImage(位图, 100, 100, 256, 256)
可以将上面三行放到Form1_Load中测试，把路径改一下，
还可以把Me改为能在上面绘图的控件的名称 。
更多内容请看MSDN的System.Drawing命名空间 。
如满意，请采纳，谢谢 。
如何正确掌握VB.NET操作缩放图像在VB.NET操作缩放图像中的显示和保存缩放图像，用到Image和Graphics类 ， 在VSDotNet2K3下面Reference里自动添加了引用System.Drawing，直接用就行 。
实现VB.NET操作缩放图像代码如下：DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的图片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里显示
DimimgnewAsNewSystem.Drawing.Bitmap
(img,img.Height*3,img.Width*3)
''新建一个放大的图片
imgnew.Save(D:\Image\tstNewImage.jpg,
System.Drawing.Imaging.ImageFormat.Jpeg)
''保存放大后图片
你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面源码天空
，执行就行了 。
对上面VB.NET操作缩放图像代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象 。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节 。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像 。
vb.net中怎么实现图片缩小和放大Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载 。控件封装了右键局部区域放大的功能 ， 要实现图片的缩放 ， 把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了 。
VB.NET加载图片问题'先建立一个bitmap对象vb.net图片操作，指向图像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框vb.net图片操作的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

推荐阅读


上一篇：HBASE数据量命令，hbase数据操作命令

下一篇：flutter专业，flutter flutter