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"
分享题目:vb.net上传图片 vb怎么把图片导入程序
网页URL:http://pwwzsj.com/article/dopdcpc.html