vb.net上传图片 vb怎么把图片导入程序

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的picturebox载入图片

1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体，此处设定其名称为OpenDlg和SaveDlg；

2 触发Button的点击事件，或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

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

vb.net向access插入图片，代码能够插入图片，但是插入的时候是直接插到空的字段（第9、10行）了，求教！

INSERT INTO 语句是插入新的行

如果你希望对已经存在的记录某些字段进行更改，应该用：

Update 语句

具体格式是：

UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值

你修改这一句：

oleCmd.CommandText = "INSERT INTO TestImg (img) VALUES (@img)"

为：

oleCmd.CommandText = "UPDATE TestImg Set img = @img Where ID =1"