很简单的方法，貌似没有。这个需要自己写很多代码：
成都创新互联专注于网站建设，为客户提供成都网站设计、成都做网站、网页设计开发服务，多年建网站服务经验，各类网站都可以开发，品牌网站建设，公司官网，公司展示网站，网站设计，建网站费用，建网站多少钱，价格优惠，收费合理。
用一个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
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
纯手打，若拼写错误，那是很正常的。还有问题， 请追问。
INSERT INTO 语句是插入新的行
如果你希望对已经存在的记录某些字段进行更改，应该用：
Update 语句
具体格式是：
UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值
你修改这一句：
oleCmd.CommandText = "INSERT INTO TestImg (img) VALUES (@img)"
为：
oleCmd.CommandText = "UPDATE TestImg Set img = @img Where ID =1"
