Dim imgPhoto As System.Drawing.Image = System.Drawing.Image.FromFile("图片路径名")
成都网站建设哪家好,找创新互联公司!专注于网页设计、成都网站建设、微信开发、小程序设计、集团企业网站制作等服务项目。核心团队均拥有互联网行业多年经验,服务众多知名企业客户;涵盖的客户类型包括:围栏护栏等众多领域,积累了大量丰富的经验,同时也获得了客户的一致赞扬!
Dim imgWidth As Integer = imgPhoto.Width
Dim imgHeight As Integer= imgPhoto.Height
题主看懂了就采个纳吧~
在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.保存时的一个问题:我们必须先建一个对象,用于存缩放图像。
用FileStream打开文件查看大小再创建Bitmap显示图片尺寸。
Dim f As New IO.FileStream("C:\1.bmp", IO.FileMode.Open, IO.FileAccess.Read) '改成你的文件地址。
MsgBox(f.Length / 1024 "KB") '没做仔细,你根据需要自己改吧,Length得到的是字节数。
Dim b As New Bitmap(f)
f.Dispose()
MsgBox(b.Width " * " b.Height)
FileStream 类:
Bitmap 类:
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款