如何正确掌握VB.NET操作缩放图像

在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.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。

VB.NET加载图片问题

'先建立一个bitmap对象，指向图像文件

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定义一个图片框的graphics对象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在图片框上绘图

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'释放bitmap对象

pic.Dispose()

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

急求！用vb.net提取autocad的结点坐标！

CAD里的结点是什么信息了，要输出世界坐标还是用户坐标，最好把CAD文件发上来，不清楚怎么有人能帮你？？

VB.net如何提取textbox中部分内容？（需要提取的文本是固定位置的）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = Mid(TextBox1.Text, 11, 2) ’第十一位开始算起的2个字符

End Sub

VB.net 怎样保存picturebox中的图像（vs2008）

'因为要保存picturebox中的图片必须要设置autoredraw属性为true,所以也写出来了.

Private Sub Form_Load()

Picture1.AutoRedraw = True

End Sub

Private Sub Command1_Click()

SavePicture Picture1.Image, App.Path "\1.bmp"

End Sub

分享题目：vb.net图像轮廓提取 图像轮廓识别提取
转载来源：http://scyanting.com/article/hjehoi.html