vb.net载入图片 vb导入图片的代码

由用户选定vb.net的picturebox载入图片

1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体vb.net载入图片，此处设定其名称为OpenDlg和SaveDlg；

2 触发Button的点击事件vb.net载入图片，或PictureBox的点击事件，其对应的方法

OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式

If OpenDlg.ShowDialog() = DialogResult.OK Then

Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)

EndIf

3 保存图片

If SaveDlg.ShowDialog = DialogResult.OK Then

Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式

EndIf

纯手打，若拼写错误，那是很正常的。还有问题， 请追问。

相关问答

Q1: vb.net:关于插入图片的问题

me.backgroundimage=image.fromfile(apppath+"picture")

主要的错误是你的"picture"这里错了，apppath后面就应该接你要载入的图片的名字，比如说是02.jpeg，那就应该是

me.backgroundimage=image.fromfile(apppath+"\02.jpeg")，注意要加\和图片的后缀名。

Q2: 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)

'释放bitmap对象

pic.Dispose()

'现在即可对文件进行操作

Q3: vb.net中，如何像下图一样，用很简单的办法，导入1000张图片。

很简单的方法，貌似没有。这个需要自己写很多代码：

用一个ListView控件。

判断滚动条当前所显示的图片集合，获取它们的物理路径。

用Bitmap.FromImage方法把这些图片读出来，

然后获取缩略图，

把缩略图用Graphics.DrawImage()绘制出来。

我可以提供Bitmap如何获取缩略图的方法：

''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary

Public Function ThumbnailCallback() As Boolean

Return False

End Function

''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary

Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image

Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)

Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)

End Function

关于vb.net载入图片和vb导入图片的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。